[探讨]如何识别Word里数字？

hlrong · 发表于 2003-6-25 00:04

请教高手，有没有什么方法，怎样把文档里的阿拉伯数字串识别出来，如：本月销售收入567823.25元，营业支出374269.56元把上面文字段中的567823.25和374269.56识别出来是阿拉伯数字串？ [move]如用VBA的方法，请提供代码。[/move] [em09][em09][em09]

zjx3456 · 发表于 2003-6-26 08:39

编辑-查找-特殊字符-任意数字，OK?

hlrong · 发表于 2003-6-26 23:03

谢谢，上面的问题已解决，现想解决如下问题：本月销售收入567,823.25元，营业支出374,269.56元。不知如何把数字中的分节号去掉，而不影响“，”号的使用，有的文档使用半角标点“,”（即不能把“,”号也去掉）？

zjx3456 · 发表于 2003-6-28 16:39

可以查找^#,^#，不能自动替换。

zjx3456 · 发表于 2003-6-29 19:00

我又查了资料，发现可以做到。步骤如下： 1、ctrl+H 2、勾选“使用统配符”复选框 3、在“查找内容”输入框中填入： ([0-9])(,) 4、在“替换内容”输入框中填入： \1 5、左击“全部替换”按钮，OK！

zzlzz · 发表于 2003-6-30 09:27

lihailihai

峨嵋青衣 · 发表于 2003-6-30 09:53

TO:ZJX3456 你的下列公式中： 1、ctrl+H 2、勾选“使用统配符”复选框 3、在“查找内容”输入框中填入： ([0-9])(,) 4、在“替换内容”输入框中填入： \1 5、左击“全部替换”按钮，OK！第4点即“\1”是什么意思？不懂！可否解释一下？

hlrong · 发表于 2003-6-30 09:58

非常感谢zjx3456兄，你上面说的很管用，我以前只用过通配符查找，还未用过表达式呢，谢过。我已做了VBA，能实现数字串识别和数字千分位功能，大体思路： 1、首先查找数字，标识字体格式为删除线（当然标识成其它也行，只要不与识别文档中的其它字体格式相同就行）； 2、查找标识的数字串（格式查找），执行转换，使用语句: Selection.Find.Replacement.Text = Format(Val(Selection.Text), "##,##0") Selection.Collapse Direction:=wdCollapseStart Selection.Find.Execute Replace:=wdReplaceOne 即可实现数字的千分位转换。

hlrong · 发表于 2003-6-30 10:01

以下是引用峨嵋青衣在2003-6-30 9:53:00的发言： TO:ZJX3456 你的下列公式中： 1、ctrl+H 2、勾选“使用统配符”复选框 3、在“查找内容”输入框中填入： ([0-9])(,) 4、在“替换内容”输入框中填入： \1 5、左击“全部替换”按钮，OK！第4点即“\1”是什么意思？不懂！可否解释一下？

“\1”是查找的表达式1，即([0-9])

zjx3456 · 发表于 2003-6-30 15:53

9楼说的没错！

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