请问如何在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里面。

怎么实现表格内数字转换有千分位的符的。

[抓狂...

1、打开WORD程序，在上方菜单区域中，右键单击，选中Visual Basic。

点击“Visual Basic编辑器”图标，打开Visual Basic，在“ThisDocument ”中双击，然后在右边的窗口中复制下方的代码：2、对所有的数字加千分位，并且自动加上尾数.00'本代码旨在解决WORD中数据转化为千分位'数据限定要求：-922,337,203,685,477.5808 到 922,337,203,685,477.5807'转化结果1000以上数据以千分位计算，小数点右侧保留二位小数；1000以下数据不变Sub yycealjj1()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 Sub3、关闭Visual Basic编辑器，回到WORD界面。

输入文章后，点击“运行宏”图标，运行yycealjj1宏，即可对数字加千分位。

（可以插入模板，以后要用时加载即可）

转载请注明出处51数据库 » 如何将word中的数字统一打上千分位的符