VB.net读取Word文档属性的方法
<P><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code62733"><BR>'对自定义属性进行读取<BR> Dim Properties = SourceDoc.CustomDocumentProperties<BR> Dim PropertyType As Type = Properties.GetType</P><P> Try<BR> Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty, Nothing, Properties, New Object() {"备注"})<BR> ResultString = Authorprop.GetType.InvokeMember("Value", Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty, Nothing, Authorprop, New Object() {})</P>
<P> Catch ex As Exception</P>
<P> End Try<BR> '写入 <BR> Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Reflection.BindingFlags.SetProperty, Nothing, properties, New Object() {"备注", ResultString})<BR></div></P>
<P>另一种写法：<BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code54447"><BR>'增加新属性<BR>SourceDoc.CustomDocumentProperties.Add(Name := "PropertyName", LinkToContent := False, Type := Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString, Value := "PropertyValue")</P>
<P>'修改属性<BR>SourceDoc.CustomDocumentProperties("PropertyName").Value = PropertyValue</P>
<P>'获取属性值<BR>PropertyValue =SourceDoc.CustomDocumentProperties("PropertyName").Value<BR></div></P>
<P><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code32420"><BR>'读取内置属性，以备注为例<BR> ResultString= SourceDoc.BuiltInDocumentProperties(Microsoft.Office.Interop.Word.WdBuiltInProperty.wdPropertyComments).value<BR></div><BR>读取写入操作后可以通过在Word文档上右键->属性查看效果，但当Word文档处于打开状态时，文档上右键是没有“自定义”和“摘要”这两个Tab的。</P>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>VB.net常用字符和日期等函数</li><li>vb.net读写文件代码</li><li>vb.net发布水晶报表程序步骤</li><li>VB.net 查询获取数据库数据信息</li><li>VB.NET拷贝整个目录下所有子目录及文件的实例代码</li><li>VB.NET进度条的方法代码</li><li>获取客户端IP地址c#/vb.net各自实现代码</li><li>asp.net(vb.net)获取真实IP的函数</li><li>asp.net 验证码的简单制作(vb.net+C#)</li><li>在VB.NET应用中使用MySQL的方法</li><li>vb.net操作注册表的方法分析【增加,修改,删除,查询】</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]