1.word2010数字千分位怎么设
找到一个VBA的程序 打开WORD程序,在上方菜单区域中,右键单击,选中Visual Basic。
点击“Visual Basic编辑器”图标,打开Visual Basic,在“ThisDocument ”中双击,然后在右边的窗口中复制下方的代码: 1、对所有的数字加千分位,但是不加尾数.00 Sub yycealjj() Dim myRange Dim FindChar As String, RepChar As String On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 FindChar = "([0-9])([0-9]{3}[!0-9])" RepChar = "\1,\2" With ActiveDocument.Content.Find '此处针对全文档 .ClearFormatting '清除格式 .MatchWildcards = True Do While .Execute(findtext:=FindChar) = True '如果发现 .Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll Loop If .Execute(findtext:=FindChar) = False Then Exit Sub End If End With Application.ScreenUpdating = False '开启屏幕更新 End Sub 2、对所有的数字加千分位,并且自动加上尾数.00 Sub yycealjj1() '本代码旨在解决WORD中数据转化为千分位 '数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807 '转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变 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 关闭Visual Basic编辑器,回到WORD界面。 输入文章后,点击“运行宏”图标,运行任何一个宏,即可对数字加千分位。
yycealjj为第一个程序,不加尾数的。 yycealjj1为第二个程序,加尾数的。
2.WORD里数字用千分位怎么设置
word中,没有自动实现数字转换为千分位格式的方法,只能通过手工编写宏命令的方法来实现。
具体步骤如下: 1、打开word;' 2、按alt+F11打VBA编辑器,点击插入->模块; 3、在模块窗口输入以下宏指令: Sub FormatNumbers() Selection.TypeText Text:=Format(Selection, "#,##0.00") End Sub 4、保存退出VBA编辑器; 5、点击office按钮->word选项; 6、打开自定义对话框,选择宏,点击添加,确定; 7、选择需要设置会计格式的数字,点击快捷栏中的宏命令; 8、完成。 。
3.word里面怎么把数字设为千分位
word中,没有自动实现数字转换为千分位格式的方法,只能通过手工编写宏命令的方法来实现。
具体步骤如下:
1、打开word;'
2、按alt+F11打VBA编辑器,点击插入->;模块;
3、在模块窗口输入以下宏指令:
Sub FormatNumbers()
Selection.TypeText Text:=Format(Selection, "#,##0.00")
End Sub
4、保存退出VBA编辑器;
5、点击office按钮->word选项;
6、打开自定义对话框,选择宏,点击添加,确定;
7、选择需要设置会计格式的数字,点击快捷栏中的宏命令;
8、完成。
4.如何在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、替换完成后,效果如下图,完成。
。
5.请教:word文档数字千分位
步骤1,单击“自定义快速访问工具栏”下拉按钮,选择“其他命令”选项,打开“Word选项”对话框。
步骤2,在“从下位置选择命令”下拉列表框中选择“所有命令”选项,在下面的列表框中选择“公式”选项,单击“添加”按钮→“确定”按钮。
步骤3 将光标定位到需要插入设置成千分位格式的数字处,击“自定义快速访问工具栏”处的“公式”按钮,打开“公式”对话框。
步骤4,在“公式”文本框中录入“=786482.53”,在“数字格式”列表框中选择数字格式为“#,##0.00”,单击“确定”按钮,即可完成操作。
6.如何在word中实现千分位符
其他输入法不清楚,搜狗输入法先输入v再输入数字会出现千分位形式,但.00还是要自己输入
有一段宏代码运行后可以自动给数字加千分位及两位小数位
转帖
在Word中也实现数字自动千分位格式
这个方法比较好。收藏一下。(转自“中国会计视野论坛”里zhufree朋友的帖子。)
打开WORD程序,在上方菜单区域中,右键单击,选中Visual Basic。点击“Visual Basic编辑器”图标,打开Visual Basic,在“ThisDocument ”中双击,然后在右边的窗口中复制下方的代码:
2、对所有的数字加千分位,并且自动加上尾数.00
Sub yycealjj1()
'本代码旨在解决WORD中数据转化为千分位
'数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807
'转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变
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
关闭Visual Basic编辑器,回到WORD界面。输入文章后,点击“运行宏”图标,运行yycealjj1宏,即可对数字加千分位。(可以插入模板,以后而要时加载即可。)
7.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处”为止。
查找框中“([0-9])([0-9]{3})([!][0-9年])”的含义是:
()[ ]{ }称为:通配符。
( ) 表达式,[ ] 范围内的任意单个字符,{ } 指定前一范围次数(勾选 “使用通配符”复选框让通配符设定的条件起作用)。
意思是:查找不是0-9或者“年”之前的三位以上的数字(WORD默认从左到右顺序查找)。
替换框中“\1,\2\3”的含义是:\1代表查找框中第一个表达式,\2代表查找框中第二个表达式,以此类推。意思是:按从左到右的顺序,在不是0-9或者“年”前的第四位数字后加千分位符(,)。如:10000000.00元,按第一次“全部替换”按钮为:10000,000.00元,按第二次“全部替换”按钮为:10,000,000.00元,按第三次“全部替换”按钮为:“替换0处”完成。
那么,又该如何批量取消千位分隔符呢?
CTRL+H调出“查找和替换”对话窗口,勾选“使用通配符”。
在“查找内容”框中填入:([0-9]),([0-9])
在“替换为”框中填入:\1\2
执行“全部替换”。
8.word怎么自动输入千分位符
以WPS 2019版为例
1. 打开表格,选中需要设置的单元格,鼠标右键选择“设置单元格格式”;
2.在弹出框选择“数字”—“数值”,勾选“使用千位分隔符”即可。
9.想在word里面输入千分位分隔符的数字,怎么弄
1、带你打开Word文档。
2、Ctrl+H进入查找替换页面,查找内容输入([0-9])([0-9]{3})([!][0-9年]),替换为中输入\1,\2\3。
3、然后点击高级替换,勾选使用通配符,然后点击全部替换。
4、点击全部替换后,只能输入一个千分位分隔符。
5、继续点击全部替换,知道替换为0处,把所有的数字都输入千分位分隔符为止。
10.如何给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版本单词文本,我们可以看到此时的数字都添加了数千个分隔符。
转载请注明出处51数据库 » word2010千分位