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