Hi All,
       I'm trying to learn enough about Range objects and Find (et. al.)
to do some reformatting of a long document.  I got the code below from
Jay, and it works like a charm, but I don't grasp how entirely.

       I understand that if I use Find on a Range object, the range
object is redefined if the Find is successful.  In the code below, the
oRg range is originally set to the whole document.  When the Find
executes, it appears that the oRg Start and End are redefined to bound
just the reference field found.

       I expected that only the start point of the range would be
redefined, but oIns is a duplicate of it.  When oIns is collapsed to its
end, it's the end of the field found, not the end of the document.

       So...  if oRg has been redefined to bound only the found field,
how does Find get beyond that range to find the next matching field,
later in the document, on the next loop???

       Also, given the code below, how can I access the text of the field
that is found?  The variable strCode is set to the reference code
itself, with brackets and big numbers.  I want to get the text that is
actually visible in the document.  In my case, it's the name of a
header.  Ho do I get to that?

Thanks, Max

Sub AddPageNumberRefs()
   Dim oRg As Range
   Dim oIns As Range
   Dim strCode As String
   Dim fldPg As Field
   
   Set oRg = ActiveDocument.Range
   oRg.TextRetrievalMode.IncludeFieldCodes = True
   With oRg.Find
       .Forward = True
       .Format = True
       .Style = ActiveDocument.Styles("Cross-reference Char")
       .Text = "^d REF"
       Do While .Execute
           strCode = oRg.Fields(1).Code.Text
           Set oIns = oRg.Duplicate
           With oIns
               .Collapse wdCollapseEnd
               .Text = ", pg "
               .Collapse wdCollapseEnd
               Set fldPg = ActiveDocument.Fields.Add(Range:=oIns, Type:
=wdFieldEmpty)
               fldPg.Code.Text = " PAGE" & LTrim(strCode)
               fldPg.Update
           End With
        Loop
   End With
End Sub