Microsoft Office Forums - View Single Post - Find Bookmark, move to bookmark, execute code, repeat

gmaxey · 04-15-2016, 06:30 AM

Try this:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Field
Dim oRng As Range
  For Each oFld In ActiveDocument.Range.Fields
    If oFld.Type = wdFieldAsk Then
      If InStr(oFld.Code, "TranscriptPage") > 0 Then
        Set oRng = oFld.Code
        oRng.Collapse wdCollapseStart
        oRng.Select
        oFld.Update
      End If
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub