跳到主要内容

如何在 Word 文档中为数字添加千位分隔符?

作者:孙 最后修改时间:2024-07-04

在 Word 文档中为数字添加千位分隔符可以大大提高可读性,尤其是在处理大数字时。虽然 Microsoft Word 没有直接添加千位分隔符的功能,但可以使用 VBA(Visual Basic for Applications)或 Kutools for Word 等便捷工具来实现此目的。

在本教程中,我们将指导您完成使用 VBA 和 Kutools for Word 在 Word 文档中向数字添加千位分隔符的步骤。

使用 VBA 添加千位分隔符

使用 Kutools for Word 添加千位分隔符好主意3


使用 VBA 添加千位分隔符

有时,一个数字需要插入几个千位分隔符。在这种情况下,您可以使用 VBA 代码。

1.选择要插入千位分隔符的数字,按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块,将以下代码复制并粘贴到 模块.

VBA:为数字添加千位分隔符

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

3。 按 F5 键,已将数千个分隔符插入到所选编号。
doc添加千位分隔符3


使用 Kutools for Word 添加千位分隔符

如果要将分隔符插入选择中的多个数字或Word中的整个文档,则 添加千位分隔符 实用程序 Kutools for Word 可以通过点击来解决这项工作。

Kutools for Word, 配备人工智能 🤖,提供 100 多种方便的功能来简化您的任务。

安装后 Kutools for Word,请执行以下操作:(立即免费下载 Kutools for Word!)

要为整个文档中的所有数字添加千位分隔符,请不要选择任何数据,然后单击 库工具 > 添加千位分隔符.
doc添加千位分隔符4

弹出一些对话框以确保是否要将此功能应用于整个文档,请单击 Premium Partner > OK.
doc添加千位分隔符5 doc添加千位分隔符6

现在所有数字都已插入千位分隔符。
doc添加千位分隔符7

如果要在所选数字中添加千位分隔符,请选择数字并单击 库工具 > 添加千位分隔符.
doc添加千位分隔符8

备注:如果要删除千位分隔符,可以单击Kutools>删除>删除千位分隔符。

通过 库工具 / Kutools 加 此视频中的标签来自 Kutools for Word. 享受 100 多种功能和永久免费的 AI 实用程序。 现在下载!

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  快速获得答案,全部在Word中

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/HTML...)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 导航到任何位置  /  自动插入重复文本  /  在文档窗口之间切换  /  11 转换工具...

👉 想要尝试这些功能吗?立即下载 Kutools for Word! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
A simpler way is just to copy "002C" and paste in the "character code" box and click insert.
no need to select Verdana or Basic Latin
This comment was minimized by the moderator on the site
Thanks for your macro. But it has two problem:
1) After using macro, leading zero of numbers like phone number will be removed!!!
2) Macro works bad for number with more than 30 digits.!!!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations