Loop through all pages

1 2	for page in Application.Document.Pages: print page.Title