Numeric Values

[jrt]

Hi,

I am new to MS Word VBA.

I need to highlight (specific colour -red) and change font size all numeric values in the word file (Around 400 to 800 pages).

Numeric values in different formats :

Eg :
133,498.34


133.498.56
133 498.23
133'498.45


The values will be in table format too.

Like.

A 12 12
b 12 87
c 23 45

Numeric values both in table format and running text in world file
Can any one please.

[gmaxey]

Try:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Text = "[0-9]{1,3}[ .,']{1}[0-9]{3}.[0-9]{2}"
    With .Replacement
      .Text = ""
      With .Font
        .ColorIndex = wdRed
        .Size = 18
      End With
    End With
    .Format = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

[macropod]

You can do all of this via wildcard Find/Replace, without the need for a macro. For example:
Find = [0-9]{1,}
Replace = ^&
will find & replace all number sequences. All you need do is specify the replacement font colour. For the separators, you could use:
Find = [0-9][,.'][0-9]
Replace = ^&
Of course, you could also use the macro recorder to record these as a macro.