Hi, I'm using the following macro to convert floating equation objects that appear as display equations (not run on with text) to inline objects
Code:
Sub ConvertToInline()
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Select Case ActiveDocument.Shapes(i).Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoLinkedPicture, msoOLEControlObject, msoPicture, _
wdInlineShapePicture, wdInlineShapeLinkedPicture: ActiveDocument.Shapes(i).ConvertToInlineShape
End Select
Next i
End Sub
The macro seems to work fine, but after conversion the text that precedes some of the equations are run on at the end of the equations, which is not what I want. I need the equations to remain on separate lines by themselves (i.e. as display equations).
Can someone help with this?