Re: Headers, footers and macros

No.

Have a look at this:

Dim r As Range
Set r = ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
With r.Find
..Text = "dk"
..Replacement.Text = "xx"
' clear other options in addition
..Execute Replace:=wdReplaceAll
End With

Greetings from Bavaria

Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

.

Relevant Pages

  • Re: This Simple 2-Line Program Generates An Error! Why?
    ... > Windows generated code, this is all I added to the form: ... > Dim a as String ... Prev by Date: ...
    (microsoft.public.dotnet.languages.vb)
  • Change windows default printer ... Urgent
    ... I'm trying to change the windows default printer using this code: ... but when I execute this code, the error: Method not existis or not ... Prev by Date: ...
    (microsoft.public.dotnet.framework.windowsforms)
  • Re: ganzes Wort markieren
    ... Dim r As Range ... If .Execute Then ... Helmut Weber ... Word XP, Windows 2000 ...
    (microsoft.public.de.word.vba)
  • Win32::Process Kill Process in Windows ME
    ... I want to kill a Process in Windows ME, ... I execute this in ME, ... Prev by Date: ...
    (comp.lang.perl.modules)
  • subprocess.Popen - terminate
    ... I am using subprocess.Popen to execute an executable, ... terminate that process when I want? ... not looking for a windows only solution I need something that is ... Prev by Date: ...
    (comp.lang.python)