word表格千分位 word表格数字千分位
报表在WORD里面。
怎么实现表格内数字转换有千分位的符的。
[抓狂...
手动输入个英文逗号就行，如有你非要高难度的，我转一个文章给你，你看看吧采用了VBA编写了一个小程序来实现这一功能，以方便有这方向烦恼的读者，程序如下：Su 改变数字格式为千分位格式 （） Dim stWithTh As Sting "用于保存处理后的数字 Dim intI As Intege "循环给定的数字 Dim intLen As Intege "求数字长度 Dim intCount As Intege "保存改变个数 With Selection .HomeKey Unit:=wdStoy "回到文章开头 .Find.CleaFomatting Do .Find.Text = ＂^#^#^#^#＂ "查找4位数字 "如果没有找到，退出 If .Find.Execute = False Then MsgBox ＂长春崔宇的程序：千分位设置完毕！共改变 ＂ & intCount & ＂个数字。
＂， vInfomation Exit Su End If intCount = intCount 1 "计数器增加 .MoveLeft "移到整个数字的左边 .MoveRight Unit:=wdWod, Count:=1, Extend:=wdExtend "选择整个数字 intLen = Len(.Text) stWithTh = ＂＂ "清空 Fo intI = intLen To 1 Step -3 If intI 3 Then stWithTh = ＂,＂ & Mid(.Text, intI - 2, 3) & stWithTh Else "对于长度为3的倍数的数字特别处理 stWithTh = Left(.Text, IIf(intLen Mod 3 = 0, 3, intLen Mod 3)) & stWithTh End If Next .Text = stWithTh .MoveRight "右移一个来取消选择 Loop End WithEnd Su将上面的代码，保存在NORMAL模板中，需要运行时，按ALT F8选择该宏运行就可以了，当然也可为这个宏分配一个按钮。
程序的实现方法：程序是以WORD的查找为基础，找到四位以上的数字，然后选择这个数字，将其变为千分位格式后写回，循环到查找结束。
当然代码中并没有对数字进行细致的分析，所以对“2002年”这样不应加千分位的数字也会处理。
代码在OFFICE9,OFFICE10,OFFICE11,OFFICE12上运行通用。
在word中怎么输入千分位符号
TypeText Text:=Format(Selection; 5word中，没有自动实现数字转换为千分位格式的方法，只能通过手工编写宏命令的方法来实现。
具体步骤如下； 3; 8、在模块窗口输入以下宏指令： Sub FormatNumbers() Selection, ＂#,##0.00＂) End Sub 4、保存退出VBA编辑器； 2，确定； 7、选择需要设置会计格式的数字，点击快捷栏中的宏命令、打开word；"、打开自定义对话框，选择宏，点击添加： 1，点击插入->模块； 6、点击office按钮->word选项、按alt+F11打VBA编辑器...
-