Word VBA，选择整个文档减去第一页

【问题标题】：Word VBA, Select whole document minus first pageWord VBA，选择整个文档减去第一页
【发布时间】：2015-07-29 19:35:29
【问题描述】：

我知道你可以像这样选择整个文档

oWord.oDoc.ActiveWindow.Selection.WholeStory

选择整个文档减去第一页的语法是什么？

上下文：Excel 运行所有代码并将范围直接输出到单词以构建报告。报告可以是任意页数，并且页数未知。此代码将作为最后一段运行，因此此时将构建文档。

【问题讨论】：

您是否设置了任何手动分页符或分节符？
系统中的一个页面被定义为一个范围。例如范围 A1:K40 用于第 1 页，然后是分页符。对于某些页面，它可能是 A1:K100 占用〜两页，然后是分页符。所以有些页面会，有些则不会。我不使用任何分节符，只使用分页符
你现在说的是Word页面还是Excel页面？？
在excel中它没有任何分页符等范围被输入到word中，然后在每个范围之后将分页符插入到word中

标签： vba excel ms-word

【解决方案1】：

以下代码从第二页开始选择所有内容：

Dim startRan As Range

Selection.HomeKey unit:=wdStory
Set startRan = Selection.GoTo(What:=wdGoToBookmark, Name:="\page")

oDoc.Range(startRan.End, startRan.End).Select
Selection.EndKey unit:=wdStory, Extend:=wdExtend

【讨论】：

我在这里收到一个错误 oDoc.Range(startRan.End, startRan.End).Select on startRan.end 说增强不是可选的？我对此进行了评论，并在选择时遇到了错误，但那是因为我必须使用 oDoc.ActiveWindow.Selection.... 我也遇到了第三个错误，而该行在 GOTO 行上被注释掉，上面写着类型不匹配。文档中没有书签？这有关系吗？
我只是在这里匆匆忙忙。对你来说，Selections 当然应该是 oWord.Selection 和 oWord.oDoc.Range(startRan.End, startRan.End).Select
哦，当然还有Dim startRan As Word.Range 而不仅仅是Range。