i used
Sub Macro2()
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorAutomatic
Selection.Find.Replacement.ClearFormatting
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.WholeStory
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy
Documents.Add Template:= _
"C:\WINDOWS\Profiles\amarczewski\Application Data\Microsoft\Templates\Normal.dot" _
, NewTemplate:=False, DocumentType:=0
Selection.Paste
Selection.WholeStory
Selection.Font.Color = wdColorAutomatic
Selection.EndKey
End Sub
then i just undo on the original doc
is there a eay to go back to the original doc and then run an undo?