![]() |
|
#1
|
||||
|
||||
![]()
This works for me:
Code:
Sub Demo() With ActiveDocument.Content.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Replacement.Text = "" .Format = True .Font.Hidden = True .Forward = True .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
TAFE | Word | 4 | 11-04-2009 02:50 AM |
Macro library | pankajkankaria | Excel | 1 | 04-12-2009 09:06 AM |
macro on checkbox | macrohelp | Word VBA | 0 | 03-06-2009 03:33 PM |
Unable to run the specified macro | jtrirogoff | Word | 0 | 02-05-2009 04:38 PM |
Macro Issue | Basanth | Excel | 1 | 12-05-2008 08:07 PM |