How to search current section header for text?

[SamMurr]

I would like to know if there is a way to search the text of the current section header in Word. Only want to search one section header. What would that code look like? I am new to VBA programming.

Thanks in Advance
Sam Murr

[gmayor]

That's not as straightforward as you might imagine as there are potentially three headers in each section, and those headers may be linked to the preceding or following sections, in which case the header would relate to more than one section. However the following will loop through the headers of the current section, search for the indicated string and if found perform some actions on it.


Sub Macro1()
Dim oRng As Range
Dim oHeader As HeaderFooter
Dim strFind As String
strFind = "Text to find"
For Each oHeader In Selection.Sections(1).Headers
If oHeader.Exists Then
Set oRng = oHeader.Range
With oRng.Find
Do While .Execute(FindText:=strFind)
'do something with orng (the found text) e.g.
oRng.Text = "Replacement Text"
oRng.Font.ColorIndex = wdRed
oRng.Font.Bold = True
oRng.Collapse 0
Loop
End With
End If
Next oHeader
lbl_Exit:
Set oHeader = Nothing
Set oRng = Nothing
Exit Sub
End Sub

[SamMurr]

gmayor.....Thanks a bunch! I think this will help me solve my issue! Thanks again!