Тема: Общее число страниц в документе при разном формате листов.
Sub PSize()
Dim objPages As Pages
Dim A3 As Integer
Dim A4 As Integer
A3 = 0
A4 = 0
Set objPage = ActiveDocument.ActiveWindow.Panes(1).Pages
'For I = 1 To objPage.Count
Select Case Selection.PageSetup.PaperSize
Case 6
A3 = A3 + 1
Case 7
A4 = A4 + 1
End Select
'Next
Debug.Print "Общее число сраниц А4 = " & A4 + A3 * 2
End Sub
Каким образом переписаь этот код чтобы получить общее число страниц из всего документа, а не только для выделенного листа?