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

			For row = 10 to 18
				MsgBox row & ": " & tm.ActiveDocument.BuiltInDocumentProperties(row)
			Next row
			For row = 29 to 34
				MsgBox row & ": " & tm.ActiveDocument.BuiltInDocumentProperties(row)
			Next row

	Set tm = Nothing
End Sub