如何获得office文档的摘要信息？

Question

给一个开启属性窗体的例子
开启文件属性窗口 
声明： 
Type SHELLEXECUTEINFO 
cbSize As Long 
fMask As Long 
hwnd As Long 
lpVerb As String 
lpFile As String 
lpParameters As String 
lpDirectory As String 
nShow As Long 
hInstApp As Long 
lpIDList As Long 
lpClass As String 
hkeyClass As Long 
dwHotKey As Long 
hIcon As Long 
hProcess As Long 
End Type Public Const SEE_MASK_INVOKEIDLIST = &HC 
Public Const SEE_MASK_NOCLOSEPROCESS = &H40 
Public Const SEE_MASK_FLAG_NO_UI = &H400 Declare Function ShellExecuteEX Lib "shell32.dll" Alias _ 
"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long 代码： 
' 使用： ShowProps("c:command.com",Me.hWnd) 
Public Sub ShowProps(FileName As String, OwnerhWnd As Long) 
Dim SEI As SHELLEXECUTEINFO 
Dim r As Long 
With SEI 
.cbSize = Len(SEI) 
.fMask = SEE_MASK_NOCLOSEPROCESS Or _ 
SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI 
.hwnd = OwnerhWnd 
.lpVerb = "properties" 
.lpFile = FileName 
.lpParameters = vbNullChar 
.lpDirectory = vbNullChar 
.nShow = 0 
.hInstApp = 0 
.lpIDList = 0 
End With 
r = ShellExecuteEX(SEI) 
End Sub 

Answer 1

这个我已经实现了
我要的是能放到变量里的
ferry的例子只能看到属性，不能把属性拿来用

Answer 2

http://www.applevb.com/lib/vb_com.zip
一个著名的VB Shell开发站点的镜像，我记得里面有用系统接口获得Office文档属性的代码。

Answer 3

http://www.applevb.com/lib/vb_com.zip
一个著名的VB Shell开发站点的镜像，我记得里面有用系统接口获得Office文档属性的代码。