Sub GetWordCount()
    Dim docname As String
    Dim NumWords As Long
    Dim NumFiles As Integer
    Dim PathName As String

    PathName = "c:\tellen\"

    NumWords = 0
    docname = Dir(PathName & "*.doc*")
    While docname <> ""
        NumFiles = NumFiles + 1
        Documents.Open FileName:=PathName & docname, Visible:=False
        Documents(docname).Activate

        NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of Words").Value

        Documents(docname).Close savechanges:=False
        docname = Dir
    Wend

    MsgBox ("Er zijn " & NumWords & " woorden in " & NumFiles & " documenten.")
End Sub