如何任意选择文档的一页？

elite

如题，如何在VBA中利用代码选择文档中的任意一页？[em00]

守柔

试一下这个，是否为你所要： Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3" 将插入点移至第3页的开始位置。 只要修改NAME的值，便可。（页）

elite

我的意思是选取整页，任意一页。

守柔

试一下这个: Sub 分页选定() a = InputBox("请输入页码", "Word") Selection.EndKey Unit:=wdStory m = Selection.End Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=a i = Selection.End Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=a + 1 n = Selection.End ActiveDocument.Range(Start:=i, End:=n).Select If Selection.End = Selection.Start Then ActiveDocument.Range(Start:=n, End:=m).Select End If End Sub

elite

第一页可选取整页，其他各页只选取部分。 先谢谢了。

elite

很奇怪，有一篇文档选取时有错误，我试了其他几篇文档都可以，不知道怎么回事？ 另外，只有一页的文档或者最后一页怎么选取？谢谢。

守柔

只有一页的文档和最后一页的文档，一样，都能选取呀（我机器上试过了），比如说，有3页，你在输入框中输入3，就能选取第三页（最后一页）的文本内容，仅一页的文档也一样。至于你说的有一篇文档不能正常工作，会不会有其它的如图形文件还是其它的，我也不知道。你再试一下。

elite

好了，谢谢。

dony30mk2

学习了，有用