Hi there!

I am using the following VBA script to replace information in the header of all documents at a specific path. I need help adjusting the script to replace all header info in all documents at the same path as the word file with the VBA script (relative). Basically i have a Word docx with the VBA script and want to be able to copy it to multiple directories and have it edit the files in the directory where it is saved. The script currently works with specific paths only.

I am using the latest MS Word version.


Sub ReplaceEntireHdr()
    Dim wrd As Word.Application
    Set wrd = CreateObject("word.application")
    wrd.Visible = True
    AppActivate wrd.Name
     'Change the directory to YOUR folder's path
    FName = Dir("C:\temp\*.doc")
    Do While (FName <> "")
        With wrd
             'Change the directory to YOUR folder's path
            .Documents.Open ("C:\Temp" & FName)
            If .ActiveWindow.View.SplitSpecial = wdPaneNone Then
                .ActiveWindow.ActivePane.View.Type = wdPrintView
            Else
                .ActiveWindow.View.Type = wdPrintView
            End If
            .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
            .Selection.WholeStory
            .Selection.Paste
            .ActiveDocument.Save
            .ActiveDocument.Close
        End With
        FName = Dir
    Loop
    Set wrd = Nothing
End Sub