как добавить лист в word при альбомной ориентации

вставка-разрыв или енторы

Вам нужно открыть ваш основной документ (2-й документ) , запустить макрос, выбрать нужный файл и он будет вставлен в качестве 1-й страницы книжного формата вашего основного документа.

Вот код макроса:

view source
print?
Sub insPortretToAlbum()
'Вставка документа с книжной ориентацией в документ с альбомной ориентацией
Dim fileDlg As FileDialog
Dim fName As String
Set fileDlg = Application.FileDialog(msoFileDialogOpen)
With fileDlg
If .Show = -1 Then
fName = .SelectedItems(1)
End If
End With
With Selection
.HomeKey Unit:=wdStory, Extend:=wdMove
.InsertFile fName
.InsertBreak Type:=wdSectionBreakNextPage
.HomeKey Unit:=wdStory
.PageSetup.Orientation = wdOrientPortrait
End With
End Sub