在word里，对一句话里（逗号为一句话）没有数字或者数字为0.0的则删除

sunfei00426 · 发表于 2024-4-10 14:15

本帖最后由 sunfei00426 于 2024-4-10 17:36 编辑

例如：阿斯蒂芬阿斯蒂芬啊地方1231万元，沃尔沃二为二为任务为二0.0万元，二外二为二物色地方万元，阿斯蒂芬斯蒂芬斯蒂芬1.2%，斯蒂芬斯蒂芬味儿%。

以上的语句里面，只要是没有数字，或是是无效数字（例如0.0）的话（红色字体的句子）就删除（以逗号为一句话）。
请大神帮忙写一个vba能在word中使用的。

营业情况.zip (90.1 KB, 下载次数: 1)

grf1973 · 发表于 2024-4-10 15:51

供参考。。。。。。

sunfei00426 · 发表于 2024-4-10 15:55

本帖最后由 sunfei00426 于 2024-4-10 16:07 编辑

grf1973 发表于 2024-4-10 15:51
供参考。。。。。。

很高级，但是只是针对有限的内容，如果我的内容有几万字该怎么办？有没有直接就可以对任何文档都可以执行的vba呢。另外，请大神帮忙以文字的形式粘贴出来，我这个小白怕输错字符

sunfei00426 · 发表于 2024-4-10 16:10

grf1973 发表于 2024-4-10 15:51
供参考。。。。。。

可否有针对所有文字的？因为文字有万个，是否有不限于以上文字的？
请高手指点并复制代码到论坛里

grf1973 · 发表于 2024-4-10 16:35

匹配替换好弄，要操作其他文档比较麻烦。请高手解决吧。

bxm78 · 发表于 2024-4-10 17:01

代码如下：

sunfei00426 · 发表于 2024-4-10 17:17

bxm78 发表于 2024-4-10 17:01
代码如下：

能否发可以编辑的代码，感谢

sunfei00426 · 发表于 2024-4-10 17:23

本帖最后由 sunfei00426 于 2024-4-10 17:40 编辑

bxm78 发表于 2024-4-10 17:01
代码如下：

好像还是不能全部实现，有些在分号之间的内容不会删除，文字中有空格的也不能删除，数字中有0.0这样的也需要删除，还有括号卡头和结尾的也不能删除，但是要保留“与上次汇总数相比，”这段话，能否再帮忙改进一些呢
能否帮忙在附件中帮忙看能否实现以上功能，谢谢了

营业情况.zip (90.1 KB, 下载次数: 8)

grf1973 · 发表于 2024-4-11 10:46

不追求格式的话，可以先把word内容复制到excel表中，处理后再粘贴回去，这样用数组什么方便一点。
源数据虽然比较规范，但里面有分号，括号等还是需要分别处理。
尽量处理了一下，基本符合要求。

grf1973 · 发表于 2024-4-11 16:01

用JSA做了一个，好象要更精确一些。

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

[求助] 在word里，对一句话里（逗号为一句话）没有数字或者数字为0.0的则删除

评分

评分

评分