Convert equation objects to inline objects

sumjoh · #1 01-05-2013, 10:12 AM

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?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't Shift Objects Off Sheet - What is that?	namedujour	Excel	5	05-13-2011 06:30 AM
Shrinking objects in powerpoint	lrae	PowerPoint	0	03-01-2011 10:36 AM
Shape Objects	Space Cowboy	PowerPoint	4	10-04-2010 07:14 PM
NOprintable objects	shadowbat	Drawing and Graphics	0	07-05-2010 10:13 PM
Group objects in Office	Alfie	Drawing and Graphics	3	04-16-2009 10:24 AM