G
Guest
I am trying to create a macro to find text that has been struckthrough and
replace it with text that is still struckthrough but hidden.
When I use the macro recorder this is what I get (the find and replace
command works great but the macro does not do anything):
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
From what I can tell I need to insert something in between the quotes but am
not sure what to insert. I am using Word 2002.
Thanks,
David
replace it with text that is still struckthrough but hidden.
When I use the macro recorder this is what I get (the find and replace
command works great but the macro does not do anything):
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
From what I can tell I need to insert something in between the quotes but am
not sure what to insert. I am using Word 2002.
Thanks,
David