How to delete all the equations in a document?

[Danny]

To delete all shapes/tables, I used
For Each obj In ActiveDocument.Shapes
obj.Delete
Next

For Each tbl In ActiveDocument.Tables
tbl.Delete
Next

Is there something similar to delete all the equations?

 

[Graham Mayor]

You could use

With ActiveDocument
For i = .Fields.Count To 1 Step -1
If .Fields(i).Type = wdFieldEmbed Then
If InStr(1, .Fields(i), "Equation.3") Then
.Fields(i).Delete
End If
End If
Next i
End With

or

For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldEmbed Then
If InStr(1, oField, "Equation.3") Then
oField.Delete
End If
End If
Next oField


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Danny]

It doesn't work.
When I display the Fields.Count in a msgbox, I get the result "0".
With <Alt>+F9, I don't see codes either!
I'm sure that the equation is in the document, I can see it in a box when I
click on it.

 

[Stefan Blom]

I believe Graham's code only works with the Microsoft Equation 3 objects of
Word 97-2003. Are you perhaps using Word 2007 and the new equation feature
available in that version?

 

[Danny]

Yes, I'm using Word2007!

I believe Graham's code only works with the Microsoft Equation 3 objects of
Word 97-2003. Are you perhaps using Word 2007 and the new equation feature
available in that version?

 

[Stefan Blom]

I suspect that you cannot access Word 2007 equations via VBA (but I could be
wrong).

 

[Jay Freedman]

Stefan, you may be pleased to know that you can access (and manipulate!) the
new equations, using the OMaths collection and a lot of new machinery
associated with it.

Danny, here's the code you want:

Sub DeleteAllEqs()
Dim eq As OMath
For Each eq In ActiveDocument.OMaths
eq.Range.Delete
Next
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Stefan Blom]

That is good news. Thank you for explaining this, Jay.