VBA macro to replace strings in italics with italics style

Guessed · #3 09-25-2023, 08:13 PM

At its simplest, it is just a simple find and replace that doesn't require special loop handling of the .Found result

Code:

Sub Macro1()
  Dim aRng As Range
  For Each aRng In ActiveDocument.StoryRanges
    With aRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = ""
      .Replacement.Text = ""
      .Font.Italic = True
      .Replacement.Style = ActiveDocument.Styles("Emphasis")
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  Next aRng
End Sub

However, there can be real complexity depending on what you are searching for. For instance, if there is content with a paragraph style including the Italic then the doubling up with a character style will remove the italics. This is because the Italics is a toggle setting and if italic is turned on twice (first by paragraph style and then by character style) then you have toggled it on, then off again.
Also, applying a character style to text which has multiple local font attributes (eg italic AND bold AND a different colour) will remove the 'other attributes' when the character style is applied.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
italics for another language	mga	Word	1	04-16-2018 03:58 AM
How can I find paragraphs all in italics?	Robert2	Word	1	01-28-2014 02:54 PM
Font style keeps changing to Italics	B33J	Word	1	07-24-2013 01:46 PM
How to retain italics when pasting from PDF?	WaltR	Word	0	03-01-2011 04:01 PM
Spellcheking, grammar and italics	Rosseiro	Word	0	08-20-2010 10:07 PM