批量删除WORD表格中含关键字的一行

goodluck1234 · 发表于 2011-11-11 20:53

wudixin96 发表于 2011-11-8 09:06

老师好，我想再追问一个问题，现在是删除含“我”字表格所在的行，如果我要删除，含“我”字或者含“你”字，或者含“他”字的表格所在行，我需要将代码的哪个部分，进行修改，改成什么呢？也就是说，我现在是增加几个关键字选的选择条件。详见附件。

wudixin96 · 发表于 2011-11-11 22:16

InStr(c.Range.Text, "我") > 0 or InStr(c.Range.Text, "你") > 0 or InStr(c.Range.Text, "他") > 0

kqbt · 发表于 2011-11-12 08:54

wudixin96 发表于 2011-11-8 09:06

学习了。
另 If LCase(Right(f1.Name, 3)) = "doc" Then
是否可改为 If Instr(f1.Type,"Word") Then
以便兼容 Word 2007 等版本的文档？

wudixin96 · 发表于 2011-11-14 19:25

原理没问题，只是你自己把IF少打了

goodluck1234 · 发表于 2011-11-14 19:11

wudixin96 发表于 2011-11-11 22:16
InStr(c.Range.Text, "我") > 0 or InStr(c.Range.Text, "你") > 0 or InStr(c.Range.Text, "他") > 0

谢谢老师，我已经将TXT文件改成你要求的“你、我、他“的样子了。”但是运行有错误，详见附件。

立体几何 · 发表于 2011-11-15 01:16

刚有个帖子，介绍一个word批量处理的软件，好像可以解决你这个为问题

goodluck1234 · 发表于 2011-11-15 08:53

立体几何发表于 2011-11-15 01:16
刚有个帖子，介绍一个word批量处理的软件，好像可以解决你这个为问题

谢谢，能提供一些那个软件的名字与那个帖子的链接吗？

wudixin96 · 发表于 2011-11-15 11:30

请看22楼的说明

goodluck1234 · 发表于 2011-11-15 17:25

wudixin96 发表于 2011-11-15 11:30
请看22楼的说明

谢谢老师搞定了。

立体几何 · 发表于 2011-11-16 00:31

goodluck1234 发表于 2011-11-15 08:53
谢谢，能提供一些那个软件的名字与那个帖子的链接吗？

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

[求助] 批量删除WORD表格中含关键字的一行