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

tangqingfu · 发表于 2011-12-16 20:50

kqbt 发表于 2011-11-7 12:23
参考如下VBA代码：

请教kqbt兄，能否修改代码，使之达到关键字为自由文本，可以通过inputbox框由用户自行输入？

kqbt · 发表于 2011-12-19 17:04

本帖最后由 kqbt 于 2011-12-19 17:05 编辑

tangqingfu 发表于 2011-12-16 20:50
请教kqbt兄，能否修改代码，使之达到关键字为自由文本，可以通过inputbox框由用户自行输入？

tang兄，inputbox()函数应该是非常独立的，既然使用它的目的是将静态字符变成灵活的变量，那么很容易就能够想明白其实现方法了：

'先声明一个变量
dim myTxt as string
'这一句可置于过程开头的声明组区域

'再使用inputbox()函数来给变量赋值
myTxt = inputbox("输入查找的字符：","指定要删除的行所含文字","我")
'这一句可置于声明区域之后或获取目录成功之后即第1个 End With 之下均可

另，差点忘了，把原代码中要查找的 "我" 改为 myTxt

tangqingfu · 发表于 2011-12-19 20:30

kqbt 发表于 2011-12-19 17:04
tang兄，inputbox()函数应该是非常独立的，既然使用它的目的是将静态字符变成灵活的变量，那么很容易就 ...

谢谢kqbt兄的指点，我试试看！

胖头余 · 发表于 2012-12-10 00:30

老师，我也有这样的需求，但是是Excel表。该怎么搞。

qldjj · 发表于 2013-3-25 11:28

能不能删除WORD表格中指定列中为空的行

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

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