Sub Test() Dim p As Page Dim i As Long For i = 1 To ActiveDocument.Pages.Count Set p = ActiveDocument.Pages(i) p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index Next iEnd SubSub Test() Dim p As Page For Each p In ActiveDocument.Pages p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index Next pEnd Sub