我要在2000、word2000中设置千位分隔符，现在每次都要手动设置。怎样做才可以一劳永逸，不用每次手动设置？
全部答案（共3个回答）
L中，选择需要变换的单元格，右键单击选择设置单元格格式，在常规选项卡中，选择数值型的，在右边出现数值型的格式，其中有一句使用千格符符号，将其勾上就可以了，最后当然就是点击确定了！！！
希望可以帮到你 ！！！
用浏览器，在搜索引擎里进入字体的名字，下载后把字体文件复制进windows\fonts内
如果你仍然未找到，可点“开始/程序/Microsoft Office/Microsoft Office Excel 2003”
直接在网上下载一个OFFICE2003（是OFFICE2000的高版本，现在很不有人用2000了）
下载地址：
下载后安装起来，就会在开始/程...
我已经尽力了但我没有找到答案对不起！
1.打开EXCEL，打开要加密的文件
2.在“文件”中选择“另存为”
3.在“另存为”对话框的右上角点“工具”
4.在“工具”下拉菜单中选择“常规选项”
...
答: 想吃点好的，又想节约点钱怎么办呀？有什么好的软件可以推荐吗？
答: 好在有许多成熟的安全和网络技术，例如虚拟私有网络（VPN）和防火墙等，能够极大地提高Web服务应用的安全和性能，让开发者拥有选择安全技术的自由，而不是非得使用尚...
答: 某些ADSL调制解调器使用USB接口与电脑相连，需要在电脑上安装指定的软件以添加虚拟网卡来进行通信
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区查看: 8199|回复: 5
在WORD中手动输入的数字可以设置千位分隔符号（，）吗？
阅读权限30
在线时间 小时
如题。在WORD中手动输入的数字（不是公式计算出来的）是否可以设置千位分隔符号（，）？我以前都是输入逗号解决的，感觉很不方便。
[ 本帖最后由 荸荠 于
16:11 编辑 ]
阅读权限30
在线时间 小时
自己顶一下。这个问题不是问题还是太简单了？
阅读权限100
在线时间 小时
对VBA不熟悉，就说说替换的思路吧：
编辑 → 替换 → 打开替换对话框
第一步：（高级 → √使用通配符）
查找内容：([0-9])([0-9]{3})(.)
替 换 为：\1,\2\3
然后执行“全部替换”
第二步：（√使用通配符）
查找内容：([0-9])([0-9]{3})(,)
替 换 为：\1,\2\3
然后重复执行“全部替换”，直到提示替换0处为止。
注：第二步的查找内容就是将第一步查找内容中的.变为,即可，而替换为中的内容不变。
[ 本帖最后由 kqbt 于
14:57 编辑 ]
阅读权限30
在线时间 小时
回复 3楼 kqbt 的帖子
谢谢！刚才测试了一下：有小数位数的可以，整数的无效。可否再优化一下？
阅读权限100
在线时间 小时
第一步：（高级 → √使用通配符）
查找内容：([0-9])([0-9]{3}[!0-9])
替 换 为：\1,\2
然后执行“全部替换”
第二步：（√使用通配符）
查找内容：([0-9])([0-9]{3},)
替 换 为：\1,\2
然后重复执行“全部替换”，直到提示替换0处为止。
注：整数123456替换结果为123,456不知道是否符合规范；如果是要替换为123,456.00则需另作考虑。
[ 本帖最后由 kqbt 于
15:47 编辑 ]
阅读权限30
在线时间 小时
回复 5楼 kqbt 的帖子
谢谢！测试了一下，符合要求。不胜感激！就是不明就里。::L
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 14517|回复: 9
word2007如何让数字自动添加千位分隔符
初级一, 积分 16, 距离下一级还需 34 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
里面有很多长数字
如何能够自动转化为下面的形式
123,456,789
以便不用再数个十百千万
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 16, 距离下一级还需 34 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 weiguo6100 于
10:36 编辑
自己在百度里找到了段代码，实验了可以用，呵呵，分享下先：
打开word,按alt+F11，选择左边的normal--模块（点右键）---插入--模块在代码窗口中保存以下代码：
Sub CurrencyNumber()
& & Dim i As Range, Acell As Cell, CR As Range
& & On Error Resume Next
& & Application.ScreenUpdating = False
& & If Selection.Type = 2 Then
& && &&&For Each i In Selection.Words
& && && && &If i Like &####*& = True Then
& && && && && & If i.Next Like &.& = True And i.Next(wdWord, 2) Like &#*& = True Then
& && && && && && &&&i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End
& && && && && && &&&i = Format(i, &Standard&)
& && && && && & Else
& && && && && && &&&i = Format(i, &Standard&)
& && && && && & End If
& && && && &End If
& && &&&Next i
& & ElseIf Selection.Type = 5 Then
& && &&&For Each Acell In Selection.Cells
& && && && &Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
& && && && &MsgBox CR
& && && && &If CR Like &####*& = True Then
& && && && && & If CR Like &####.#*& = True Then
& && && && && && &&&Yn = Format(CR, &Standard&)
& && && && && && &&&CR.Text = Nn
& && && && && & Else
& && && && && && &&&Yn = Format(CR, &Standard&)
& && && && && && &&&CR.Text = Nn
& && && && && & End If
& && && && &End If
& && &&&Next Acell
& && &&&MsgBox &您只能选定文本或者表格之一!&, vbOK + vbInformation
& & End If
& & Application.ScreenUpdating = True
保存---运行（F5）--关闭
进入word2007---顶端的自定义工具栏---其他命令--从下列位置选择命令-宏--CurrencyNumber--添加至右边--修改（自己改个图标）及名称--确定& && && &&&就完成了。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Sub 设置千分位格式()
Dim myRange As Range, myValue As Double
Application.ScreenUpdating = False '关闭屏幕更新,加快程序运行
Do '进入一个循环
'定义myRange为活动文档的主文字部分
Set myRange = ActiveDocument.Content
With myRange.Find '查找设置
.ClearFormatting '清除格式
.Text = &[0-9]{4,}[!年]& '查找四个以上的数字且其后为不为年的内容
.MatchWildcards = True '使用通配符
If .Execute = False Then Exit Do '如果未找到则退出循环
myValue = Val(myRange.Text) '取得数字
myRange.SetRange myRange.Start, myRange.End - 1 '重新定义myRange对象
myRange.Text = VBA.Format$(myValue, &#,##0&) '写入千分位格式
End With
Loop
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
复制代码
10:05 上传
点击文件名下载附件
7.25 KB, 下载次数: 34
word2007如何让数字自动添加千位分隔符
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
步骤一 按&Ctrl+Home&组合键
步骤二 按&Ctrl+H&组合键,打开&查找与替换&,进行下图的设置
QQ截图01.png (20.39 KB, 下载次数: 1)
word2007如何让数字自动添加千位分隔符
10:12 上传
步骤四 单击&全部替换&
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
如果有只个别需要设置,可以通过域进行设置,方法:
按&ctrl+f9&组合键,输入一对域括号,输入&=数字 \#&#,##0.00&，
再按一下&F9&即可
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 2, 距离下一级还需 8 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
[Word] word里如何实现数字自动千分位格式
学office，哪能不关注全网最大的Office类微博（新浪）
高级一, 积分 1755, 距离下一级还需 145 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
我的代码如下Sub 千元()
'
' 千元 Macro
' 宏在
由 传递 创建
'
If Selection.Start = Selection.End Then
& & Selection.MoveLeft Unit:=wdCharacter, Count:=1
& & Selection.MoveRight Unit:=wdCharacter, Count:=1
& &&&
& & Ch = Left(Selection.Text, 1)
& & isDigit = (Asc(Ch) &= Asc(&0&) And Asc(Ch) &= Asc(&9&)) Or Ch = &,& Or Ch = &.&
& &
& & If isDigit Then
& && &Do
& && &&&isDigit = False
& && &&&If Selection.MoveRight = 1 Then
& && && & Ch = Left(Selection.Text, 1)
& && && & isDigit = (Asc(Ch) &= Asc(&0&) And Asc(Ch) &= Asc(&9&)) Or Ch = &,& Or Ch = &.&
& && &&&End If
& && &Loop While isDigit
& &&&
& && &Do While Left(Selection.Text, 1) = &,& Or Left(Selection.Text, 1) = &.&
& && &&&Selection.MoveLeft
& && &Loop
& & End If
& &
& & icount = Selection.End
& &
& & Do
& && &isDigit = False
& && &If Selection.MoveLeft = 1 Then
& && &&&Ch = Left(Selection.Text, 1)
& && &&&isDigit = (Asc(Ch) &= Asc(&0&) And Asc(Ch) &= Asc(&9&)) Or Ch = &,& Or Ch = &.&
& && &End If
& & Loop While isDigit
& &
& & If Selection.Start & 0 Then Selection.MoveRight
& & Do While Left(Selection.Text, 1) = &,& Or Left(Selection.Text, 1) = &.&
& && &Selection.MoveRight
& & Loop
& &
& & Selection.End = icount
End If
If Selection.Start & Selection.End Then
&&tmpstr = Format(Selection.Text, &&)
&&tmpnum = Val(tmpstr)
&&If Abs(tmpstr - Format(tmpnum, &&)) & 0. Then Selection.Text = Format(tmpnum / 10000, &#,##0.00&)
&&'Selection.Start = Selection.End
End If
End Sub
复制代码修改 Format(tmpnum / 10000, &#,##0.00&) 可以修改为化百元,化千元,以及不同的小数格式.
;可将此宏指定一个快捷键,在word中,把光标放在需要转化格式的数字前面或中间或后面,按下快捷键,即可转化数字
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 2, 距离下一级还需 8 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
请问 word表格中如何实现
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 327, 距离下一级还需 173 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
留个记号。学习了
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byWord也能自动添加财务数字中的千位分节符吗？
我的图书馆
Word也能自动添加财务数字中的千位分节符吗？
??????15万粉丝共同关注每日Excel/Word/PPT技术分享请点左下角的“阅读原文”在Word中，如何将文档中的数据设置为千分位格式如图 6?19所示为某公司给省商务厅上报的2013年农产品现代流通综合试点××农产品物流中心地产蔬菜销地专区建设项目概况，制作者希望按公文格式，将文件中的金额数值设置成千分位格式，应该如何操作？图6?19项目情况说明书→ 解决方案1利用“公式”对话框设置千分位。→ 操作方法※利用“公式”对话框设置千分位※步骤1 如图 6?20所示，单击“自定义快速访问工具栏”下拉按钮，选择“其他命令”选项，打开“Word选项”对话框。图6?20打开“Word选项”对话框步骤2 如图 6?21所示，在“从下位置选择命令”下拉列表框中选择“所有命令”选项，在下面的列表框中选择“公式”选项，单击“添加”按钮→“确定”按钮。图6?21将“公式”添加到“自定义快速访问工具栏”中步骤3 将光标定位到需要插入设置成千分位格式的数字处，击“自定义快速访问工具栏”处的“公式”按钮，打开“公式”对话框。步骤4 如图 6?22所示，在“公式”文本框中录入“=”，在“数字格式”列表框中选择数字格式为“#,##0.00”，单击“确定”按钮，即可完成操作。图6?22“公式”对话框→ 解决方案2利用“域”设置千分位。→ 操作方法※利用“域”设置千分位※步骤1 将标光定位到需要插入设置成千分位格式的数字处，按&Ctrl+F9&组合键，录入一对花号括，在花括号中录入以下域代码：{ =\#'#,##0.00' ｝步骤2 按&Shift+F9&组合键，将录入的域代码转换为结果即可得到效果。→ 知识扩展※“\#”开关※“\#”被称为数字开关，用来指定数字结果的显示，如表 6?5所示，展示了常用的数字开关项。表6?5常用数字开关开关选项作用域代码域结果0此格式项目指定结果中要显示的必不可少的数字位。如果结果不包括在该地方的一个数字，Word 将显示为 0 （零）。{ =2013 \#0.00 }2013.00#此格式项目指定必不可少的数字将显示在结果中。如果结果不包括在该位置的数字，Word 显示空格。{ =2013 \# ￥##### }￥ 2013X此格式项目丢弃'x'的左边的数字占位符。如果占位符是十进制小数点的右侧，Word 将舍入到该位置的结果。{ =2013 \# X## }13.( 十进制小数点）此格式项目确定小数点的位置。{ =2013 \#0.00 }2013.00, (数字分组符号)此格式项目将分开的一系列的三个数字(即确定千分位分隔符)。{ = 2013610 \# $#,##0.00 }$2,013,610.00-（减号）此格式项目添加一个减号负面的结果，或添加一个空格，如果结果为正或 0 （零）。{ =10-90 \# -## }-80+（加号）此格式项目会将加号 (+) 添加到一个积极的结果负的结果或空格的减号，如果结果为 0 （零）。{ =100-10 \# +## }+90%，$，*等等此格式项目将包括指定的字符，在结果中。{ =13 \# ##% }13%' 示例格式设置为正 ；负 '此格式项目指定不同的数字格式为正数和负数结果分隔一个分号。{ =-2013 \# '$#,##0.00;( $#,##0.00)' }( $2,013.00)' 示例格式设置为正 ；负 ； 零'此格式项目指定不同数字格式结果为正、 负结果和为 0 （零） 个由分隔结果分号。{ =-0 \# '$#,##0.00;( $#,##0.00);0' }0文本此格式项目中添加文本结果。将文本括在单引号中。{ =10 \# '№'000 }№010版权所有 转载须经Excel技巧网许可15万粉丝共同关注每日Excel/Word/PPT技术分享请点左下角的“阅读原文”
馆藏&20754
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&君，已阅读到文档的结尾了呢~~
精品：word 千位分隔符 千位分隔符 千位符 word文档分隔符在哪 word文档换行符 excel千位分隔符 word文档分隔符 word文档数据恢复 word分隔符 word 分节符
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
如何给word文档里的数据设置千位符
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口