VBA Ending a Search

[Brenda A Reid]

I need some vba scripting that would search for the filename field (in both
main document and headers and footers) and replace it with a filename field
(that includes no path) and automatically quit the macro after no more
occurrences of a filename field are found.

I can get it to work but can't get it to loop successfully and then quit
when it reaches the end of the document.

Any help would be appeciated.

Brenda

 

[Greg Maxey]

Sub ScracthMacro()
Dim pRange As Word.Range
Dim oFld As Field
Dim iLink As Long
iLink =
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.StoryType
For Each pRange In ActiveDocument.StoryRanges
For Each oFld In pRange.Fields
Select Case oFld.Type
Case wdFieldFileName
oFld.ShowCodes = True
oFld.Code.Text = Replace(oFld.Code.Text, "\p", "")
oFld.ShowCodes = False
oFld.Update
Case Else
'Do Nothing
End Select
Next
Next
End Sub

I need some vba scripting that would search for the filename field
(in both main document and headers and footers) and replace it with a
filename field (that includes no path) and automatically quit the
macro after no more occurrences of a filename field are found.

I can get it to work but can't get it to loop successfully and then
quit when it reaches the end of the document.

Any help would be appeciated.

Brenda

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org


McCain/Palin '08 !!!