It would be helpful if you fully described what you're trying to achieve. This constant back & forth is a major time-waster.
Code:
Sub RemovePeriod()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.ClearFormatting: .Replacement.ClearFormatting: .Style = "LeftTitle"
.Execute FindText:=".^p", ReplaceWith:="^p", Forward:=True, Wrap:=wdFindContinue, Format:=True, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub