自己解决: 引用
Microsoft Office Document Imaging
Dim Docm As MODI.Document
Docm.Create 文件地址
Docm.BuiltInDocumentProperties("Title") =“
标题”
Docm.BuiltInDocumentProperties("Subject") =“
主题”
Docm.BuiltInDocumentProperties("Author") = “
作者”
Docm.BuiltInDocumentProperties("Category") =。。。
Docm.BuiltInDocumentProperties("Company") = 。。。
Docm.BuiltInDocumentProperties("Manager") = 。。。
' Docm.BuiltInDocumentProperties("Last author") =。。。
Docm.save
Docm.close
'文档属性名称 文档属性别名
'Title 6.0200000010001E+17
'Subject 主题
'Author 作者
'Keywords 关键词
' Comments 备注
' Template
' Last author 最后修改者
' Revision number 修改用时
' Application name Microsoft Office Document Imaging
' Last print date 最后打印时间
' Creation date 创建时间
' Last save time 最后保存时间
' Total editing time 修改用时
' Number of pages 页数
'Number of words
' Number of characters 0
'Security
' Category 类别
' Format
' Manager 经理
' Company 单位
' Number of bytes
'Number of lines 0
' Number of paragraphs 0
' Number of slides
' Number of notes
' Number of hidden Slides
'Number of multimedia clips
' Hyperlink base 链接
' Number of characters (with spaces)
End If