word怎么设置千分位

一、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、完成。

二、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、完成。。

三、word2007数字千分位怎么设

手动输入个英文逗号就行，如有你非要高难度的，我转一个文章给你，你看看吧

采用了VBA编写了一个小程序来实现这一功能，以方便有这方向烦恼的读者，程序如下：

Sub 改变数字格式为千分位格式（）

Dim strWithTh As String '用于保存处理后的数字

Dim intI As Integer '循环给定的数字

Dim intLen As Integer '求数字长度

Dim intCount As Integer '保存改变个数

With Selection

.HomeKey Unit:=wdStory '回到文章开头

.Find.ClearFormatting

.Find.Text = "^#^#^#^#" '查找4位数字

'如果没有找到，退出

If .Find.Execute = False Then

MsgBox "长春崔宇的程序：千分位设置完毕！共改变 " & intCount & "个数字。"， vbInformation

Exit Sub

End If

intCount = intCount + 1 '计数器增加

.MoveLeft '移到整个数字的左边

.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend '选择整个数字

intLen = Len(.Text)

strWithTh = "" '清空

For intI = intLen To 1 Step -3

If intI >3 Then

strWithTh = "," & Mid(.Text, intI - 2, 3) & strWithTh

Else

'对于长度为3的倍数的数字特别处理

strWithTh = Left(.Text, IIf(intLen Mod 3 = 0, 3, intLen Mod 3)) & strWithTh

End If

.Text = strWithTh

.MoveRight '右移一个来取消选择

Loop

End With

End Sub

将上面的代码，保存在NORMAL模板中，需要运行时，按ALT+F8选择该宏运行就可以了，当然也可为这个宏分配一个按钮。

程序的实现方法：程序是以WORD的查找为基础，找到四位以上的数字，然后选择这个数字，将其变为千分位格式后写回，循环到查找结束。当然代码中并没有对数字进行细致的分析，所以对“2002年”这样不应加千分位的数字也会处理。代码在OFFICE9,OFFICE10,OFFICE11,OFFICE12上运行通用。

四、如何给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版本单词文本，我们可以看到此时的数字都添加了数千个分隔符。

五、如何在word中实现千分位符

其他输入法不清楚，搜狗输入法先输入v再输入数字会出现千分位形式，但.00还是要自己输入有一段宏代码运行后可以自动给数字加千分位及两位小数位转帖在Word中也实现数字自动千分位格式这个方法比较好。

收藏一下。（转自“中国会计视野论坛”里zhufree朋友的帖子。）

打开WORD程序，在上方菜单区域中，右键单击，选中Visual Basic。点击“Visual Basic编辑器”图标，打开Visual Basic，在“ThisDocument ”中双击，然后在右边的窗口中复制下方的代码：2、对所有的数字加千分位，并且自动加上尾数.00Sub 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 CurrencyOn Error Resume NextApplication.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 - 1End IfmyValue = VBA.Val(myRange) '保险起见转换为数据，也可省略myRange = VBA.Format(myValue, "Standard") '转为千分位格式GoTo NextFind '转到指定行LoopEnd WithApplication.ScreenUpdating = True '恢复屏幕更新End Sub关闭Visual Basic编辑器，回到WORD界面。

输入文章后，点击“运行宏”图标，运行yycealjj1宏，即可对数字加千分位。（可以插入模板，以后而要时加载即可。）

六、word如何把数字设为千分位

word中，没有自动实现数字转换为千分位格式的方法，只能通过手工编写宏命令的方法来实现。

七、想在word里面输入千分位分隔符的数字,怎么弄

1、带你打开Word文档。

2、Ctrl+H进入查找替换页面，查找内容输入（[0-9]）([0-9]{3})([!][0-9年])，替换为中输入\1,\2\3。

3、然后点击高级替换，勾选使用通配符，然后点击全部替换。

4、点击全部替换后，只能输入一个千分位分隔符。

5、继续点击全部替换，知道替换为0处，把所有的数字都输入千分位分隔符为止。

八、word怎么自动输入千分位符

以WPS 2019版为例

1. 打开表格，选中需要设置的单元格，鼠标右键选择“设置单元格格式”；

2.在弹出框选择“数字”—“数值”，勾选“使用千位分隔符”即可。

转载请注明出处51数据库 » word怎么设置千分位