VB.net如何调用Word文档属性

ZDNet至顶网软件频道 读取写入前需创建Word的引用，打开文件并获取Word的Document对象。

需要说明的一点是，Word自定义属性所能写入的长度是有限制的，约255个字符。

"对自定义属性进行读取

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", Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty, Nothing, Authorprop, New Object() {})

Catch ex As Exception

End Try

"写入

Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Reflection.BindingFlags.SetProperty, Nothing, 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的。