Paul, great code but it appears to get looped in
Do While .Find.Execute
i = i + 1
DocTgt.Range.Characters.Last.FormattedText = .Duplicate.FormattedText
With DocTgt.Range
If .Characters.Last.Previous <> vbCr Then .InsertAfter vbCr
End With
If .End =...
Baffled, recorded this macro, which achieves the result required. But trying to rerun the macro error of no selection. I think its a brain fade day. Where is the correction needed.
Sub copygreentexttonewdoc()
'
' copygreentexttonewdoc Macro
'
'
Selection.Find.ClearFormatting...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.