在Word文档中，全角数字与半角数字混用常导致排版不统一。虽然Word的“查找与替换”功能无法直接实现全角到半角的转换，但通过编写简单的VBA宏，可以高效完成批量替换。以下步骤将指导你创建并运行该宏。

步骤1：录制新宏
打开Word，执行“工具”→“宏”→“录制新宏”，在“宏名”框中输入“数字全角转半角”，点击“确定”。此时会出现“录制宏”工具栏，直接关闭它（无需实际录制）。

步骤2：编辑宏代码
执行“工具”→“宏”→“宏...”，选择“数字全角转半角”，单击“编辑”按钮，打开VBA编辑窗口。将以下代码复制并粘贴到编辑器中：

Sub 数字全角转半角()
'使用前需先选中要替换的区域
Dim qjsz, bjsz As String, i As Integer
qjsz = "０１２３４５６７８９"
bjsz = "0123456789"
For i = 1 To 10
    With Selection.Find
        .Text = Mid(qjsz, i, 1)
        .Replacement.Text = Mid(bjsz, i, 1)
        .Format = False
        .Execute Replace:=wdReplaceAll
    End With
Next i
End Sub

步骤3：运行宏
关闭VBA编辑窗口，在Word文档中选中需要转换数字格式的文字区域，然后执行“工具”→“宏”→“宏...”→“数字全角转半角”。宏将自动将选中区域内的全角数字（如“０１２３”）替换为半角数字（如“0123”）。

注意事项：宏仅对选中区域生效，且不会改变非数字字符的格式。建议在运行前备份文档，以防意外修改。