Hello from Steved

Sub Win2()
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
 Do While .Execute(FindText:="F [0-9]:[0-9]:[0-9]", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
    Selection.Range.Delete
    Loop
   End With
End Sub

How do I turn on the extend then find Font 30 and once found and highlited
move back by -2 count and then delete, and now put this in the above macro
please.

Please look at the below to give yourself an Idea as to what I am trying to
do.

   Selection.Extend
   Selection.Find.ClearFormatting
   With Selection.Find.Font
       .Size = 30
       .Bold = True
  End With
  With Selection.Find
       .Text = ""
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindAsk
       .Format = True
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.MoveLeft Unit:=wdWord, Count:=1
   Selection.Delete Unit:=wdCharacter, Count:=1

Thankyou.