查找單詞中的方程並將每個單獨保存爲單獨的文件

Question

我想通過Word文檔使用vba獲取每個方程，將其保存到剪貼板，打開一個新的空白文檔並將其保存爲pdf文件。

我發現了兩段代碼，這應有助於我上手但也走得很遠：

Sub get_eqns() 
    Dim eqns As OMath 
    Dim para As Paragraph 

    For Each eqns In ActiveDocument.OMaths 
     With eqns.Range.Select 
      ' 
      '~~> Rest of the code 
      ' 
     End With 
    Next 

    For Each para In ActiveDocument.Paragraphs 
     If para.Range.OMaths(1) = True Then 
      para.Range.OMaths(1).Range.Select 
      With Selection 
       .CopyAsPicture 
      End With 
     End If 
    Next 
End Sub 

Answer 1

我找到了解決方案，並希望分享：

Sub get_eqns() 

Dim i As Integer 
For i = 1 To OMaths.Count 
    'your code here 

    OMaths.Item(i).Range.Select 
    Selection.Copy 

     'Do other code here to open new doc, etc 

    Selection.Paste 
Next i 
End Sub 

我的代碼爲其他部分，這位行頭正在閱讀word文檔。

謝謝。