Sub Test() Dim t As Text Dim s As Shape Dim d As Document Dim strText As String strText = "This is a test. This is a test. This is a test. " & _ "This is a test. This is a test. " & vbCr & _ "This is still a test. This is still a test. This is still a test. " & _ "This is still a test. This is still a test. " & vbCr & _ "This is a test. This is a test. This is a test. " & _ "This is a test. This is a test. " & vbCr & _ "This is still a test. This is still a test. This is still a test. " & _ "This is still a test. This is still a test. " & vbCr & _ "This is a test. This is a test. This is a test. " & _ "This is a test. This is a test. " & vbCr & _ "This is still a test. This is still a test. This is still a test. " & _ "This is still a test. This is still a test. " & vbCr & _ "This is a test. This is a test. This is a test. " & _ "This is a test. This is a test. " Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, strText) Set t = s.Text MsgBox "The number of paragraphs is: " & t.Story.Paragraphs.CountEnd Sub