Hi Al,

since it seems you didn't like Find/Replace, here is a macro with string parsing (written in Word2000).

<pre>Dim posPageString, PageString, ShowFC
Dim myRange As Range
ShowFC = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True
PageString = "-" & Chr(19) & " PAGE " & Chr(21) & "-"
Set myRange = ActiveDocument.StoryRanges(wdPrimaryFooterStory)
posPageString = InStr(1, myRange.text, PageString)
If posPageString > 0 Then
' Set myRange to range of -{ PAGE }-
myRange.Start = myRange.Start + posPageString - 1
myRange.Collapse Direction:=wdCollapseStart
myRange.MoveEnd Unit:=wdCharacter, count:=Len(PageString)
myRange.Style = ActiveDocument.Styles(wdStylePageNumber)
End If
ActiveWindow.View.ShowFieldCodes = ShowFC</pre>


Ranges that include fields always jump by a count of two at the end of the field (so myRange.End=myRange.Start+Len(PageString) would bomb) -- seems to be a bug.

<img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>Regards Klaus