Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
If ActiveDocument.Paragraphs(1).Range.Characters(1).Text = "P" Then
If ActiveDocument.Paragraphs(1).Range.Characters(2) Like _
"[" & Chr(13) + Chr(11) + Chr(32) + Chr(9) + Chr(160) & "]" Then
ActiveDocument.Paragraphs(1).Range.Characters(1).Delete
End If
End If
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "[" & Chr(13) + Chr(11) + Chr(32) + Chr(9) + Chr(160) & "]P" _
& "[" & Chr(13) + Chr(11) + Chr(32) + Chr(9) + Chr(160) & "]"
.MatchCase = True
.MatchWildcards = True
While .Execute
oRng.Start = oRng.Start + 1
oRng.End = oRng.End - 1
oRng.Delete
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Exit Sub
End Sub