|
|
#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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
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 |
Windows 10 
Office 2016
Threaded Mode