Convert all equations to "Normal Text"

macropod · #8 05-16-2011, 02:21 PM

Hi b0x4it,

I've been offline for a few hours - sleeping! We don't all live in your time zone.

You can manipulate the numbers in an equation as a group with code like:

Code:

Sub Demo()
Dim MathObj As Object
For Each MathObj In ActiveDocument.OMaths
  With MathObj
    .ConvertToNormalText
    With .Range.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "[0-9]"
      .Replacement.Text = "^&"
      .Replacement.Font.Italic = True
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
  End With
Next
End Sub

Basically, this is just a wildcard Find/Replace on the oMath ranges

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wierd symbols inplace of "space", "indentation" etc	aka.bhagvanji	Word	5	02-16-2012 11:50 AM
Partial highlighting of text in a row in "Final Showing Markup" setting	Redpoint	Word Tables	4	03-11-2011 04:29 PM
lines aren't visible in "normal" view	emrlaw	Word	2	05-12-2010 02:29 AM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM
merge field formatting problem with "text to be inserted before"	wissam	Mail Merge	0	12-13-2009 12:50 AM