word如何设置数字位数,位数,设置,数字

1.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

Do

.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

Next

.Text = strWithTh

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

Loop

End With

End Sub

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

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