Microsoft Office Forums - View Single Post - [Solved] Find text, format part of text in italic

gmayor · 04-06-2015, 09:45 PM

It is a bit difficult to determine what is a 'title' without knowing how the document is formatted, but the following should format any of the listed characters (separated by the pipe character) that follows a character formatted as italic.

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)
        Set oRng = ActiveDocument.Range
        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 i
lbl_Exit:
    Exit Sub
End Sub