2

テンプレートに基づいて、さまざまな単語ファイルを単一のファイルに結合したい vb.net プログラムを作成しています。

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 に答える