Tự Động Chuyển Đổi LaTeX Sang Word Bằng VBA (Bản v2: Bắt Lỗi Cú Pháp & Bôi Vàng Công Thức Hỏng)

Sub ConvertAllInlineAndDisplayLatex_Realtime_v2()
    Dim doc As Document
    Dim R As Range
    Dim R_Equation As Range
    Dim Latex As String
    Dim countSuccess As Long
    Dim countFail As Long

    Set doc = ActiveDocument
    countSuccess = 0
    countFail = 0
    
    ' Bat cap nhat man hinh de nguoi dung theo doi truc quan
    Application.ScreenUpdating = True

    ' =======================================================
    ' GIAI DOAN 1: TIM VA CHUYEN DOI DANG DO LA DOI $$...$$
    ' =======================================================
    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
        
        If Len(Latex) > 0 Then
            R_Equation.Text = Latex
            doc.OMaths.Add R_Equation
            
            ' Bay loi neu cu phap LaTeX khong hop le
            On Error Resume Next
            R_Equation.OMaths(1).BuildUp
            If Err.Number <> 0 Then
                countFail = countFail + 1
                R_Equation.HighlightColorIndex = wdYellow ' Boi vang de kiem tra lai
                Err.Clear
            Else
                countSuccess = countSuccess + 1
            End If
            On Error GoTo 0
        End If
        
        ' Cuon man hinh va cap nhat tien do xu ly
        R_Equation.Select
        DoEvents
        Application.StatusBar = "Dang xu ly $$: Thanh cong " & countSuccess & " | Loi: " & countFail
        
        ' Dich con tro tim kiem tiep theo ra sau cong thuc vua xu ly
        R.Start = R_Equation.End
    Loop

    ' =======================================================
    ' GIAI DOAN 2: TIM VA CHUYEN DOI DANG DO LA DON $...$
    ' =======================================================
    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
        
        If Len(Latex) > 0 Then
            R_Equation.Text = Latex
            doc.OMaths.Add R_Equation
            
            ' Bay loi neu cu phap LaTeX khong hop le
            On Error Resume Next
            R_Equation.OMaths(1).BuildUp
            If Err.Number <> 0 Then
                countFail = countFail + 1
                R_Equation.HighlightColorIndex = wdYellow ' Boi vang de kiem tra lai
                Err.Clear
            Else
                countSuccess = countSuccess + 1
            End If
            On Error GoTo 0
        End If
        
        R_Equation.Select
        DoEvents
        Application.StatusBar = "Dang xu ly $: Thanh cong " & countSuccess & " | Loi: " & countFail
        
        R.Start = R_Equation.End
    Loop

    ' Tra ve trang thai mac dinh
    Application.StatusBar = False
    MsgBox "Hoan tat!" & vbCrLf & _
           "- Chuyen doi thanh cong: " & countSuccess & " cong thuc" & vbCrLf & _
           "- Loi cu phap: " & countFail & " (da duoc boi vang trong van ban)", _
           vbInformation, "Thong Bao Ket Qua"
End Sub