[VBA/Word]Giúp mình tự động in nghiêng chữ in hoa chọn sẵn (2 người xem)

[sebastian]

Trong các bài thi trắc nghiệm thường có 4 câu trả lời "A.", "B.", "C.", "D." Mình muốn in nghiêng những chữ này nên viết code sau:

Sub InNghiengA()    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Text = "A."
    If .Font.Italic = False Then
        While .Execute
            Selection.Font.Italic = wdToggle
        Wend
    Else
        While .Execute
            Selection.Font.Italic = wdToggle
        Wend
    End If
    End With
End Sub

Nhưng mà đoạn code này mình chưa chặn được trường hợp "A." với "a." nên word tự động đổi tất cả sang in nghiêng hết.
Xin các anh chị giúp đỡ dùm mình. Mình xin cám ơn rất nhiều