Find equations in word and save each out as separate file
问题 I would like to go through a Word doc, using vba, to take each equation, save it to the clipboard, open a new blank doc, and save that out as a pdf file. I found two pieces of code which should help me get started but neither get very far: 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)