Lỗi font chữ khi sử dụng VBA trong word (1 người xem)

[chothadiem]

Chào các anh/chị.
Em có sử dụng đoạn code trong Word thì thấy thông báo bị lỗi font
Em đã đánh tiếng viết trong đoạn code vba nhưng sử dụng các loại bảng mã trong Unikey vẫn đều bị lỗi, nhờ các anh/chị giúp em khắc phục với ạ
Em xin cảm ơn!

Dim originalTextBeforeDash As String  ' Bi?n toàn c?c luu tr?ng thái ban d?u

Sub DauGach_Xuongdong()
    Dim myRange As Range
   
    ' Ki?m tra có van b?n du?c ch?n không
    If Selection.Type = wdSelectionIP Then
        MsgBox "Vui lòng ch?n do?n van b?n c?n x? lý", vbExclamation
        Exit Sub
    End If
   
    ' Làm vi?c v?i vùng ch?n
    Set myRange = Selection.Range
   
    ' Luu tr?ng thái ban d?u vào bi?n toàn c?c
    originalTextBeforeDash = myRange.Text
   
    ' Thay th? ng?t dòng m?m (Shift+Enter) b?ng ng?t dòng m?m + d?u g?ch
    With myRange.Find
        .Text = "^l"       ' Ký t? ng?t dòng m?m
        .Replacement.Text = "^l- "  ' Thay b?ng ng?t dòng + d?u g?ch
        .Forward = True
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
   
    ' Thêm d?u g?ch cho dòng d?u tiên n?u chua có
    If Left(myRange.Text, 1) <> "-" Then
        myRange.Text = "- " & myRange.Text
    End If
   
    MsgBox "Ðã thêm d?u '-' vào d?u các dòng xu?ng b?ng Shift+Enter!", vbInformation
End Sub

 

[thuytrangbp28]

VBA không hỗ trợ đầy đủ UNICODE đâu bạn. Bạn tìm trên diễn đàn này có nhiều bài hướng dẫn đấy

 

[Hoàng Tuấn 868]

VBA không hỗ trợ đầy đủ UNICODE đâu bạn. Bạn tìm trên diễn đàn này có nhiều bài hướng dẫn đấy

Với mình thì cứ viết tiếng Việt không dấu là đủ hiểu rồi.

 

[chothadiem]

VBA không hỗ trợ đầy đủ UNICODE đâu bạn. Bạn tìm trên diễn đàn này có nhiều bài hướng dẫn đấy

Cảm ơn ạ, em dùng mã hóa vẫn bị lỗi

Bài đã được tự động gộp: Hôm qua, lúc 13:59

Với mình thì cứ viết tiếng Việt không dấu là đủ hiểu rồi.

Có lẽ vậy tốt hơn ạ