#16
|
||||
|
||||
Hi redzan, Try: Code:
Sub Demo() Application.ScreenUpdating = False With ActiveDocument.Content With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "ACCESSION: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})" .Replacement.Text = "###\1," & Format(Now, "MM/DD/YYYY") & ",\3,\4" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute Replace:=wdReplaceAll .Text = "(###[!^13 ]{1,})[ ]{1,}(*^13)" .Replacement.Text = "\1\2" .Execute Replace:=wdReplaceAll .Execute End With Do While .Find.Found .Text = Replace(.Duplicate.Text, " ", "") .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#17
|
|||
|
|||
Works Beautifully. Thank you once again.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How do I assign a macro to a button when the macro is in my personal workbook? | foolios | Excel Programming | 2 | 07-27-2011 02:41 PM |