在WORD里面，如何批量删除指定开头的整个行？

leoyeung

请看下面：在WORD里面，如何批量删除行开头为“命题依据”的整个行？意思就是反正这个行开头是“命题依据”，我就把它整行删除。
3．1951年8月，经政务院批准，中国农业银行正式成立。
答案：错
命题依据：教材第一章，第一节
认知难度：记忆
难度：中
4．中国农业银行于1955年3月再次恢复成立，成为在农村金融体系中占主导地位的国家专业银行。（    ）
答案：错
命题依据：教材第一章，第一节
认知难度：记忆
难度：易

wwwruc

在word里面宏貌似不对文字操作做记录，
完了之后多了一个红行。不知道怎么删除，同问。
Sub Macro1()
'
' Macro1 Macro

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "命题依据：教材第一章，第一节"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

leoyeung

楼上理解错我的意思了，其实：“命题依据：”后面很多不一样的。

changxuegu

用查找替换，先用段落标记替换成excelhome+段落标记，然后用“命*excelhome”替换为空（注意在“使用通配符”前打勾）。最后用excelhome+段落标记替换成段落标记。

changxuegu

删除空行的办法：用查找替换，用两个段落标记替换成一个段落标记。

cwzj3807

changxuegu 发表于 2010-10-21 11:38
删除空行的办法：用查找替换，用两个段落标记替换成一个段落标记。

求助各位老师：
在word中，如何选择光标处的整个行？谢谢！！！