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

You are viewing proxied material from gopher.rbfh.de. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.