VB.net读取Word文档属性的方法

桃树有鱼

复制代码 代码如下:

'对自定义属性进行读取
         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的。

您可能感兴趣的文章:

• VB.net常用字符和日期等函数
• vb.net读写文件代码
• vb.net发布水晶报表程序步骤
• VB.net 查询获取数据库数据信息
• VB.NET拷贝整个目录下所有子目录及文件的实例代码
• VB.NET进度条的方法代码
• 获取客户端IP地址c#/vb.net各自实现代码
• asp.net(vb.net)获取真实IP的函数
• asp.net 验证码的简单制作(vb.net+C#)
• 在VB.NET应用中使用MySQL的方法
• vb.net操作注册表的方法分析【增加,修改,删除,查询】