vba - 空白行までのテキストブロックの選択、Word VBA

Question

ドキュメントの先頭に空白/空の行が見つかるまで、1 つまたは複数の行を選択しようとしています。これがタイトルになります。記録されたマクロが selection.movedownunit を使用するマクロ レコーダーを使用しました。行は 1 つまたは複数の場合があります。WDLine、WDParagraph は、count パラメータに応じて選択します (行数は一定ではないため)。VBNullString,^P^P,("\Blank).empty を使用しましたが、エラーがスローされます。

自動生成されたコードは次のとおりです。

Sub SelectTillBlankLine()
    Selection.MoveDown Unit:=WDLine , Count:=4 , Extend:=wdExtend
    Selection.Style = WDStyleTitle

End Sub

提案をいただければ幸いです...