![]() |
|
#6
|
||||
|
||||
|
Basic code produced using the macro recorder:
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("Body Text")
With Selection.Find
.Text = "Synopsis"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
| Tags |
| macro find text |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Select a area in a Word Document
|
Peter Stahl | Word VBA | 2 | 08-09-2013 03:18 AM |
Unable to Select Multiple folders in Outlook 2007 Advance Find
|
gregory | Outlook | 2 | 04-28-2012 10:53 PM |
Select statement to a new document
|
ishaw | Word | 1 | 10-17-2011 02:23 AM |
| Unable to select anything in an MS Word Document | PaulT | Word | 0 | 08-08-2011 07:45 PM |
Select printer to document
|
JosL | Office | 3 | 03-07-2009 12:40 PM |