Автоматизация Word — Selection.InsertFile игнорирует ориентацию страницы

Я пишу программу vb.net, с помощью которой хочу объединить разные текстовые файлы в один на основе шаблона.

Я использую эту строку кода в цикле для каждого документа:

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

Я также пробовал эти строки:

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

or

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

Как правило, это работает.
Но моя проблема заключается в следующем:
Если в документе есть разрывы, где, например. страницы 1-5 - книжная, страница 6 - альбомная и страница 7 - снова портретная, мой код игнорирует этот факт и добавляет все страницы в портретной ориентации.


vb.net ms-word word-automation
person Stefan Meyer    schedule 19.06.2014    source источник
comment
Вы когда-нибудь находили ответ? у меня точно такая же проблема   -  person jramm    schedule 29.10.2014

Ответы (1)


arrow_upward
1
arrow_downward

Извините за публикацию с таким опозданием. Да, я нашел решение. Я добавляю разрыв раздела в начале каждого документа:

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
person Stefan Meyer    schedule 08.12.2014