凯撒-大弟
宏我不会，因为看到这么久没人回，所以我给出一个比较能够满足你的要求的方法
步骤1：有小数点的整数部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([. ])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
步骤2：有小数点的小数部分加空格
ctrl+h调出替换对话框
查找内容输入：([. ])([0-9]{3})([0-9])
替换为输入：\1\2 \3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
步骤3：不含小数点的部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([!0-9 .年])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若1次。
步骤4：超过6位的无小数点部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([. ])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
word如何给数字加千分位，通过宏解决，而且要避开年份，即年份不加千分位，且其他数据均保留两位小数。
表格形式的数据，建议用excel处理好再复制回来。（格式--数字--..)
少的话还是自己手改。
其实查找替换（选通配符)可以改好的：
1.先查年份:
([12][90])([0-9]{2}[!0-9]) 替换为 \1◆\2
2.加千分位
([0-9]{3})([0-9]) 替换为 \1,\2
3.◆ 替换为 空
要做宏的话你参考一下：
Sub F3()
With Selection.Find
.Text = "\<[ABRIUPa-z/]{1,}\>"
.Replacement.Text = "^p"
.MatchByte = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
WORD里数字用千分位怎么设置
可以通过查找替换的方式进行设置，具体操作步骤如下：
工具/原材料
word2016版、电脑。
1、打开电脑找到并点击word2016版文档软件；
2、双击打开word文档软件以后，先在空白文档内编辑好任意的数字内容；
3、编辑好数字内容以后，在右上方的工具栏中找到并点击替换的命令；
4、在弹出的对话框中找到并点击“更多”按钮；
5、点击更多的命令以后，在出现的选项中勾选“使用通配符”的命令；
6、勾选以后，在上方的查找内容栏里输入“([0-9])([0-9]{3})([!][0-9年])”，在替换为栏里正确输入“\1,\2\3”；
7、输入并设置好以后，此时在一直点击替换的按钮直到完成为止。
如何在word中实现千分位符
其他输入法不清楚，搜狗输入法先输入v再输入数字会出现千分位形式，但.00还是要自己输入
有一段宏代码运行后可以自动给数字加千分位及两位小数位
转帖
在Word中也实现数字自动千分位格式
这个方法比较好。收藏一下。（转自“中国会计视野论坛”里zhufree朋友的帖子。）
打开WORD程序，在上方菜单区域中，右键单击，选中Visual Basic。点击“Visual Basic编辑器”图标，打开Visual Basic，在“ThisDocument ”中双击，然后在右边的窗口中复制下方的代码：
2、对所有的数字加千分位，并且自动加上尾数.00
Sub 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 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
关闭Visual Basic编辑器，回到WORD界面。输入文章后，点击“运行宏”图标，运行yycealjj1宏，即可对数字加千分位。（可以插入模板，以后而要时加载即可。）
想在word里面输入千分位分隔符的数字，怎么弄
用替换法，快捷键Ctrl+h；
“搜索选项”下方勾选“使用通配符”；
“查找内容”中填入: ([0-9])([0-9]{3})([!][0-9年])，“替换为”中填入：\1,\2\3，
在输入法为英文半角的状态下输入。
执行“全部替换”。重复按“全部替换”按钮，直到提示“替换0处”为止。
查找框中“([0-9])([0-9]{3})([!][0-9年])”的含义是： （）[ ]{ }称为：通配符。
( ) 表达式，[ ] 范围内的任意单个字符，{ } 指定前一范围次数（勾选 “使用通配符”复选框让通配符设定的条件起作用）。
意思是：查找不是0-9或者“年”之前的三位以上的数字(WORD默认从左到右顺序查找)。
替换框中“\1,\2\3”的含义是：\1代表查找框中第一个表达式，\2代表查找框中第二个表达式，以此类推。意思是：按从左到右的顺序，在不是0-9或者“年”前的第四位数字后加千分位符（,）。如：10000000.00元，按第一次“全部替换”按钮为：10000,000.00元，按第二次“全部替换”按钮为：10,000,000.00元，按第三次“全部替换”按钮为：“替换0处”完成。
如何将Word中的数字转换为千分位的格式
word中，没有自动实现数字转换为千分位格式的方法，只能通过手工编写宏命令的方法来实现。
具体步骤如下：
1、打开word；'
2、按alt+F11打VBA编辑器，点击插入->模块；
3、在模块窗口输入以下宏指令：
Sub FormatNumbers()
Selection.TypeText Text:=Format(Selection, "#,##0.00")
End Sub
4、保存退出VBA编辑器；
5、点击office按钮->word选项；
6、打开自定义对话框，选择宏，点击添加，确定;
7、选择需要设置会计格式的数字，点击快捷栏中的宏命令；
8、完成。
如何将Word中的数字转换为千分位的格式
不行，因为Word里面的所有文字都是文本格式的，所以无法想EXCEL里一样对数字进行格式的转换做WORD的表格的时候 如果涉及到大量数字 建议使用插入→对象→EXCEL工作表 这样就可以实现数字像EXCEL里一样可以转换格式 你如果觉得不够好看 编辑好了以后再复制出来 粘贴为WORD表格就行了
word2007数字千分位怎么设
手动输入个英文逗号就行，如有你非要高难度的，我转一个文章给你，你看看吧
采用了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上运行通用。
转载请注明出处51数据库 » word千分位宏 word中用宏加千分位拜求高手
