Vba 如果不是“删除文本”；X"&引用；“是”；或；Z"；

我希望删除文档中不符合条件的所有文本

全文如下：

例如，它将删除第14页之前的大部分内容。在第15页，它会留下“殡葬前科学账户200 BIOL 220”等等

我一直在努力：

Sub DeleteRowWithSpecifiedText()
    Dim sText As String

    sText = InputBox("Enter text for Row to be deleted")
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = sText
        .Wrap = wdFindContinue
    End With
    Do While Selection.Find.Execute
        If Not Selection.Information(wdWithInTable) Then
            Selection.Rows.Delete
        End If
    Loop
End Sub

这个扔

错误5941：“请求的集合成员不存在”

我在这篇文章底部的文档中列出了我想保留的所有内容

如果该行与类ID的通用形式不匹配，我还希望删除该行： “XX”或“XXX”或“XXXX”

“ACCT”“AIS”“ANTH”“ART”“AST”“AET”“AVIA”“BIOL”“BLAW”“CAHN”“CHEM”“CHIN”“CIVE”“BUS”“CDIS”“CMST”“CM”“CS”“CORR”“CSP”“DAK”“DANC”“DHYG”“ECON”“ED”“EDLD”“EET”“EET”“ENG”“ESL”“EAP”“ENVR”“ETHN”“EXED”“FILM”“FCS”“FINA”“FYEX”“FREN”“GWS”“GEOG”“GEOL”“GER”“GERO”“HLTH”“HIST”“HONR”“HP”“HUM”“IT”“IT”“enger”“IEP”“IEP”“emt”“MET”“MET”“MASS”“emt”“make”“emt”“emt”“emg”“ems”“ems”“emg”“emg”“ems”“ems”“emg”“ems”“ems”“ems”“ems”“ems”““MBA”“MATH”“ME”“MEDT”“MSL”“MDSM”“MUSE”“MUSP”“NPL”“NURS”“PYIL”“PHYS”“POL”“PSYC”“RPLS”“REHB”“SCAN”“SOST”“SOWK”“SOC”“SPAN”“SPED”“STAT”“THEA”“URBS”“WCDP”“WLC”“1”“2”“3”“4”“5”“6”“7”“8”“9”“0”

---

%专业预科课程百分比脊骨疗法前百分比牙科预科百分比工程预科百分比法律预科百分比医学预科百分比太平间科学预科百分比职业治疗前百分比验光前百分比骨科医学和外科学预科百分比药房预科百分比物理治疗前百分比足病医学和外科学预科百分比兽医学预科百分比学术学院百分比建议/一般l教育/多元文化/写作密集型%、学术课程%、会计学%、衰老研究（正式老年学）%、酒精和药物研究%、联合健康和护理（入门课程）%美国印第安研究%人类学%应用组织研究%艺术%天文学%运动指导%运动训练%汽车工程技术%航空%生物化学%生物技术%工商管理%商业教育%商法%化学%中文（普通话）%土木工程%、认知科学%、沟通障碍%、沟通研究%、计算机工程%、计算机工程技术%、计算机信息技术%、计算机科学%、建筑管理%、企业和社区健身/健康%、矫正%、咨询和学生人员%、舞蹈%、口腔卫生%、地球科学%、经济学%、教育领导力%、电气工程%、电子工程技术%、基础教育%、英语%、非母语人士英语（英语作为第二语言）%环境科学%、民族研究%、运动科学%、家庭消费科学%、电影研究%、金融学%、第一年经验%、食品科学技术%、法语%、性别和女性研究%、地理%、地质学%、德语%、健康科学%、历史%、荣誉%、人文科学%、人类绩效%、信息系统%、铁艺工程%综合工程%、跨学科研究%、国际商务%、国际关系%、日本%、拉丁美洲研究%、执法%、通识研究%、管理%、制造工程技术%、市场营销%、大众传媒%、数学%、机械工程%、医学实验室科学%、军事科学领导力/陆军后备军官训练团%（见人类学）%博物馆研究%（音乐）%非营利领导力%（挪威）%护理%（哲学）%哲学、政治和经济学（PPE）%物理学%、政治学%、葡萄牙语%、心理学%、娱乐、公园和休闲服务%、康复咨询%、俄语%、斯堪的纳维亚语研究%、科学教学%、中学%、、、、、%教育专业教育%、社会学%、社会学%、西班牙语%、特殊教育：学术和行为战略家%Sport管理%Statistics%Swedish%英语作为第二语言教学（TESL）%戏剧艺术%Twin Cities Engineering%城市和地区研究%World Languages&Cultures%

选择。如果选择在表中，则信息（wdWithInTable）

将返回

True

。如果选择不在表中，则返回

信息（wdWithInTable）

因此，仅当在表中找到的项目不是时才会执行。但是，如果该项目不在表

选择中。行。删除必须失败，因为只有在表中找到行时才能找到行

另一方面，
Selection.Rows.Delete
也必须失败，因为它是从Excel借用的不正确语法。在Word中，您应该首先扩展所选范围以包括整行，然后删除该范围

我意识到你的脑海中似乎有一个循环，它可能会读取要从列表中删除的项目。这要复杂得多，但要在你当前的代码正常工作之后才能开始工作。因此我建议首先关注这个目标