Sub ApplicationDocument() If Documents.Count > 0 Then ActiveLayer.CreateArtisticText 0, 0, "Text" Else MsgBox " There is no document open." End IfEnd Sub