我使用了您为上一个问题提供的代码,但出现了编译错误:未定义子函数或函数。我使用的是 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
谢谢您的帮助。
答案1
您收到的错误消息通常是由于缺少 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
顺便说一句 - 欢迎来到论坛,有机会的话,看看论坛的行为守则。其中有很多很好的信息链接,可以帮助您充分利用论坛。