Chuyển màu công thức Mathtype hàng loạt trong Word

1. Đổi màu công thức Mathtype bằng chức năng Toogle Tex.
Để thực hiện theo cách này, quý thầy cô làm theo các bước sau
B1. Đồng bộ hóa công thức Mathtype
B2. CTRL + A và chọn Toggle Tex (Nếu công thức có \[ và \] thì tiếp B3 và B4)
B3. CTRL + H thay thế toàn bộ \[ bởi $.
B4. CTRL + H thay thế toàn bộ \] bởi $.
B5. CTRL + H thay thế toàn bộ $ bởi $\color{màu} màu = blue, red, white, green, ...
B6. CTRL + A và chọn Toggle Tex B7. CTRL + H thay thế toàn bộ \color{màu} bởi không gì cả . Vậy là xong.
Video hướng dẫn chi tiết

 
2. Sử dụng Code VBA.

Sub ChangeColorMT()
mau = "$\color{blue}"
Application.ScreenUpdating = False
Selection.WholeStory
Application.Run MacroName:="MTCommand_TeXToggle"

 With Selection.Find
        .ClearFormatting
        .text = "($)(*$)"
        .Replacement.text = "#$" & "\2"
        .Replacement.ClearFormatting
        .Wrap = wdFindContinue
        .MatchCase = True
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll, Forward:=True
    End With
 With Selection.Find
        .ClearFormatting
        .text = "#$"
        .Replacement.text = mau
        .Replacement.ClearFormatting
        .Wrap = wdFindContinue
        .MatchCase = True
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll, Forward:=True
    End With

 With Selection.Find
        .ClearFormatting
        .text = "\["
        .Replacement.text = mau
        .Replacement.ClearFormatting
        .Wrap = wdFindContinue
        .MatchCase = True
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll, Forward:=True
    End With
 With Selection.Find
        .ClearFormatting
        .text = "\]"
        .Replacement.text = "$"
        .Replacement.ClearFormatting
        .Wrap = wdFindContinue
        .MatchCase = True
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll, Forward:=True
    End With
Selection.WholeStory
Application.Run MacroName:="MTCommand_TeXToggle"
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = True
End Sub

Video hướng dẫn