嘿，我太懂你这种折腾了——每次写英文发票都要跟Windows系统的数字格式死磕，手动改完还要再改回来，完全是浪费时间！之前那些查找替换的方案确实有局限，要么没法实时处理输入，要么批量修改时容易漏改或错改。下面给你几个实用的VBA方案，一键搞定，不用碰系统全局设置：

• 批量转换现有文档的数字格式
  这个宏能扫描整个文档，把中文系统默认的「1.234,56」格式（点做千位、逗号做小数）转换成英文发票需要的「1,234.56」格式：

  Sub ConvertNumberFormatForInvoice()
      Dim rng As Range
      Dim regex As Object
      Set regex = CreateObject("VBScript.RegExp")
      regex.Global = True
      regex.Pattern = "(\d{1,3})(\.\d{3})*(,\d+)" '匹配中文格式数字
  
      For Each rng In ActiveDocument.StoryRanges
          Do
              Set match = regex.Execute(rng.Text)
              If match.Count > 0 Then
                  Dim originalNum As String, newNum As String
                  originalNum = match(0).Value
                  '先替换点为临时字符，再替换逗号为点，最后恢复临时字符为逗号
                  newNum = Replace(Replace(originalNum, ".", "temp"), ",", ".")
                  newNum = Replace(newNum, "temp", ",")
                  rng.Text = Replace(rng.Text, originalNum, newNum)
              Else
                  Exit Do
              End If
          Loop
      Next rng
      Set regex = Nothing
      MsgBox "数字格式转换完成！", vbInformation
  End Sub
  

  用法：打开Word的「开发工具」（没显示的话去选项里勾选），插入模块粘贴代码，运行宏即可，全程自动处理。

• 输入时自动应用英文发票格式
  不想事后改？这个宏能在你输入数字时自动调整格式，实时符合要求：

  Private Sub Document_KeyPress(ByVal KeyAscii As Integer)
      Dim currentChar As String
      currentChar = Chr(KeyAscii)
      
      '只处理数字、点、逗号输入
      If Not (IsNumeric(currentChar) Or currentChar = "." Or currentChar = ",") Then Exit Sub
      
      Dim sel As Selection
      Set sel = Selection
      
      '输入点作为小数分隔符时，自动给前面的数字加千位逗号
      If currentChar = "." Then
          Dim numPart As String
          numPart = Left(sel.Text, sel.Start - sel.Range.Start)
          If IsNumeric(numPart) Then
              sel.Text = Format(CDbl(numPart), "#,##0") & "."
              KeyAscii = 0 '取消原输入，替换为格式化后的内容
          End If
      '输入逗号作为千位分隔符时，自动调整数字格式
      ElseIf currentChar = "," Then
          Dim leftText As String
          leftText = Left(sel.Text, sel.Start - sel.Range.Start)
          If IsNumeric(leftText) Then
              sel.Text = Format(CDbl(leftText), "#,##0")
              KeyAscii = 0
          End If
      End If
  End Sub
  

  用法：把这段代码粘贴到当前文档的「ThisDocument」模块，保存为启用宏的文档（.docm格式）。之后输入1234再敲.，会自动变成1,234.，完全不用手动调整。

• 临时修改系统格式（自动恢复）
  如果有些特殊场景必须依赖系统级格式支持，这个宏能临时修改Windows的数字设置，用完自动恢复：

  Sub TempChangeSystemNumberFormat()
      Dim originalDecimal As String, originalThousand As String
      '读取当前系统的小数和千位分隔符设置
      originalDecimal = CreateObject("WScript.Shell").RegRead("HKCU\Control Panel\International\sDecimal")
      originalThousand = CreateObject("WScript.Shell").RegRead("HKCU\Control Panel\International\sThousand")
      
      '修改为英文发票需要的格式
      CreateObject("WScript.Shell").RegWrite "HKCU\Control Panel\International\sDecimal", "."
      CreateObject("WScript.Shell").RegWrite "HKCU\Control Panel\International\sThousand", ","
      
      '提示用户编辑文档，点击确定后恢复原设置
      MsgBox "现在可以正常编辑英文发票了，完成后点击确定恢复系统原设置", vbOKOnly
      
      '恢复系统默认设置
      CreateObject("WScript.Shell").RegWrite "HKCU\Control Panel\International\sDecimal", originalDecimal
      CreateObject("WScript.Shell").RegWrite "HKCU\Control Panel\International\sThousand", originalThousand
      MsgBox "系统数字格式已恢复！", vbInformation
  End Sub
  

  注意：这个宏需要Word有注册表修改权限，Office 365用户记得在信任中心启用相关宏权限。运行后临时切换系统设置，编辑完点确定就自动复原，不用去控制面板手动操作。

这几个方案各有侧重，你可以根据自己的需求选：改已有文档用第一个，实时输入用第二个，需要系统级支持用第三个，亲测比手动折腾高效太多！

内容的提问来源于stack exchange，提问作者myfxp