Sub Test() Dim p As Page For Each p In ActiveDocument.Pages p.ActiveLayer.CreateArtisticText 0, 0, "page: " & p.Index, _ cdrEnglishUS, , "Arial", 6, cdrTrue, cdrTrue, , cdrLeftAlignment Next pEnd Sub