删除其中包含特定字符串的每一行

Question

我正在使用Microsoft Word 2010。

我有一个跨越数千页的文档。我需要编写一个宏来删除以字符串mystring开头的每个段落。我怎么写这个？

编辑：我已经弄清楚如何编写一个宏，以及当光标位于段落的开头时如何删除一个段落。我需要找到一种方法来进行“查找”搜索

Answer 1

Dim d As Document
Dim p As Paragraph

Set d = ActiveDocument

For Each p In d.Paragraphs
    If Left(p.Range, Len("Asdfsadfsdsd")) = "Asdfsadfsdsd" Then
        p.Range.Delete
    End If
Next p