Word VBA：对数字批量加千分位，设置小数位数和设置负数格式

一、思路

用Word的查找替换方法【Find】查找位置，用FormatNumber生成对应数字的格式化字符串，依次替换。

二、代码

Function 数字格式替换(Optional 范围 As Range, Optional findText As String = "[0-9]{1,}", Optional 使用通配符 As Boolean = True, Optional 小数位数 As Long = -1, Optional 纯小数补零 As VbTriState = VbTriState.vbUseDefault, Optional 负数加括号 As VbTriState = VbTriState.vbUseDefault, Optional 加千分位 As VbTriState = VbTriState.vbUseDefault) As Long
    Dim pd As Boolean: pd = True
    Dim arr() As Range
    Dim i As Long: i = 0
    Dim s As String
    Dim r As String
    
    If fw Is Nothing Then
        pd = False
        Set fw = Selection.Range
        If fw.Start = fw.End Then
            Set fw = ActiveDocument.Range
        End If
    End If
    
    With fw.Find
        .ClearFormatting
        .Wrap = wdFindStop
        .Forward = True
        .MatchWildcards = 使用通配符
        .Text = findText
        Do While .Execute
            i = i + 1
            ReDim Preserve arr(1 To i)
            Set arr(i) = fw.Document.Range(fw.Start, fw.End)
            'arr(i).Select
            'Debug.Print fw.Text, fw.Start, fw.End
        Loop
    End With
    
    For i = UBound(arr) To LBound(arr) Step -1
        s = arr(i).Text
        r = s
        If IsNumeric(r) Then
            r = FormatNumber(s, 小数位数, 纯小数补零, 负数加括号, 加千分位)
        End If
        arr(i).Text = r
        'arr(i).Select
    Next i
    
    数字格式替换 = UBound(arr) - LBound(arr) + 1
    
    Erase arr
    If pd = False Then
        fw.Select
        Set fw = Nothing
    End If
End Function
Sub 数字格式替换程序入口()
    Dim i As Long
    i = 数字格式替换(findText:="[0-9]{5,}", 小数位数:=2)
    MsgBox "完成，共替换了" & i & "处数字格式。"
End Sub

三、执行

主程序

光标定位在主程序/程序入口范围内，点击【运行】即可。