word数字千分符
- 作者: 网兼加569476996
- 来源: 51数据库
- 2020-06-05
1. 如何在word中设置数字的千位分隔符
word中没有自动添加千位分隔符的功能，需要通过替换功能手工实现。
具体操百作步骤如下： 1、打开word; 2、点击word中的“编辑”菜单度，在下拉菜单中点“替换知”，出现“查找和替换”对话框； 3、点“高级道”按钮， 勾选“使用通配符”复选框； 4、“查找内容”中填入：（[0-9]）([0-9]{3})（[.，])，“替换”回中填入：\1,\2\3 ； 注意：查找内容：（[0-9]）([0-9]{3})（[.，])和替换为： \1,\2\3是固定不变的答，在输入法为英文半角的状态输入。 5、执行“全部替换”，重复按“全部替换”按钮，直到提示“替换0处”为止； 6、替换完成后，效果如下图，完成。
。
2. 怎样将word文档中数字,自动加“千分符”
1、打开WORD程序，在上方菜单区域中，右键单击，选中Visual Basic。点击“Visual Basic编辑器”图标，打开Visual Basic，在“ThisDocument ”中双击，然后在右边的窗口中复制下方的代码：
2、对所有的数字加千分位，并且自动加上尾数.00
'本代码旨在解决WORD中数据转化为千分位
'数据限定要求：-922,337,203,685,477.5808 到 922,337,203,685,477.5807
'转化结果1000以上数据以千分位计算，小数点右侧保留二位小数；1000以下数据不变
Sub yycealjj1()
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
NextFind: Set myRange = ActiveDocument.Content '定义为主文档文字部分
With myRange.Find '查找
.ClearFormatting '清除格式
.Text = "[0-9]{4,15}" '4到15位数据
.MatchWildcards = True '使用通配符
Do While .Execute '每次查找成功
i = 2 '起始值为2
'如果是有小数点
If myRange.Next(wdCharacter, 1) = "." Then
'进行一个未知循环
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1 '只要是[0-9]任意数字则累加
Wend
'重新定义RANGE对象
myRange.SetRange myRange.Start, myRange.End + i - 1
End If
myValue = VBA.Val(myRange) '保险起见转换为数据，也可省略
myRange = VBA.Format(myValue, "Standard") '转为千分位格式
GoTo NextFind '转到指定行
Loop
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
3、关闭Visual Basic编辑器，回到WORD界面。输入文章后，点击“运行宏”图标，运行yycealjj1宏，即可对数字加千分位。（可以插入模板，以后要用时加载即可）
3. word数字千位分隔符
具体方法如下：
(1)用CTRL+H快捷键，或者点击菜单或按钮：
2007以下版本，点击word中的“编辑”菜单，在下拉菜单中点“替换”，出现“查找和替换”对话框。
2007及以上版本，则在功能区点击“编辑”按钮，再点击"替换"，
(2)2007以下版本，点“高级”按钮；2007及以上版本，点“更多”按钮，勾选“使用通配符”复选框。
(3)“查找内容”中填入：（[0-9]）([0-9]{3})([!][0-9年])，“替换”中填入：\1,\2\3.注意：查找内容：（[0-9]）([0-9]{3})([!][0-9年])和替换为：\1,\2\3是固定不变的，在输入法为英文半角的状态输入。
(4)执行“全部替换”。重复按“全部替换”按钮，直到提示“替换0处”为止。
4. 如何给word文档中的数字添加千分位分隔符
准备工具/材料：windows10Build10158版本，Excel 2013版本。
1、此演示操作中使用的办公软件是Excel 2013版本。
2、windows10Build10158版本创建新的Word文档，在文档中输入演示数据，并操作如何在Word文档中设置数字的千位分隔符。
3、单击windows10Build10158版本开始菜单栏，在菜单栏的右上角找到搜索工具，然后单击高级搜索工具。
4、在windows10Build10158版本弹出的“查找和替换”工具栏中选择替换选项，然后单击“更多设置”打开。
6、在windows10Build10158版本更多设置中，选中搜索选项中的“使用通配符”。
7、在windows10Build10158版本查找内容中填入（[0-9]）([0-9]{3})([!][0-9年])，替换中填入：1,\2\3（注意：在输入法为英文半角的状态输入），然后再点击全部替换。
8、windows10Build10158版本重复按“全部替换”按钮，直到提示完成并且0处的替换完成。
9、回到windows10Build10158版本单词文本，我们可以看到此时的数字都添加了数千个分隔符。
5. word中怎么给数值加千位分隔符
一次替换有难度，逐个加行吗？如果行的话，酱：
Ctrl + h 打开“查找和替换”，点击左下角的“更多（M）>>”，选上“使用通配符”；
在“查找内容”里输入（英文输入状态）： （[0-9]{3}）
在“替换为”里输入（英文输入状态）： ，\1
单击“查找下一处”，在查找的合适位置，单击“替换”。
如果第2部的表达式后面加上个英文的 >，在第4步点“全部替换”，则所有3位和多于3位的数字，它们的后3位前面都会加上 ， 逗号。
6. 如何在word中设置数字千位分隔符
word中没有自动添加千位分隔符的功能，需要通过替换功能手工实现。
具体操作步骤如下：
1、打开word;
2、点击word中的“编辑”菜单，在下拉菜单中点“替换”，出现“查找和替换”对话框；
3、点“高级”按钮， 勾选“使用通配符”复选框。
4、“查找内容”中填入：（[0-9]）([0-9]{3})（[.，])，“替换”中填入：\1,\2\3 ;
注意：查找内容：（[0-9]）([0-9]{3})（[.，])和替换为： \1,\2\3是固定不变的，在输入法为英文半角的状态输入。
5、执行“全部替换”，重复按“全部替换”按钮，直到提示“替换0处”为止；
6、替换完成后，完成。
7. word中怎样对数字使用千位分隔符
word中没有自动添加千位分隔符的功能，需要通过替换功能手工实现。
具体操作步骤如下：1、打开word;2、点击word中的“编辑”菜单，在下拉菜单中点“替换”，出现“查找和替换”对话框；3、点“高级”按钮， 勾选“使用通配符”复选框；4、“查找内容”中填入：（[0-9]）([0-9]{3})（[.，])，“替换”中填入：\1,\2\3 ；注意：查找内容：（[0-9]）([0-9]{3})（[.，])和替换为： \1,\2\3是固定不变的，在输入法为英文半角的状态输入。5、执行“全部替换”，重复按“全部替换”按钮，直到提示“替换0处”为止；6、替换完成后，效果如下图，完成。
