Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen?
zurück: Schriffarbe in Formeln ändern weiter: Tabelle wieder wegmachen, ohne die Schrift mit zu entfernen? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Syke
Gast


Verfasst am:
18. März 2009, 22:50
Rufname:

Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen? - Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen?

Nach oben
       Version: Office 2003

Hallo!

Bestimmte texterische Leistungen werden bei mir nach Anzahl der Zeichen incl. Leerzeichen abgerechnet. Das ist ja über markieren, extras, Zeichen zählen einfach - aber leider zählt WORD meine Texte in Textboxen dabei nicht mit! Die DokumentenStatistik hilft mir dabei auch nicht weiter, da die Zeichenanzahl dort nicht nach mit / ohne Leerzeichen unterschieden wird. Hat jemand einen Tipp für mich?
Viele Grüße!
Syke
Gast


Verfasst am:
18. März 2009, 23:02
Rufname:


AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen - AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen

Nach oben
       Version: Office 2003

oops .... ich hab natürlich WORD 2003 und nicht ´97 Rolling Eyes
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
19. März 2009, 19:10
Rufname:
Wohnort: Leipzig

AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen - AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen

Nach oben
       Version: Office 97

Hallo Syke,

kann man mit einem Makro zählen lassen. Hier mal ein Beispiel für den Hauptteil des Dokuments und dessen Textfelder:
Code:
Sub ZeichenZaehlen()

    Dim shpTextfeld As Word.Shape
    Dim lngSummeOhneLZ As Long
    Dim lngSummeMitLZ As Long
   
    lngSummeOhneLZ = ActiveDocument.ComputeStatistics(wdStatisticCharacters)
    lngSummeMitLZ = ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces)
   
    For Each shpTextfeld In ActiveDocument.Shapes
        If shpTextfeld.Type = msoTextBox Then
            MsgBox "Im Textfeld " & shpTextfeld.Name & " sind " & _
                shpTextfeld.TextFrame.TextRange.ComputeStatistics(wdStatisticCharacters) & " Zeichen ohne Leerzeichen" _
                & vbCrLf & "und " & shpTextfeld.TextFrame.TextRange.ComputeStatistics(wdStatisticCharactersWithSpaces) _
                & " Zeichen mit Leerzeichen enthalten."
                lngSummeOhneLZ = lngSummeOhneLZ + shpTextfeld.TextFrame.TextRange.ComputeStatistics(wdStatisticCharacters)
                lngSummeMitLZ = lngSummeMitLZ + shpTextfeld.TextFrame.TextRange.ComputeStatistics(wdStatisticCharactersWithSpaces)
        End If
    Next shpTextfeld
    MsgBox "Das Dokument enthält " & lngSummeOhneLZ & " Zeichen ohne Leerzeichen" & vbCrLf _
        & "und " & lngSummeMitLZ & " Zeichen mit Leerzeichen."

End Sub

Falls auch die Kopf- und Fußzeilen und die Fußnoten Textfelder enthalten, könnte man das auch noch erweitern.

Falls Du nicht weiß, wie man ein Makro benutzt: VBA-Code für Makro einbringen und verwenden

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
20. März 2009, 11:26
Rufname:


AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen - AW: Zählen von Wörtern / Zeichen in Dokumenten mit Textboxen

Nach oben
       Version: Office 2003

Hallo Lisa,

Makros habe ich noch nie benutzt Embarassed
Sieht einigermaßen kompliziert aus, ich weiß nicht ob ich das hinbekomme ...? Werde mir den link mal anschauen.
Herzlichen Dank für deine Hilfe und viele Grüße,
Syke
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Suche mathematische Zeichen 7 Brummsel 17059 01. Sep 2009, 12:11
dimakarch Suche mathematische Zeichen
Keine neuen Beiträge Word Serienbriefe: SerienBrief Word übernimmt nur 255 Zeichen aus Excelzelle 0 rkstone 1806 04. Jun 2009, 13:10
rkstone SerienBrief Word übernimmt nur 255 Zeichen aus Excelzelle
Keine neuen Beiträge Word Formate: Zeichenbegrenzung auf 1000 Zeichen in Word 2000 2 A-l-i-n-a 3221 27. Mai 2009, 10:53
Gast Zeichenbegrenzung auf 1000 Zeichen in Word 2000
Keine neuen Beiträge Word Formate: Abstand ändern zwischen Zeichen 4 marcimark 10299 10. Jan 2009, 00:32
marcimark Abstand ändern zwischen Zeichen
Keine neuen Beiträge Word Formate: Striche zwischen den einzelnen Wörtern 2 mailea 691 28. Aug 2008, 13:46
Mailea Striche zwischen den einzelnen Wörtern
Keine neuen Beiträge Word Formate: Textboxen auflösen 1 herschel81 584 18. Jun 2008, 21:12
Maulende Myrte Textboxen auflösen
Keine neuen Beiträge Word Formate: W2000 - Zeichen für Q und S mit Überstrich gesucht. 4 PeterFl 3460 15. Mai 2008, 15:48
PeterFl W2000 - Zeichen für Q und S mit Überstrich gesucht.
Keine neuen Beiträge Word Formate: Bestimmtes Zeichen immer hochgestellt, wie? 6 blaue*lagune 6886 06. Feb 2008, 16:50
Gast Bestimmtes Zeichen immer hochgestellt, wie?
Keine neuen Beiträge Word Formate: zweifarbig in word dokumenten automatisch einstellen 2 belladonna 2009 01. Jul 2007, 18:32
Gast zweifarbig in word dokumenten automatisch einstellen
Keine neuen Beiträge Word Formate: planlos....es haben sich seltsame zeichen eingeschlichen... 3 Kika77 1592 20. Apr 2007, 17:14
Hübi planlos....es haben sich seltsame zeichen eingeschlichen...
Keine neuen Beiträge Word Formate: 1700 Textboxen anpassed 0 penpen 498 17. März 2007, 15:36
penpen 1700 Textboxen anpassed
Keine neuen Beiträge Word Formate: Problem beim Öffnen von Dokumenten, hier: Umformatierung 3 Ann-Kristin 2707 21. Aug 2006, 09:52
CHF Problem beim Öffnen von Dokumenten, hier: Umformatierung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln