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
'讀取內(nèi)置屬性,以備注為例
ResultString= SourceDoc.BuiltInDocumentProperties(Microsoft.Office.Interop.Word.WdBuiltInProperty.wdPropertyComments).value
讀取寫入操作后可以通過在Word文檔上右鍵->屬性查看效果,但當Word文檔處于打開狀態(tài)時,文檔上右鍵是沒有“自定義”和“摘要”這兩個Tab的。
相關(guān)文章
VB.NET中使用種子填充算法實現(xiàn)給圖片著色的例子
這篇文章主要介紹了VB.NET中使用種子填充算法實現(xiàn)給圖片著色的例子,在開發(fā)一個畫圖工具時遇到的問題,需要的朋友可以參考下2014-07-07