使用VBA自动化MathO

Question

我可以使用VBA通过随附的方程式工具第三方软件将方程式插入MS Word文档。 问题出在我想退出等式edior并编写普通的MS Word文本时。 这必须使用VBA自动化。 这是我用来插入代码的VBA代码：

Set objRange = Selection.Range
Set objRange = Selection.OMaths.Add(objRange)
Selection.TypeText s
Set objEq = objRange.OMaths(1)
objEq.Type = wdOMathInline
objEq.BuildUp

让我更清楚地说明这个问题：我希望方程式编辑器的文本位于普通文本的段落内，就像我希望能够在此文本段的纯文本段落内包含粗体文本一样。

Answer 1

我使用Selection.TypeParagraph从公式编辑器中逃脱了一些成功：

Set objRange = Selection.Range
Set objRange = Selection.OMaths.Add(objRange)
Selection.TypeText "Equation Text"
Selection.TypeParagraph
Selection.TypeText "Regular Text"
Set objEq = objRange.OMaths(1)
objEq.Type = wdOMathInline
objEq.BuildUp

让我知道这是否适合您。