Question

我为没有为我的问题展示程序而道歉，但我是一个严肃的泡菜。

我正在寻找一个搜索特定单词的vba单词程序，并删除这些单词所在的段落。

本练习的目的是减少工作量，因为我使用了多达100万字的文字。

修改

我已经创建了程序，请你帮我添加循环，循环遍历整个文档？

Sub SelectRangeBetween()


    Selection.HomeKey Unit:=wdStory
    'Selection.TypeText Text:="hello"

     ' The Real script
    Dim myrange As Range
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Execute findtext:="From: Research.TA@traditionanalytics.com", Forward:=True, Wrap:=wdFindStop 'this will initiate the start word
        Set myrange = Selection.Range
        myrange.End = ActiveDocument.Range.End
        myrange.Start = myrange.Start
        myrange.End = myrange.End + InStr(myrange, "This message has been scanned ") ' this will initiate the end word
        myrange.Select

        'Selection.Delete
    End With
End Sub

Answer 1

尝试以下操作，它将搜索 TextToSearchFor 并删除在您放置代码的同一文档中找到的段落（因为我使用$('#toggle li:has(.dropdown-menu)').hover(function (event) { if ($(event.target).parents('.dropdown-menu').length > 0) { event.stopPropagation(); } else { event.preventDefault(); } $(this).find('ul').slideToggle();对象）。由于您未在问题中指定许多详细信息，因此您必须修改ThisDocument sub以满足您的需求。确保首先在测试文档上进行尝试！：）

TryMe

删除包含特定单词的段落（单词vba）

1 个答案: