How to find and select text in a document?

macropod · #6 02-04-2014, 07:34 PM

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

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