如何在Word VBA中的两个“书签”之间选择文本？

我使用了您为此前一个问题提供的代码，但我收到了编译错误：Sub或Function未定义。我正在使用VBA 7.1和Word 2016。

Sub SelectTextBetweenBookmarks()

    Set rngStart = ActiveDocument.Bookmarks("START").Range
    Set rngEnd = ActiveDocument.Bookmarks("END").Range

    Range(rngStart.Start, rngEnd.End).Select

End Sub

谢谢您的帮助。

microsoft-word vba bookmarks

— Ann Donahue
source

您收到的错误消息通常是由缺少End Sub或End Function语句引起的。但是，您发布的代码在这方面还不错。

需要纠正的两个问题是声明范围和设定范围。这是经过修改的代码。

Sub SelectTextBetweenBookmarks()
Dim rngStart As Range, rngEnd As Range
Set rngStart = ActiveDocument.Bookmarks("START").Range
Set rngEnd = ActiveDocument.Bookmarks("END").Range

Selection.SetRange rngStart.Start, rngEnd.End
End Sub

顺便说一句 - 欢迎来到论坛，当你有机会时，看一下论坛行为守则。它有很多很好的信息链接，可以充分利用论坛。

— Rich Michaels
source