Sub decimalplaces()
' Macro to round all numbers in a document
' Macro created 19/7/00 by Doug Robbins
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        Do While .Execute(FindText:="[0-9]{1,}.[0-9]{3,}", Wrap:=wdFindContinue, Forward:=True) = True
            Selection.Range.Text = Format(Selection.Range.Text, "#0.00")
        Loop
    End With
End Sub