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

我正在使用Microsoft Word 2010

我有一份跨越数千页的文件。我需要编写一个宏，删除以字符串

mystring

开头的每个段落。我该怎么写呢

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

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