Inserting Document ID or other reference number into Word 2011

Question

Hi there, does anyone know if its possible to automatically insert a unique auto-incrementing reference number such as Document ID, into each word document, maybe into the header or footer info, so that each new Word document displays a unique reference number?

Seen it in database records e.g. a purchase order but can't see any options in Word for Mac...

Answer 1

Yes, it's possible.  You need to code it up yourself:

http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm

However, you need to modify that code, because there's a bug in Word 2011 that means PrivateProfileString does not work.

See http://answers.microsoft.com/en-us/office/forum/officeversion_other-customize/system-privateprofilestring-not-working/9bb513ef-39e2-4346-bbc5-07fa43326028

You need to use this line instead:

Call SaveSetting("My_App","ThisSection", "ThisKey", "This is the string to save")

Hope this helps

Answer 2

Thanks very much, although I must admit this is still beyond my knowledge of VB/Macros. Where would I put the Call Savesetting line as there are 2 occurences of System.PrivateProfileString. Sorry to take up your time,

Sub AutoNew()

Order = System.PrivateProfileString("C:\Settings.Txt", _

"MacroSettings", "Order")

If Order = "" Then

Order = 1

Else

Order = Order + 1

End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _

"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")

ActiveDocument.SaveAs fileName:="path" & Format(Order, "00#")

End Sub