View Single Post
 
Old 04-17-2018, 03:33 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,371
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

If you just do a plain copy/paste, any Styles applied to the copied range will be pasted to the destination document. However, since the code I posted eliminates all Style information (except for keeping the basic Normal Style), that shouldn't be an issue. In any event, using the 'keep text only' paste option will not transfer any Style information.

For the copying, all you need do is insert:
.Copy
after:
.HighlightColorIndex = wdNoHighlight

For the pasting, all you need do is insert:
ActiveDocument.Range.Paste
after:
Application.ScreenUpdating = False
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote