Thread: [Solved] Putting italics back into a document
View Single Post
 
Old 12-06-2011, 07:54 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
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
It'd be far easier if you simply copied the formatted source document to a new file, then used Format|Font|Regular on the whole of the target document before running the macro. If you need to clean up paragraph breaks in the target document, that's easily done too - by the addition of some code after the 'Loop' statement:
Code:
With Doc.Range
  With .Find
    .ClearFormatting
    .Text = "[^13]{2,}"
    .Replacement.Text = "^p"
    .MatchWildcards = True
    .Execute wdReplaceAll
  End With
End With
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote