![]() |
|
#1
|
||||
|
||||
![]()
Try:
Code:
Sub Demo() Application.ScreenUpdating = False Dim DocSrc As Document, DocTgt As Document Set DocSrc = ActiveDocument Set DocTgt = Documents.Add With DocSrc.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "\<*\>" .Replacement.Text = "" .Format = False .Forward = True .Wrap = wdFindStop .MatchWildcards = True .Execute End With Do While .Find.Found DocTgt.Range.InsertAfter .Text & vbCr .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#2
|
|||
|
|||
![]()
Ah, thank you so much! That seems to be exactly what I need. I appreciate the tip about the hashtags on the menu for codes too.
You're awesome! |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
copy a row and paste the row into another sheet more then one time:macro | waqar1239 | Excel Programming | 1 | 04-07-2017 09:57 AM |
![]() |
rsrasc | Excel Programming | 1 | 09-24-2016 01:25 AM |
![]() |
PRA007 | Word VBA | 2 | 10-17-2015 01:07 AM |
![]() |
rsrasc | Word VBA | 3 | 11-11-2014 03:55 PM |
![]() |
jperez84 | Word VBA | 10 | 09-19-2012 04:48 PM |