You can also do this using a nested .Find method:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range, oRngE As Range
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
oRngE.Delete
End If
End With
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Exit Sub
End Sub