Find and replace

Find and select text

With Selection.Find
 .Forward = True
 .Wrap = wdFindStop
 .Text = "Text you need to find"
 .Execute
End With

Bold the text that you are looking for:

With ActiveDocument.Content.Find
 .Text = "The text you are looking for"
 .Forward = True
 .Execute
 If .Found = True Then .Parent.Bold = True
End With

Replace all occurances

With Selection.Find
 .ClearFormatting
 .Text = "Text you are looking for"
 .Replacement.ClearFormatting
 .Replacement.Text = "Text you are replacing it with"
 .Execute Replace:=wdReplaceAll, Forward:=True, _
 Wrap:=wdFindContinue
End With

Look for bold formatting and remove it
With ActiveDocument.Content.Find
 .ClearFormatting
 .Font.Bold = True
 With .Replacement
 .ClearFormatting
 .Font.Bold = False
 End With
 .Execute FindText:="", ReplaceWith:="", _
 Format:=True, Replace:=wdReplaceAll
End With


Comments

Post a Comment

Popular posts from this blog

Formatting

Format selected text (change font, size, etc)  With Selection.Font  .Name = "Times New Roman"  .Size = 14  .AllCaps = True  End With  With Selection.ParagraphFormat  .LeftIndent = InchesToPoints(0.5)  .Space1  End With Apply formatting to a range of paragraphs  Dim rngFormat As Range  Set rngFormat = ActiveDocument.Range( _  Start:=ActiveDocument.Paragraphs(1).Range.Start, _   End:=ActiveDocument.Paragraphs(3).Range.End)  With rngFormat  .Font.Name = "Arial"  .ParagraphFormat.Alignment = wdAlignParagraphJustify  End With For more adjustments: Dim rngFormat As Range  Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)  With rngFormat  .InsertAfter Text:="Title"  .InsertParagraphAfter  With .Font  .Name = "Tahoma"  .Size = 24  .Bold = True  End With  End With  With ActiveDocu...
Read more

Page setup

Create a new page break which is in landscape format (in between pages)  If Documents.Count > 0 Then         ' The user has a document open, so insert a         ' landscape section.         With Selection             ' Do not accidentally over-write selected text             .Collapse Direction:=wdCollapseStart             ' Insert section breaks with blank paragraphs             ' in the new section.             .TypeParagraph             .Style = ActiveDocument.Styles(wdStyleNormal)             .InsertBreak Type:=wdSectionBreakNextPage             .TypeParagraph             .TypeParagraph             .TypePar...
Read more