Chuyển đổi từ Mathtype sang Equations tự động



Đây là cách chuyển đổi tự động các công thức từ Mathtype sang Equations, chương trình chỉ chạy được trên phiên bản office 365 (vì hiện tại đây là bản word duy nhất hỗ trợ công thức Latex).
Đây là code macro:
Sub ChuyenDongSangEqutions()

‘ ChuyenDongSangEqutions Macro


With Selection.Find
.ClearFormatting
.Text = “($$*$$)”
.Replacement.Text = “1”
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
Do While .Execute
Selection.Cut
Selection.OMaths.Add Range:=Selection.Range
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Loop
End With
End Sub
—-
Em xin gửi lời cám ơn đến thầy Châu Ngọc Hùng:
Nhờ những chia sẻ của thầy mà em làm được đoạn code nhỏ nhưng rất cần thiết đối với em.

Nguồn: https://tapkich.net.vn/

Xem thêm bài viết khác: https://tapkich.net.vn/category/cong-nghe/

3 thoughts on “Chuyển đổi từ Mathtype sang Equations tự động

  • em chuyển công thức từ Equation sang Mathtype : Bôi đen -> Mathtype -> Convert equations -> Convert thì không được nó hiện : "No equation were found and/ or updated". Em k rõ làm sao, thầy giúp em với ạ, em cảm ơn nhiều ạ

Leave a Reply

Leave a Reply

Your email address will not be published. Required fields are marked *