如何从文档中的特定点向下搜索并结束搜索？

Question

我有以下代码，用于搜索文档中的某个点并创建一个搜索范围，直到文档末尾。然后，在该范围内，它将删除完全粗体的段落（子标题）之后的段落，并忽略所有非Normal样式和不在表格中的样式。但是，它似乎在搜索整个文档（也就是开头）。我如何才能使其仅搜索范围（即从我将光标定位到文档末尾的位置）？

Dim aPara As Paragraph
Dim oSearchRange As Range

With Selection.Find
    .Text = "Dear "
End With
Selection.MoveDown Unit:=wdParagraph, Count:=4

Set oSearchRange = Selection.Range
oSearchRange.End = ActiveDocument.Content.End

oSearchRange.MoveEnd wdParagraph, -1

For Each aPara In oSearchRange.Paragraphs
    If aPara.Range.Font.Bold = True And aPara.Range.Next.Style = ActiveDocument.Styles("Normal") And Not aPara.Range.Next.Information(wdWithInTable) Then aPara.Range.Next.Delete
Next aPara

谢谢

Answer 1

由于Teamothy（：