Stamp a document with new Vol#, Issue#, and date

[jeffreybrown]

I will have a document with Vol. 19, No. 1, January 2019 in the header.. How can I get the No. and Date to change every time I run a macro?



That is, the first doc is...

Vol. 19, No. 1, January 2019
and the next Vol. 19, No. 2, January 2019
and the next Vol. 19, No. 3, January 2019
etc...

I would like the to increment by 1 every time the macro is run and the date to change based on the current date.

[Guessed]

I would be using a content control linked to a built-in document property for the Number, and a SaveDate field for the date.

To add the content control, put your cursor in the header and type in "No. " and then go to Insert > Quick Parts > Document Property > Category.

To add the SaveDate field, put your cursor in the header and go to Insert > Quick Parts > Field > SaveDate (and chose the relevant Date Format), click OK

The final part is to add a macro which can update the Category property and save the file to adjust the date.

Option Explicit

Sub IncrementNumber()
  Dim i As Integer
  i = Val(ActiveDocument.BuiltInDocumentProperties("Category").Value) + 1
  ActiveDocument.BuiltInDocumentProperties("Category").Value = i
  ActiveDocument.Save
  UpdateAllFields
End Sub

Sub UpdateAllFields()
  Dim oStory As Range
  For Each oStory In ActiveDocument.StoryRanges
    oStory.Fields.Update
    If oStory.StoryType <> wdMainTextStory Then
      While Not (oStory.NextStoryRange Is Nothing)
        Set oStory = oStory.NextStoryRange
        oStory.Fields.Update
      Wend
    End If
  Next oStory
  Set oStory = Nothing
End Sub

[jeffreybrown]

That is Perfect. Thank you Andrew.