Display af ordantal i i et word dokument

MsgBox ActiveDocument.Words.Count
skriver antal ord

dim words as integer
words = ActiveDocument.Words.Count
'din makrokode
'
Msgbox cstr(words) & " ord før ændring, " & _
ActiveDocument.Words.Count & " ord efter ændring"

Heg begge to.
I begge tilfælde er der stor forskel på word's indbyggede ordtæller og hvad macroen udskriver, nemlig:
Før ændringer: word's ordtæller 3089 - macro 5251
Efter ændringer: word's ordtæller 2333 - macro 3041
Det virker lidt voldsomt!!

Hej.
Jeg lige fundet ud af at det bl.a. har noget med tvungne linieskift at gøre, disse bliver talt med som et ord!!

Ja, jeg kan godt se hvad du mener - det er da meget mærkeligt.
Jeg prøver at kigge lidt på det (men lover ikke noget)

Ja det står jo i hjælpen:
Note  Punctuation and paragraph marks in a document are included in the Words collection.

Fundet:

Dim wrds
    wrds = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
MsgBox "This document contains " & wrds & " words."

Den tæller kun 1 forkert ...

... men det gør dialogboksen også