Tạo Tool Sửa Lỗi MathType Lệch Dòng Nhanh Chóng Và Hiệu Quả

Trang chủ » Sửa Lỗi Mathtype Bị Lệch Dòng » Tạo Tool Sửa Lỗi MathType Lệch Dòng Nhanh Chóng Và Hiệu Quả

Có thể bạn quan tâm

Hướng dẫn sửa lỗi MathType lệch dòng nhanh chóng và hiệu quả

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 VBA2. Chọn đến Macro (sub) cần chạy3. Click Run

Từ khóa » Sửa Lỗi Mathtype Bị Lệch Dòng