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

Thứ hai - 01/04/2019 17:02
In ra
Đóng cửa sổ này

Trong quá trình sử dụng Microsoft Office, quý thầy cô cần thay đổi màu của công thức Mathtype có thể xem các cách làm được hướng dẫn trong bài viết sau đây

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

Tác giả bài viết: Nguyễn Duy Chiến

Thư viện tư liệu Toán học Bắc Trung Nam

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