Microsoft Office Forums - View Single Post - can I run a macro when I open a specific doc.

macropod · 01-11-2012, 08:02 PM

Hi shreked,

You can do that by adding the following code to the document's 'This Document' module:

Code:

Private Sub Document_Open()
Dim StrFold As String
With Application
  StrFold = .Options.DefaultFilePath(wdDocumentsPath)
  With .Dialogs(wdDialogFileOpen)
    .Name = "full path to folder, including final \"
    .Show
  End With
  .ChangeFileOpenDirectory StrFold
End With
End Sub

Note that the code switches the folder opening path back to the default after the dialogue is closed.