注:元々、特定のポイントから下に向かってテキストを選択する方法を尋ねましたが、その解決策があります。
Dim f As Word.Field
For Each f In ActiveDocument.Fields
If f.Type = wdFieldAddin And f.Data = "BeginBody" Then
f.Select
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
End If
Next
さて、私の質問は、「BeginBody」と「EndBody」の間のテキストをどのように選択するかです。
ありがとう
2つ使用 ブックマーク 。開始ブックマークに「start」、終了ブックマークに「end」という名前を付けます。
その後、次のコードは、これら2つの間で完全なテキストを選択します。
Sub SelectTextBetweenBookmarks()
Set rngStart = ActiveDocument.Bookmarks("Start").Range
Set rngEnd = ActiveDocument.Bookmarks("End").Range
Range(rngStart.Start, rngEnd.End).Select
End Sub