Find text, format part of text in italic

Guessed · #16 04-07-2015, 08:20 PM

This modification to Graham's code would include the footnotes and other document storyranges.

Code:

Sub Demo()
  Const strList As String = ".|,|:|;|?|!"
  Dim vChar As Variant
  Dim i As Long
  Dim oRng As Range
  vChar = Split(strList, "|")
  For i = LBound(vChar) To UBound(vChar)
    For Each oRng In ActiveDocument.StoryRanges
      With oRng.Find
        Do While .Execute(vChar(i))
          oRng.Start = oRng.Start - 1
          If oRng.Characters(1).Font.Italic = True Then
            oRng.Font.Italic = True
          End If
          oRng.Collapse 0
        Loop
      End With
    Next oRng
  Next i
lbl_Exit:
  Exit Sub
End Sub

gmayor · #17 04-07-2015, 09:53 PM

Don't even think of using the master document function. http://word.mvps.org/FAQs/General/Wh...ocsCorrupt.htm

Salix · #18 04-20-2015, 12:27 PM

It has worked beautifully. Like a charm. Thank you all so much again -- you have saved me countless hours of work and a bit of my sanity.

mrsprings · #19 06-30-2022, 11:35 PM

Thanks for this macro. I've used it for adjusting commas. I'm now trying to adapt it to change brackets from italic to roman, but not having much luck.

For e.g., when the text preceding an opening bracket or following a closing bracket is roman, the brackets should be roman (while the text between brackets remains in italics). So example 1 would need to be changed to example 2.

Example 1: the next time (Wednesday) we all went together.
Example 2: the next time (Wednesday) we all went together.

Any suggestions on how this could be done using a macro would be greatly appreciated.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Macro to find text in between two characters and then format selected text?	qcom	Word	5	02-19-2015 11:23 PM
Need help on Macro 03- Find text - if text is blank then remove line	simpleonline1234	Word VBA	1	02-25-2011 02:28 AM
Objective: Automatically export email text,attachment text to DB friendly format	SilentLee	Outlook	0	11-14-2010 02:45 PM
Can't print bold or italic text	cornettd	PowerPoint	1	05-10-2010 10:07 AM