如何在WORD表格中将数字设置千位分隔符格式

kxyang · 发表于 2010-1-5 16:21

求救高人：
在WORD2003里，表格里的数字如何设置成千位分隔符格式？

wangd111 · 发表于 2010-1-5 16:32

你的表格如果是从插入--对象--excel工作表引进来用的话，和excel一样设置。

zhu221 · 发表于 2010-1-5 17:53

先复制到excel 设置千分位再复制会word

tanghaibing0430 · 发表于 2010-1-9 15:25

请看图片，用域来实现。

358928505 · 发表于 2010-6-25 09:02

看一下是你要的效果吗

kqbt · 发表于 2010-6-25 09:40

如果数据比较多，可以考虑用宏来处理。可参考：

Sub 千分位()
Dim rng As Range
Set rng = Selection.Range '选中要设置千分位的那一部分内容后运行该宏
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findtext:="[0-9]{1,}", MatchWildcards:=True)
rng.Text = Format(rng.Text, "standard", 1)
rng.SetRange rng.End, ActiveDocument.Content.End
Loop
End With
End Sub

复制代码

andysky · 发表于 2022-10-5 14:51

千分位分隔符，支持Word和WPS，支持整数和小数，会自动排日期排除，例如“2008年10月8日”，不会将“2008”改成“2,008”
支持对特定的数值添加分隔符，忽略其他值，例如只对带“元”的数字添加人隔符，忽略公斤前的数字......
如此设计才更智能，满足工作中的各种需求，又不会误伤某些不需要添加分隔符的值。
Word精灵，目前最新9.1版

		自动登录	找回密码
密码			免费注册

如何在WORD表格中将数字设置千位分隔符格式

回复 1楼 kxyang 的帖子