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

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