Macro: Uppercase an unicode character after a dot

Viết hoa các ký tự unicode sau dấu chấm câu.

Lỗi hay gặp trong các văn bản là thiếu viết hoa sau chấm ngắt câu. các macro thông thường làm việc nầy chỉ tốt với các ký tự phụ âm và nguyên âm không dấu thanh (tiếng Việt, vd: ẩ, ắ...).
Macro sau đây sẽ viết HOA các ký tự sau dấu chấm ngắt câu, bất kể ký tự đó thuộc ASCII hay UNICODE.


Sub UCaseAfterDot()
    With Selection.Find
        .ClearFormatting
        .Text = ". ?"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute ' truongphu@caulacbovb.com
        While .Found
            Selection.Collapse Direction:=wdCollapseEnd
            Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
            Selection.Text = UCase(Selection.Text)
            Selection.Collapse Direction:=wdCollapseEnd
            .Execute
        Wend
    End With
End Sub

Hay không?