Try this code
Code:
Sub Tag_Strikethroughs()
Dim aRng As Range
Set aRng = ActiveDocument.Range
With aRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.StrikeThrough = True
.Text = ""
Do While .Execute = True
aRng.InsertBefore "{"
aRng.InsertAfter "}"
aRng.Characters.Last.Font.StrikeThrough = False
aRng.Start = aRng.End
aRng.End = ActiveDocument.Range.End
Loop
End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Last edited by Guessed; 06-07-2023 at 07:34 PM.
Reason: Pedantic edit: Changed spelling on macro name for no good reason except it bothered me
|