有个BuiltInDocumentProperties的属性,里面有个Application name的属性
参考:
Dim i As Integer
On Error Resume Next
For i = 1 To ThisDocument.BuiltInDocumentProperties.Count
Debug.Print ThisDocument.BuiltInDocumentProperties(i).Name, ThisDocument.BuiltInDocumentProperties(i).Value
Next i