Word2007 "Sentences" Auflistung mit Datenverlust?

08/11/2009 - 12:55 von Wolfram Jahn | Report spam
Hallo liebe VBAler,

kann bitte mal jemand folgende Unstimmigkeit
( ) nachvollziehen
( ) widerlegen
( ) erklàren

In Word2007 habe ich ein Dokument und zàhle die Zeichen aller Sàtze,
einmal mit "for each sentence" und einmal mit "for I = 1 to
...sentences.count".

In den Schleifen summiere ich die Anzahl der Zeichen (len(.text)) auf
und bekomme tatsàchliche unterschiedliche Werte.


Augefallen war es mir in der Praxis, weil ich ein Dokument mit "for each
sentence..." bearbeitet hatte und ein paar Teile einfach fehlten.

Code und Ergebnis folgen unten.


Danke und schönen Sonntag

Wolfram


Sub sentences()
Dim s As Word.Range
Dim for_each_sentence_count, i, for_i_sentence_count

for_each_sentence_count = 0
for_i_sentence_count = 0

For Each s In ActiveDocument.sentences
for_each_sentence_count = for_each_sentence_count _
+ Len(s.Text)
Next s

For i = 1 To ActiveDocument.sentences.Count
for_i_sentence_count = for_i_sentence_count _
+ Len(ActiveDocument.sentences(i).Text)
Next i

Debug.Print "for_each_sentence_count: " & for_each_sentence_count
Debug.Print "for_i_sentence_count: " & for_i_sentence_count

End Sub

Ausgabe:

for_each_sentence_count: 52778
for_i_sentence_count: 57293
 

Lesen sie die antworten

#1 Christian Freßdorf
08/11/2009 - 19:32 | Warnen spam
Hallo Wolfram,

ich habe unter Word2007 SP2 keine Unterschiede feststellen können. Auch mit
diversen Einstellungen (Leerstellenausgleich etc.) nicht.

Gruß
Christian

Ähnliche fragen