注意:最初我问的是,如何从某个点向下选择文本,但我有一个解决方案:
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”之间的文本?
谢谢
答案1
使用两个书签。将起始书签命名为“start”,将结束书签命名为“end”。
之后,以下代码将选择两者之间的完整文本。
Sub SelectTextBetweenBookmarks()
Set rngStart = ActiveDocument.Bookmarks("Start").Range
Set rngEnd = ActiveDocument.Bookmarks("End").Range
Range(rngStart.Start, rngEnd.End).Select
End Sub