Sub ScratchMacro()
'Modifications to Word macro originally coded by Greg Maxey
Dim oRng As Range, oRngE As Range, oRngF As Range, sFind As String
  sFind = "That Guy's Cats"
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Research Refs"
    .Font.Bold = True
    While .Execute
      Set oRngE = oRng.Duplicate
      oRngE.End = ActiveDocument.Range.End
      With oRngE.Find
        .Text = "§"
        .Font.Bold = True
        If .Execute Then
          oRngE.Start = oRng.Start
            Set oRngF = oRngE.Duplicate
            With oRngF.Find
              .Text = sFind
              .ClearFormatting
              If .Execute Then
                oRngE.Start = oRng.Start
                oRngE.End = oRngF.End
                'oRngE.Select
              End If
            End With
          oRngE.Delete
        End If
      End With
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub