Word Automation with .NET - Отдельные страницы с альбомной ориентацией

Question

Я пытаюсь установить одну страницу в альбомной ориентации, однако каждый метод, который я пробую, изменяет весь документ, а не раздел \ абзац, на котором я установил PageSetup. Вот пример, первая страница должна быть портретной, а вторая должна быть альбомной:

Dim wrdApp As Word.Application
Dim wrdDoc As Word._Document
Public Sub test()
    Dim wrdSelection As Word.Selection
    Dim wrdDataDoc As Word._Document
    Dim sText As String

    wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True

    wrdDataDoc = wrdApp.Documents.Open("C:\Temp\Doc1.docx")
    wrdDataDoc.PageSetup.Orientation = WdOrientation.wdOrientPortrait

    Dim oPara1 As Paragraph
    sText = "Test Report Title"
    oPara1 = wrdDataDoc.Content.Paragraphs.Add
    oPara1.Range.Text = sText
    oPara1.Range.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
    oPara1.Range.InsertParagraphAfter()

    Dim para As Word.Paragraph = wrdDataDoc.Paragraphs.Add()
    para.Range.InsertBreak()

    wrdApp.Selection.GoTo(Word.WdGoToItem.wdGoToLine, Word.WdGoToDirection.wdGoToLast)

    wrdDataDoc.Sections(1).PageSetup.Orientation = WdOrientation.wdOrientLandscape


    wrdSelection = wrdApp.Selection()
    wrdDataDoc.Tables.Add(wrdSelection.Range, NumRows:=9, NumColumns:=4)

    With wrdDataDoc.Tables.Item(1)
        'Code for table here
    End With

End Sub

Answer 1

Вам нужно вставить разрыв страницы, попробуйте это:

oPara1.Range.InsertBreak Type:=wdSectionBreakNextPage
wrdDataDoc.Sections(wrdDataDoc.Sections.Count).PageSetup.Orientation = wdOrientLandscape