word中数字千位符 word数字加千位分隔符
如何在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宏，即可对数字加千分位。
（可以插入模板，以后要用时加载即可）
请问如何在word里输入数字的时候能自动加上千分符和.00这样的两位...
其他输入法不清楚，搜狗输入法先输入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：在智能ABC的输入法的状态下打字母V然后按数字键1，然后会出现一系列符号，然后继续按主键盘上的=/+号键，连续按8下，你会发现第3个符号就是千分比符号：‰2：选择插入-符号，从里面找到 后双击那个符号就可以插入。
再使用时可以复制粘贴的方法。
‰如果我的回答没能帮助您，请继续追问。
-