Sub Test() Dim p As Page For Each p In ActiveDocument.Pages p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index Next pEnd Sub