word2007数字千分位怎么设

发布网友 发布时间：2022-04-20 21:49

我来回答

共1个回答

热心网友 时间：2022-04-25 19:12

手动输入个英文逗号就行，如有你非要高难度的，我转一个文章给你，你看看吧
采用了VBA编写了一个小程序来实现这一功能，以方便有这方向烦恼的读者，程序如下：
Sub 改变数字格式为千分位格式 ()
Dim strWithTh As String '用于保存处理后的数字
Dim intI As Integer
'循环给定的数字
Dim intLen As Integer '求数字长度
Dim intCount As Integer '保存改变个数
With Selection
.HomeKey Unit:=wdStory '回到文章开头
.Find.ClearFormattingDo
.Find.Text = "^#^#^#^#" '查找4位数字
'如果没有找到,退出
If .Find.Execute = False Then
MsgBox "长春崔宇的程序:千分位设置完毕！共改变 " & intCount & "个数字。", vbInformationExit SubEnd IfintCount = 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) & strWithThElse'对于长度为3的倍数的数字特别处理
strWithTh = Left(.Text, IIf(intLen Mod 3 = 0, 3, intLen Mod 3)) & strWithThEnd IfNext
.Text = strWithTh
.MoveRight '右移一个来取消选择LoopEnd WithEnd Sub将上面的代码，保存在NORMAL模板中，需要运行时，按ALT+F8选择该宏运行就可以了，当然也可为这个宏分配一个按钮。
程序的实现方法：程序是以WORD的查找为基础，找到四位以上的数字，然后选择这个数字，将其变为千分位格式后写回，循环到查找结束。当然代码中并没有对数字进行细致的分析，所以对“2002年”这样不应加千分位的数字也会处理。代码在OFFICE9，OFFICE10，OFFICE11,OFFICE12上运行通用。