D
Deleted member 199
Guest
1. Chuyển công thức toán thành Tex:
Nguồn tham khảo:
2. Xử lý lệch dòng:
Có vài trường hợp, công thức toán bị lệch dòng so với chữ, để xử lý việc này, logic như sau:
Tìm \[ và thay bằng ${, tìm ]\ và thay bằng }$.
Ghi lại thao tác bằng tay ra mã macro như sau:
Mã:
Sub MathTypeEqnSearchReplace()
Dim shapeNum As Long
Dim eqn As InlineShape
shapeNum = ActiveDocument.InlineShapes.Count
For i = 1 To shapeNum
Set eqn = ActiveDocument.InlineShapes(i)
If eqn.OLEFormat.ClassType = "Equation.DSMT4" Then
eqn.Select
Call MTCommand_TexToggle
Stop 'Xử lý gì đó ở đây tùy ý nếu có lỗi
Call MTCommand_TexToggle
End If
Next
End Sub
Bạn cần đăng nhập để thấy link
2. Xử lý lệch dòng:
Có vài trường hợp, công thức toán bị lệch dòng so với chữ, để xử lý việc này, logic như sau:
Tìm \[ và thay bằng ${, tìm ]\ và thay bằng }$.
Ghi lại thao tác bằng tay ra mã macro như sau:
Mã:
Sub macro_sualechdong ()
...
With Selection.Find
.text = "\["
.Replacement.text = "${"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.text = "\]"
.Replacement.text = "}$"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.Execute Replace:=wdReplaceAll
End With
Application.Run MacroName:="MTCommand_TeXToggle"
End Sub