怎么删除word关键词对应行或段

125675117 · 发表于 2022-12-6 15:36

本帖最后由 125675117 于 2022-12-6 16:04 编辑

老师

请见这个代码，这个是网友贴出来的代码，是用在word，用于删除关键词所在那一行内容。
能否请您修改成在excel VBA里实现调用word，并且实现对word里的关键词所在行的删除，
能否再请增加一个修改word内容的功能（有需要时调用）。

'请将以下代码复制贴入WORD VBA宏中
'选择运行即可　应该是你想要的代码
Sub 删除查找含关键词的行()
Dim KeyWord As String
KeyWord = InputBox("请输入关键词（词长不限，中英均可）：", "关键词设置", "")
If KeyWord = "" Then Exit Sub
Selection.HomeKey wdStory
Do
With Selection.Find
.Text = KeyWord
.Wrap = wdFindStop
.Forward = True
End With
If Selection.Find.Execute = False Then Exit Do
Selection.Paragraphs(1).Range.Select
If (Left(Selection.Text, Len(KeyWord))) = KeyWord Then
Selection.Paragraphs(1).Range.delete
Selection.HomeKey unit:=wdLine
End If
Loop
Selection.HomeKey unit:=wdStory
End Sub

复制代码

125675117 · 发表于 2022-12-7 11:28

我自己顶一下，希望有老师帮助解决一下，谢谢。

太极拍天雄 · 发表于 2022-12-8 22:58

本帖最后由太极拍天雄于 2022-12-9 22:56 编辑

学习练习一下Word-vba

125675117 · 发表于 2022-12-9 11:29

太极拍天雄发表于 2022-12-8 22:58
学习练习一下Word-vba

老师

提示类型不匹配呢？

pc087 · 发表于 2022-12-9 11:52

本帖最后由 pc087 于 2022-12-9 11:55 编辑

当前行是wdLine，段落是wdParagraph
选中当前行代码是 Selection.Expand wdLine
选中当前段落代码是 Selection.Expand wdParagraph

125675117 · 发表于 2022-12-9 14:03

pc087 发表于 2022-12-9 11:52
当前行是wdLine，段落是wdParagraph
选中当前行代码是 Selection.Expand wdLine
选中当前段落代码是 Sele ...

老师，有点问题，我是想实现在excel调用word，操作word

太极拍天雄 · 发表于 2022-12-9 23:06

更新了代码，但你的要求我做不出来！我只是练习学习而已！

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

[求助] 怎么删除word关键词对应行或段