title image


Smiley Zeichenzahl Haupttext UND Fuß-/Endnoten korrekt zählen?
Hallo zusammen,



ich habe ein kleines Makro erstellt, dass Autoren zeigen soll, wieviele Seiten sie bei 1800 Anschlägen pro Seite geschrieben haben. Meine Tests zeigen nun, dass Fuß-/Endnoten nicht mitgezählt werden, egal ob ich ComputeStatistics oder BuiltInDocumentProperties verwende (was ist eigentlich der Unterschied). Mache ich was falsch?



Hier der Code:



-------------------------------------

Sub Seitenzahl()

Dim nAnschlaege As Long

Dim nSeiten As Long

Dim Titel As String



Titel = "Seitenzahl"

nAnschlaege = ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces)

'nAnschlaege = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)

nSeiten = nAnschlaege / 1800

MsgBox "Umfang des Textes: " & nSeiten & " Seiten.", vbOKOnly, Titel



End Sub

-----------------------------------------



Ich bin für jeden Hinweis dankbar!



Viele Grüße

wivo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: