Tạo Tool sửa lỗi MathType lệch dòng nhanh chóng và hiệu quả
MathType bị lệch dòng là 1 lỗi rất hay gặp khi soạn tài liệu và khi gặp lỗi này thì file Word của chúng ta sẽ trở nên "xấu xí" phải không Thầy, Cô. Thật ra có nhiều cách xử lý lỗi này
1. Click đúp và công thức rồi nhấn Ctrl+S
2. Dùng các Tool miễn phí sửa lệch dòng: Theo như mình biết các Tool này đều sử dụng phương thức chuyển công thức MathType về công thức Latex bằng Togglex và dùng vị trí Normal, sau đó Togglex lần nữa để chuyển về công thức MathType nên tốc độ xử lý khá chậm, nếu chạy nhiều công thức, có thể dẫn đến tình trạng bị đơ máy.
Hôm nay mình giới thiệu với quý Thầy, Cô Macro sửa lỗi MathType lệch dòng và nhanh chóng, code VBA này của Thầy Kiên Lê (Thầy Lê Trung Kiên) chia sẻ ở Facebook cá nhân. Xin cám ơn Thầy!
Quý Thầy, Cô nào đã tìm hiểu qua về VBA Word thì việc sử dụng code VBA này rất dễ dàng. Ở đây, mình chia sẻ cách sử dụng với quý Thầy, Cô lần đầu dùng code VBA
Quý Thầy, Cô khởi động Word, nhấn tổ hợp phím tắt All+F11
Ở phần Modules, nếu có 1 Module tên là NewMacros thì Thầy, Cô click đúp vào Module này và dán code vào, lưu lại là sử dụng được luôn.
Trong trường hợp, phần Modules mà chưa có Module nào hết thì Thầy, Cô chèn thêm Module vào nhé!
Tiếp theo, quý Thầy, Cô click đúp vào Module cần sử dụng, dán code VBA vào và lưu lại để sử dụng
Code VBA
Sub fix_mathtype_lech_dong()
Dim hinh As InlineShape
For Each hinh In ActiveDocument.InlineShapes
If hinh.OLEFormat.ClassType = "Equation.DSMT4" Then
hinh.OLEFormat.ConvertTo ("Equation.DSMT4")
End If
Next
End Sub
Sau khi đã lưu lại, để chạy code trên: Thầy, Cô vào Word, nhấn tổ hợp phím Alt+F8. Màn hình xuất hiện như sau:
Ở bước này, Thầy, Cô lưu ý sử dụng theo thứ tự sau:
1. Phần Macros in: Normal.dotm (Global template) - Vị trí nơi lưu code VBA
2. Chọn đến Macro (sub) cần chạy
3. Click Run