VB.net读取Word文档属性的方法_vb.net_脚本之家

相关文章推荐

读研的人字拖 · Java 读取 .properties ...· 1 月前 ·

果断的电池 · 如何在json schema中使用`If` ...· 1 月前 ·

失眠的猕猴桃 · 我的鸿蒙起步 - 开发环境搭建 - ...· 1 月前 ·

健壮的火腿肠 · 这篇文章帮你搞定C语言中printf的返回值 ...· 1 年前 ·

谦逊的沙滩裤 · 使用 C# ...· 1 年前 ·

需要说明的一点是，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的。