Find & Replace to insert thousands separators

[jeffreybrown]

I can't quite get the syntax right for replacing a number with the thousand separator.



Before
1266.89
3479.52

After
1,266.89
3,479.52

I tried
F/R with wildcard
Find: ([!/-//][0-9])([0-9]{4})(.[0-9]{2}))>
Replace: \1,\2

[pike]

maybe just

Option Explicit
Sub FormatNumbers()
    Dim lngdb As Long
    If Selection.Type = wdSelectionIP Then
        ActiveDocument.Range(0, 0).Select
        lngdb = wdFindContinue
    Else
        lngdb = wdFindStop
    End If
    With Selection.Find
        .ClearFormatting
        .Text = "[0-9]{4,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = lngdb
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        Do While .Execute
            Selection.Text = Format$(Selection.Text, "#,##0")
            If lngdb = wdFindContinue Then
                Selection.Collapse wdCollapseEnd
            Else
                Exit Sub
            End If
        Loop
    End With
End Sub

[jeffreybrown]

Thank you Pike. This will do it.

[pike]

no problem. Sometimes RegExp match and replace is easier than the word F/R