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

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

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