word如何删除含有特定字符串的整行

wenwu0318 · 发表于 2020-4-3 23:25

请教大家，word2010版本如何删除含有特定字符串的整行。
我想删除文中含有“a：”的段落
谢谢

cuanju · 发表于 2020-4-4 07:44

Sub d1()
Rem 删除指定关键词段落
Dim i As Paragraph
With ActiveDocument
      For Each i In .Paragraphs
         With i.Range
            If .Tables.Count = 0 Then
                  If .Text Like "*a：*" Then .Delete
            End If
         End With
      Next
End With
End Sub

wenwu0318 · 发表于 2020-4-4 09:44

谢谢，ActiveDocument这是当前打开的文档吧，如果仅删除本文档中的呢？

cuanju · 发表于 2020-4-4 10:09

wenwu0318 发表于 2020-4-4 09:44
谢谢，ActiveDocument这是当前打开的文档吧，如果仅删除本文档中的呢？

把这个代码放到本文档就行了。其余不用管，

wenwu0318 · 发表于 2020-4-4 12:04

好的，谢谢

wdpfox · 发表于 2020-4-11 16:34

学习中，受益匪浅，谢谢分享！

莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！

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

[求助] word如何删除含有特定字符串的整行