Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 05-06-2021, 02:56 AM
NameIsJustAnIllusion NameIsJustAnIllusion is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2019
Novice
Converting Microsoft Equation
 
Join Date: May 2021
Posts: 12
NameIsJustAnIllusion is on a distinguished road
Default Converting Microsoft Equation

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.
Reply With Quote
  #2  
Old 05-06-2021, 07:09 AM
NameIsJustAnIllusion NameIsJustAnIllusion is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2019
Novice
Converting Microsoft Equation
 
Join Date: May 2021
Posts: 12
NameIsJustAnIllusion is on a distinguished road
Default

Uploading a sample document if that helps? Thanks again for giving it a glance.
Attached Files
File Type: docx Sample.docx (14.8 KB, 1 views)
Reply With Quote
  #3  
Old 05-06-2021, 04:59 PM
Guessed's Avatar
Guessed Guessed is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 2,324
Guessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to behold
Default

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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #4  
Old 05-06-2021, 10:49 PM
NameIsJustAnIllusion NameIsJustAnIllusion is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2019
Novice
Converting Microsoft Equation
 
Join Date: May 2021
Posts: 12
NameIsJustAnIllusion is on a distinguished road
Default

Quote:
Originally Posted by Guessed View Post
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.
Reply With Quote
  #5  
Old 05-08-2021, 11:04 PM
NameIsJustAnIllusion NameIsJustAnIllusion is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2019
Novice
Converting Microsoft Equation
 
Join Date: May 2021
Posts: 12
NameIsJustAnIllusion is on a distinguished road
Default

Apologies for the :Bump:
Reply With Quote
  #6  
Old 05-09-2021, 01:48 AM
Guessed's Avatar
Guessed Guessed is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 2,324
Guessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to behold
Default

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.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #7  
Old 05-09-2021, 10:32 PM
NameIsJustAnIllusion NameIsJustAnIllusion is offline Converting Microsoft Equation Windows 10 Converting Microsoft Equation Office 2019
Novice
Converting Microsoft Equation
 
Join Date: May 2021
Posts: 12
NameIsJustAnIllusion is on a distinguished road
Default

No problem. Thanks again for your time

I guess I will ask in other forums.
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Converting Microsoft Equation 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

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 01:49 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2021, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2021 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft