2

我正在编写一个 vb.net 程序，我想使用该程序将不同的 word 文件组合成一个 - 基于模板。

我在 for-each-documents-loop 中使用这行代码：

oWord.Selection.InsertFile(DocumentFilename, "", False, False, False)

我也尝试了这些行：

oWord.Selection.InsertFile(FileName:=DocumentFilename, Range:="", _        ConfirmConversions:=False, Link:=False, Attachment:=False)

或者

 oWord.Selection.InsertFile(FileName:=DocumentFilename, ConfirmConversions:=False)

一般来说，这是有效的。
但是我的问题是：
如果文档中有中断，例如第 1-5 页是纵向的，第 6 页是横向的，第 7 页是纵向的，我的代码会忽略该事实并以纵向添加所有页面

4

1 回答 1

1

抱歉这么晚才发帖。是的，我找到了解决方案。我在每个文档的开头添加了一个分节符：

oDocQuell = oWordQuell.Documents.Add(txtSourcedrive.Text & "\" & LI.ToString)
oWordQuell.Selection.HomeKey(Unit:=Word.WdStoryType.wdEvenPagesHeaderStory)  ' Word-VBA: Selection.HomeKey Unit:=wdStory
oWordQuell.Selection.InsertBreak(Type:=Word.WdBreakType.wdSectionBreakContinuous) ' Word-VBA: Selection.InsertBreak Type:=wdSectionBreakContinuous
于 2014-12-08T07:31:09.783 回答