Pre-defined locations

This macro, for instance, changes the text in just the header of the first section:

Sub HeaderFooterObject()
  Dim MyText As String
  MyHeaderText = "This would be your text"
  With ActiveDocument.Sections(1)
   .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
  End With
End Sub

When you use Edit>Replace in Word, it does a fine job of locating all occurrences of the target in the body of the document or in the header or footer.

Something fails, however, when you record the action and try to run it as a macro. To make it work, you must loop through the built in ranges of a Word document.

The exercise is interesting if only for the exposure to the built in ranges such as:

• wdCommentsStory
  
• wdEndnotesStory
  
• wdEvenPagesFooterStory
  
• wdEvenPagesHeaderStory
  
• wdFirstPageFooterStory
  
• wdFirstPageHeaderStory
  
• wdFootnotesStory
  
• wdMainTextStory
  
• wdPrimaryFooterStory
  
• wdPrimaryHeaderStory
  
  and
  
• wdTextFrameStory.

See this article for more information:

Word.MVPS.org:
Find and replace with VBA

Also:

Microsoft KB
VBA macro examples to insert text into a document



See all Topics
word

Labels: Macros, Tips, Tutorials, VBA