Microsoft Office Forums - View Single Post

Guessed · 05-06-2021, 04:59 PM

This works for me...

Code:

Sub BreakEquations()
  Dim aField As Field
  For Each aField In ActiveDocument.Fields
    If aField.Type = wdFieldEmbed Then
        If InStr(1, aField, "Equation.3") Then aField.Unlink
    End If
  Next aField
End Sub

Credit: I found this post by Siddharth Rout which contained the clue excel - How to find equation editor in word document using VBA? - Stack Overflow