Sub WoerterZaehlenUndAnzeigen
   Dim objDokument as Object
   Dim objText As Object
   Dim objCursor As Object
   Dim strWort As String
   Dim intZaehler As Integer

   objDokument = GlobalScope.ThisComponent
   objText = objDokument.Text
   objCursor = objText.createTextCursor

   objCursor.gotoStart(False)
   Do
      objCursor.gotoEndOfWord(True)		
      strWort = Trim(objCursor.getString())
      If strWort > "" Then
         intZaehler = intZaehler + 1
         MsgBox strWort
      End If
      objCursor.gotoNextWord(False)
   Loop Until strWort = ""
   MsgBox "Dokument hat " & intZaehler & " Wörter."
End Sub