find and replace with format

karkey · #1 08-02-2022, 10:30 AM

While replace I need to italic and highlight the word (et^sal).

Code:

Sub etalnew()
  Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    
    Options.DefaultHighlightColorIndex = wdDarkYellow
    Selection.Find.Replacement.Highlight = True
    
    With rngStory.Find
      .Text = "<et al>"
      .Replacement.Text = "et^sal"
      .Replacement.Highlight = True
      .Wrap = wdFindContinue
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
  Next rngStory
End Sub

Souriane · #2 08-02-2022, 02:14 PM

Your code work just fine. There is only this line missing :

Code:

Selection.Find.Replacement.Font.Italic = True

under

Code:

Selection.Find.Replacement.Highlight = True

macropod · #3 08-02-2022, 03:04 PM

Try:

Code:

Sub etalnew()
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdDarkYellow
Dim rngStory As Range
For Each rngStory In ActiveDocument.StoryRanges   
  With rngStory.Find
    .Text = "<et al>"
    .Replacement.Text = "et^sal"
    .Replacement.Highlight = True
    .Replacement.Font.Italic = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
Next rngStory
Application.ScreenUpdating = True
End Sub

Do note that textboxes, for example, won't be processed by such code and that Find/Replace is a bit flakey with page headers & footers. If you have 'et al' in any of those, you might need different code. See: Using a Macro to Replace Text Wherever It Appears in a Document

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
find/replace date format improvement?	LQuinn	Word VBA	2	05-14-2021 11:15 PM
Find/Replace using format of cell	catflap	Excel	1	09-11-2017 07:28 AM
Find and Replace maintain format	winningson	Word	3	01-19-2013 05:38 AM
Find and Replace Format macro issue	Jack	Word VBA	2	12-12-2012 09:24 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM