Как напечатать только первые страницы из нескольких документов Word?

Создавайте макрос в ворде, во вкладке "ВИД". После сохраните. И выполните его.
Ссылка на источник ввв. programmersforum.ru/showthread.php?t=242865
Сам макрос ниже:

Option Explicit

Sub PrintAllFirstPages()
Dim sFileNames As Variant
Dim i As Integer
'Получение путей выбранных файлов
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите файлы для печати"
.Filters.Clear
.Filters.Add "Все документы", "*.doc;*.docx"
.AllowMultiSelect = True
If .Show Then
ReDim sFileNames(.SelectedItems.Count - 1)
For i = 1 To .SelectedItems.Count
Debug.Print .SelectedItems(i)
sFileNames(i - 1) = .SelectedItems(i)
Next i
Else: Exit Sub
End If
End With
'Печать первой страницы
For i = 0 To UBound(sFileNames)
With Documents.Open(sFileNames(i), AddToRecentFiles:=False, ReadOnly:=True)
.PrintOut Background:=False, Range:=wdPrintRangeOfPages, Pages:="1"
.Close False
End With
Next i
End Sub