Sub Test() Dim i As Long Dim s As String s = "" For i = 1 To Documents.Count s = s & "Document #" & i & ": " & Documents(i).Pages.Count & " page(s)" & vbCr Next i MsgBox sEnd Sub
Sub Test() Dim d As Document Dim s As String s = "" For Each d In Documents s = s & "Document #" & d.Index & ": " & d.Pages.Count & " page(s)" & vbCr Next d MsgBox sEnd Sub