Sub statistik
	Dim tm as Object
	Dim row as Integer
	Set tm = CreateObject("TextMaker.Application")
	tm.Application.Visible = True

			MsgBox "BuiltIn Number of paragraphs: " & tm.ActiveDocument.BuiltInDocumentProperties("Number of paragraphs")
			MsgBox "Paragraph.Count: " & tm.ActiveDocument.Paragraphs.Count

	Set tm = Nothing
End Sub