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