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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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