100分求关于WORD的简单问题

Question

看看MSDN吧，下面是MSDN中的例子：
This example inserts a list of built-in properties at the end of the active document.Sub ListProperties()
    Dim rngDoc As Range
    Dim proDoc As DocumentProperty    Set rngDoc = ActiveDocument.Content    rngDoc.Collapse Direction:=wdCollapseEnd    For Each proDoc In ActiveDocument.BuiltInDocumentProperties
        With rngDoc
            .InsertParagraphAfter
            .InsertAfter proDoc.Name & "= "
            On Error Resume Next
            .InsertAfter proDoc.Value
        End With
    Next
End Sub
This example displays the number of words in the active document.Sub DisplayTotalWords()
    Dim intWords As Integer
    intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
    MsgBox "This document contains " & intWords & " words."
End Sub

Answer 1

在发VBA中，我在word中试过，没问题，但在DELPHI中就是不行，不知为什么！

Answer 2

不知道你在delphi中的代码是怎样的，所以不好说，能否把代码帖过来看看？

Answer 3

BuiltInDocumentProperties是一个 IDispatch类而这个接口函数我不会用，参数太多了，不知如何用