使用特定字符串删除每一行

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