Sub Test() Dim Orient As String Dim p As Page For Each p In ActiveDocument.Pages If p.Orientation = cdrPortrait Then Orient = "Portrait" Else Orient = "Landscape" End If p.ActiveLayer.CreateArtisticText 0, 0, Orient Next pEnd Sub