【推荐下载】word千位分隔符怎么加-范文模板 (4页)

本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！
== 本文为word格式，下载后可方便编辑和修改！ ==
word千位分隔符怎么加
篇一：如何在word中实现千分位符
巧给word文档里财务数据设置“千位分隔符”
审计报告中有大量的财务数据，需要把这些数据全部设置为“千位分隔符”
的格式，如:100000.00元,转换为100,000.00元(每3位数加一个英文半角逗号)。

手工添加，既费时费力，效率低，还会出错；用编制宏代码的方法，又不易学会。

有没有一种简单的方法在财务数据里设置千位分隔符呢？答案是肯定的。

在实际工作中，我通过反复摸索找到了一种简单的办法，即：执行“全部
替换”按钮，就能完成整篇文档财务数据千位分隔符的添加，并且年份数字不
受影响。

具体方法如下：
（1）点击word中的“编辑”菜单，在下拉菜单中点“替换”，出现“查找和
替换”对话框。

（2）点“高级”按钮，勾选“使用通配符”复选框。

（3）“查找内容”中填入：([0-9])([0-9]{3})([.,])，“替换”中填入：
\1,\2\3
注意：查找内容：([0-9])([0-9]{3})([.,])和替换为： \1,\2\3是固定不变的，在输入法为英文半角的状态输入。

（4）执行“全部替换”。

重复按“全部替换”按钮，直到提示“替换0处”为止。

查找框中“([0-9])([0-9]{3})([.,])” 的含义是：（）[ ]{ }称为：通配符。

( ) 表达式，
[ ] 范围内的任意单个字符，{ } 指定前一范围次数（勾选“使用通配符”复
选框让通配符设定的条件起作用）。

意思是：查找“.”或“,”之前的三位以
上的数字(WORD默认从左到右顺序查找)。

替换框中“\1,\2\3”的含义是：\1代表查找框中第一个表达式，\2代表查找
框中第二个表达式，以此类推。

意思是：按从左到右的顺序，在“.”或“,”
前的第四位数字后加千分位符（,）。

如：10000000.00元，按第一次“全部替
换”按钮为：10000,000.00元，按第二次“全部替换”按钮为：
10,000,000.00元，按第三次“全部替换”按钮为：“替换0处”完成。

那么，又该如何批量取消千位分隔符呢？
CTRL+H调出“查找和替换”对话窗口，勾选“使用通配符”。

在“查找内容”框中填入：([1-9]),([0-9])
在“替换为”框中填入：\1\2
执行“全部替换”。

篇二：怎样为word中的数字快速批量添加千位分隔符(非EXCEL)
怎样为word中的数字快速批量添加千位分隔符
只需将我测试通过的宏代码粘贴到你的word的normal.wot模板中即可。

某些
时候360安全杀毒会误报为病毒。

在此郑重声明：我的原始代码绝不包含病毒！
Sub 千位分隔符()
Dim i As Range, Acell As Cell, CR As Range
On Error Resume Next
Application.ScreenUpdating = False
If Selection.Type = 2 Then
For Each i In Selection.Words
If i Like "####*" = True Then
If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Theni.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End
i = Format(i, "Standard")
Else
i = Format(i, "Standard")
End If
End If
Next i
End If
If Selection.Type = 5 Then
For Each Acell In Selection.Cells
Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1) If CR Like "####*" = True Then
If CR Like "####.#*" = True Then
Nn = Format(CR, "Standard")
CR.Text = Nn
Else
Nn = Format(CR, "Standard")
CR.Text = Nn
End If
End If
Next Acell
End If
x = MsgBox("千位分隔符已添加完毕!", , "仇恨日本军国主义")
Application.ScreenUpdating = True
End Sub
以上代码，本人在20页数字、文字、表格交叉的文档中，最快用10秒添加完毕，最慢用34秒添加完毕。

篇三：如何给word文档里的数据设置千位符
如何给word文档里的数据设置“千位分隔符”
1、打开“查找”对话框
2、点击“高级”按钮；勾选“使用通配符”复选框。

3、在“查找内容”中输入: ([0-9])([0-9]{3})([!][0-9年])，“替换”中输入：\1,\2\3
注意：查找内容：([0-9])(来自:WwW. : word千位分隔符怎么加 )([0-
9]{3})([!][0-9年])和替换为： \1,\2\3是固定不变的，在输入法为英文半角的状态输入。

4、执行“全部替换”。

重复按“全部替换”按钮，直到提示“替换0处”为止。