Converting Microsoft Equation

NameIsJustAnIllusion · #1 05-06-2021, 02:56 AM

I know how to convert Office Math to normal text but how do I convert Microsoft Equation 3.0 Object to Office Math or directly to normal text?

Sample.png

I tried recording a macro but it did not return anything.

NameIsJustAnIllusion · #2 05-06-2021, 07:09 AM

Uploading a sample document if that helps? Thanks again for giving it a glance.

Guessed · #3 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

NameIsJustAnIllusion · #4 05-06-2021, 10:49 PM

Quote:

Originally Posted by Guessed

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

Thanks Andrew for looking into this. I tried your code on the sample file that I have attached in the 2nd post above but it doesn't work as desired. It changes it to an inline shape Type:=wdInlineShapePicture.

Code:

 Sub BreakEquations()
    Dim aField As Field
    Dim shp As InlineShape
        
    For Each shp In ActiveDocument.InlineShapes
        Debug.Print shp.Type 'OUTPUT 1 (wdInlineShapeEmbeddedOLEObject)
    Next
    
    For Each aField In ActiveDocument.Fields
        If aField.Type = wdFieldEmbed Then
            If InStr(1, aField, "Equation.3") Then aField.Unlink
        End If
    Next aField
    
    For Each shp In ActiveDocument.InlineShapes
        Debug.Print shp.Type 'OUTPUT 3 (wdInlineShapePicture)
    Next
End Sub

Want it to be converted to Office Math or to normal text. I will continue to play around.

NameIsJustAnIllusion · #5 05-08-2021, 11:04 PM

Apologies for the :Bump:

Guessed · #6 05-09-2021, 01:48 AM

I don't know how to help you if my code doesn't work. On my machine (which doesn't have the Equation Editor) the equation is a field (so I can select it and press Shift-F9 I can see its field code). Perhaps this is a graceful fallback when the Equation Editor is missing but I am unable to reproduce your setup to test any alternatives.

NameIsJustAnIllusion · #7 05-09-2021, 10:32 PM

No problem. Thanks again for your time

I guess I will ask in other forums.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Make equation “Snippets” in Microsoft Office Word	YassinKi	Word	2	11-05-2018 07:48 PM
Word 2010 - Microsoft Equation problem	lucas234	Word	0	01-22-2017 02:19 AM
Microsoft equation 3.0 bug - Help me	leyser	PowerPoint	0	10-15-2015 02:11 PM
Import data into Microsoft Equation Editor	jw102788	Word	0	09-24-2012 06:49 PM
Microsoft Equation help	lyonsd	Word	0	04-01-2009 05:52 PM