Tự Động Chuyển Đổi Công Thức Toán LaTeX Sang Word Bằng VBA (Kèm Code & Lưu Ý Kỹ Thuật)

Sub ConvertAllInlineAndDisplayLatex_Realtime()
    Dim Doc As Document
    Dim R As Range
    Dim R_Equation As Range
    Dim Latex As String
    Dim countTotal As Long

    Set Doc = ActiveDocument
    countTotal = 0
    
    ' Bật cập nhật màn hình để theo dõi tiến trình
    Application.ScreenUpdating = True

    ' =======================================================
    ' GIAI ĐOẠN 1: TÌM VÀ CHUYỂN ĐỔI DẠNG ĐÔ LA ĐÔI $$...$$
    ' =======================================================
    Set R = Doc.Content
    With R.Find
        .ClearFormatting
        .Text = "\$$([!\$]@)\$$"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
    End With

    Do While R.Find.Execute
        Set R_Equation = R.Duplicate
        Latex = R_Equation.Text
               
        
        ' Gán lại text thuần và dựng công thức OMath
        R_Equation.Text = Latex
        Doc.OMaths.Add R_Equation
        R_Equation.OMaths(1).BuildUp
        
        countTotal = countTotal + 1
        
        ' Cuộn màn hình và cập nhật tiến trình
        R_Equation.Select
        DoEvents
        Application.StatusBar = "Dang chuyen doi cong thuc $$: da xu ly" & countTotal & " muc..."
        
        ' Dời con trỏ tìm kiếm ra sau công thức vừa xử lý
        R.Start = R_Equation.End
    Loop

    ' =======================================================
    ' GIAI ĐOẠN 2: TÌM VÀ CHUYỂN ĐỔI DẠNG ĐÔ LA ĐƠN $...$
    ' =======================================================
    Set R = Doc.Content
    With R.Find
        .ClearFormatting
        .Text = "\$([!\$]@)\$"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
    End With

    Do While R.Find.Execute
        Set R_Equation = R.Duplicate
        Latex = R_Equation.Text
                
        R_Equation.Text = Latex
        Doc.OMaths.Add R_Equation
        R_Equation.OMaths(1).BuildUp
        
        countTotal = countTotal + 1
        
        R_Equation.Select
        DoEvents
        Application.StatusBar = "Dang chuyen đoi cong thuc $: da xu ly " & countTotal & " muc..."
        
        R.Start = R_Equation.End
    Loop

    ' Trả lại trạng thái mặc định của Word
    Application.StatusBar = False
     MsgBox "Hoan tat! Tong cong da chuyen doi " & countTotal & " cong thuc.", vbInformation, "Thong Bao"
End Sub