Macro / VBA to run at document startup

macropod · #1 09-22-2019, 04:57 AM

To do it properly, bookmark the first instance of your date, cross-reference that bookmark for each of the other instances, and use something like the following in the 'This Document' code module of the document or its template:

Code:

Private Sub Document_Open()
If MsgBox("Run Macro?", vbYesNo, "Message") <> vbYes Then Exit Sub
Application.ScreenUpdating = False
Dim BmkRng As Range: Const BmkNm As String = "MyDate"
With ActiveDocument
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = Format(Date + 7, "mmmm d, yyyy")
    .Bookmarks.Add BmkNm, BmkRng
  End If
  .Fields.Update
End With
Application.ScreenUpdating = True
End Sub

bluefate25 · #2 09-22-2019, 09:45 PM

Thank you both for your responses! I have been very frustrated with getting this to work (having no experience with macros) so this has been truly helpful!

What I ended up writing to get this to work was the following:

Sub AutoOpen()

If MsgBox("Run Macro?", vbYesNo, "Message") = vbYes Then Call DATEPLUS7
End Sub

Sub DATEPLUS7()
Application.ScreenUpdating = False
Dim BmkRng As Range: Const BmkNm As String = "MyDate"
With ActiveDocument
If .Bookmarks.Exists(BmkNm) Then
Set BmkRng = .Bookmarks(BmkNm).Range
BmkRng.Text = Format(Date + 7, "mmmm d, yyyy")
.Bookmarks.Add BmkNm, BmkRng
End If
.Fields.Update
End With
Application.ScreenUpdating = True

End Sub

I'm sure I'll have more questions in the future

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
start a macro with command Line startup switches	Fesazu	Word	3	02-08-2018 12:15 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
StartUP location	ptmuldoon	Word	2	05-12-2015 12:19 PM
Save As Macro using first line of document as document name	redzan	Word VBA	1	01-31-2015 09:24 PM
Merge doc on startup	arkay	Mail Merge	1	03-20-2012 11:50 PM