'对自定义属性进行读取
Dim Properties = SourceDoc.CustomDocumentProperties
Dim PropertyType As Type = Properties.GetType
Try
Dim Authorprop = PropertyType.InvokeMember("Item",Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty,Nothing,Properties,New Object() {"备注"})
ResultString = Authorprop.GetType.InvokeMember("Value",Authorprop,New Object() {})
Catch ex As Exception
End Try
'写入
Dim Authorprop = PropertyType.InvokeMember("Item",Reflection.BindingFlags.Default Or Reflection.BindingFlags.SetProperty,properties,New Object() {"备注",ResultString})
另一种写法:
'增加新属性
SourceDoc.CustomDocumentProperties.Add(Name := "PropertyName",LinkToContent := False,Type := Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString,Value := "PropertyValue")
'修改属性
SourceDoc.CustomDocumentProperties("PropertyName").Value = PropertyValue
'获取属性值
PropertyValue =SourceDoc.CustomDocumentProperties("PropertyName").Value
'读取内置属性,以备注为例
ResultString= SourceDoc.BuiltInDocumentProperties(Microsoft.Office.Interop.Word.WdBuiltInProperty.wdPropertyComments).value
读取写入操作后可以通过在Word文档上右键->属性查看效果,但当Word文档处于打开状态时,文档上右键是没有“自定义”和“摘要”这两个Tab的。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。