Sub Test() Dim p As Page Dim s As Shape For Each p In ActiveDocument.Pages Set s = p.ActiveLayer.CreateArtisticText(p.SizeWidth / 2, 0.5, "- Page " & p.Index & " -") s.Text.AlignProperties.Alignment = cdrCenterAlignment Next pEnd Sub