使用VBA结合几个单词文档中的某些页面的内容
我有一个关于在EXCEL
使用VBA
合并几个Word文档的内容的问题。 这可能很简单,但我是新的VBA世界…目前,我可以
- 打开一个单词文档并复制其所有内容
- 将其粘贴到一个组合的文档
- 重复步骤1和2
但是,我想知道如何使用VBA跳过所有文档的第一页。 我尝试tempDoc.Range(Start:=2).Select
,但它没有工作。 感谢您的任何build议!
Set objTempWord = CreateObject("Word.Application") Set tempDoc = objWord.Documents.Open(Folderpath to Word Document) Set objTempSelection = objTempWord.Selection tempDoc.Range.Select tempDoc.Range.Copy objSelection.TypeParagraph objSelection.Paste objSelection.InsertBreak Type:=wdSectionBreakNextPage tempDoc.Close
编辑 – 添加另一个Word常量 – 更改Selection对象的定义
假设你已经定义了一切,这将从第2页开始,然后selecteveyrthing结束文件
const wdGoToAbsolute = 1 const wdGoToPage = 1 const wdGoToNext = 2 const wdStory = 6 const wdExtend = 1 Set objTempWord = CreateObject("Word.Application") Set tempDoc = objWord.Documents.Open(Folderpath to Word Document) With tempDoc.Application .Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="2" .Selection.EndKey Unit:=wdStory, Extend:=wdExtend .Selection.Copy End With objSelection.TypeParagraph objSelection.Paste objSelection.InsertBreak Type:=wdSectionBreakNextPage tempDoc.Close
不是一个字VB的专家,但我知道范围对象可以接受的第一个字符和最后一个字符的数量的参数 – https://msdn.microsoft.com/en-us/library/office/ff845882.aspx 。 因此,您需要知道第二张纸上第一个字符的数字是多less个字符,最后一张纸上的最后一个字符是多less个字符。 然后,您可以使用范围对象 – https://msdn.microsoft.com/en-us/library/office/ff845882.aspx 。
这就是说你提到的Excel,但不要解释为什么 – 这是一个Word的东西或Excel?