怎样将word文档中数字，自动加“千分符”？
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了怎样将word文档中数字，自动加“千分符”？相关的知识，希望对你有一定的参考价值。
对不起，是我没有说清楚，是千位分隔符，比如 123,345.56 中间的逗号。
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 Currency
On Error Resume Next
Application.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 - 1
End If
myValue = VBA.Val(myRange) '保险起见转换为数据,也可省略
myRange = VBA.Format(myValue, "Standard") '转为千分位格式
GoTo NextFind '转到指定行
Loop
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
3、关闭Visual Basic编辑器，回到WORD界面。输入文章后，点击“运行宏”图标，运行yycealjj1宏，即可对数字加千分位。（可以插入模板，以后要用时加载即可） 参考技术A 自动怎么加我不清楚，不过在智能ABC的输入法的状态下打字母V然后按数字键1，然后会出现一系列符号，然后继续按主键盘上的=/+号键，连续按8下，你会发现第3个符号就是千分比符号：‰ 参考技术B 没有自动加的功能，不过也很好设的：你点 插入－符号－ 找到“‰”后，在下面有自动更正和快捷键的设置，你设一种就好了。 参考技术C 把楼上的千分符粘贴进去，在工具--自动更正中增加一条，将“%%”自动更正为“‰”。
以后需要打‰时，你只要连续输入两个%就可以了。
那需要通过代码的方式进行，很费事了。
如何给字符加千分符例如：65，541，694，158
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>给字符加千分号</title>
<script type="text/javascript">
var str = '2359844564654';
function test3(str)
var iNum = str.length%3; //余数
var prev = '';
var arr = [];
var iNow = 0;
var tmp = '';
if(iNum !=0)
prev = str.substring(0,iNum); //将余数截取出来
arr.push(prev);
str = str.substring(iNum);
for(var i=0;i<str.length;i++)
iNow++;
tmp +=str[i];
if(iNow ==3 && tmp)
arr.push(tmp);
tmp = '';
iNow = 0;
return arr.join(',');
alert(test3(str));
</script>
</head>
<body>
<p></p>
</body>
</html>以上是关于怎样将word文档中数字，自动加“千分符”？的主要内容，如果未能解决你的问题，请参考以下文章
java 数字转为千分符格式字符串，将千分符格式字符串反转为数字