WORD文档文字提取相关

大公臻信

各位老师：

我想把删除测试文档中“广告”与“×”之间的段落删除掉（含“广告”与“×”段落）代码如下：

Sub 删除广告至×连续段落()
Dim itext As String '关键字符
Dim pr As Long  '段落数
Dim rng As Range
itext1 = "广告"  '自行更改关键字
itext2 = "×"  '自行更改关键字
With ActiveDocument
    pr = .Paragraphs.count  '段落数
    For i = pr To 3 Step -1  '遍历段落        
        '如果段落内容含有关键字
'            If InStr(.Paragraphs(i).Range, itext2) > 0 And InStr(.Paragraphs(i - 2).Range, itext1) > 0 Then
        text9 = .Paragraphs(125).Range.Text
        text2 = .Paragraphs(i).Range
        text1 = .Paragraphs(i - 2).Range.Text
        Debug.Print text2; text1
        If text1 = itext1 Then         ’执行到此句，text1=“广告    itext="广告"，我感觉text1与itext的值相等，实际代码执行为不相等
        '将段落内容复制给rng变量
            Set rng = .Range(.Paragraphs(i - 2).Range.Start, .Paragraphs(i).Range.End)
            rng.Select  '选中段落
            'rng.Delete  '删除段落
        End If
    Next
End With
End Sub


执行If text1 = itext1 Then 时
text1=“广告    itext="广告"，我感觉text1与itext的值相等，实际代码执行为不相等
请老师帮看一下，为何，请老师指点！！！谢谢 删除测试.zip (10.77 KB, 下载次数: 9)

2023-9-9 10:53 上传

点击文件名下载附件

batmanbbs

肯定不会相等啊
itext1 和 itext2 都是字符串，内容就是你赋值的内容
text1 和 text2 是段落的内容，段落结尾都有段落符（或分节符，表格还有表格单元符），因此不能直接比较，需要去掉 段落符才能比较

PS：如果可以确定连续段落的首尾，可以直接使用查找替换，不用遍历的方式，效率更高一些
根据你的设定，可以设置：
查找：^13广告^13*^13×^13
替换：^13

蜀中草莽

ActiveDocument.Content.Find.Execute "^13广告*×^13", , , 1, , , , , , "", 2

过客fppt

在WPS中，最简单的方法是用通配符全部替换为空

大公臻信

谢谢3位老师的指点。谢谢，万分感谢！

batmanbbs

大公臻信 发表于 2023-9-9 16:31
谢谢3位老师的指点。谢谢，万分感谢！

在使用楼上两位老师的查找替换通配符时，要注意：一定确保一个广告肯定会对应一个X，否则将会删除广告到遇到的第一X之间的所有内容

大公臻信

谢谢老师提醒