I have a Word 2002 document produced from an external application with
many Equation editor objects. However, the equations do not properly
line up with the other text on the line. If I select an equation and open
the Equation editor then close it without making any changes, the
misalignment gets corrected. I need a macro to go through the document
and for each Equation Editor object, open Equation Editor and close it.
I recorded a macro to do this with Find ^g. (I did get help with the
SendKeys to close the application). It works OK until it finds a graphic
which is not Equation Editor then halts. I think I need to add
something like this:
If .Type = msoLinkedOLEObject Then
If .OLEFormat.ClassType = "Microsoft Equation 3.0" Then
But I cannot figure out where and how to do this.
Your help is greatly appreciated.
Sub OpenCloseEqEd()
'
' Macro recorded 2/4/2004
Application.DisplayAlerts = wdAlertsNone
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
Do While .Execute
Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=1
With Selection.Application
SendKeys "%fx", True
End With
Loop
End With
End Sub