华南俳烁实业有限公司

　　代碼如下:

　　'對自定義屬性進行讀取

　　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})

　　另一種寫法：

　　復(fù)制代碼 代碼如下:

　　'增加新屬性

　　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

　　復(fù)制代碼 代碼如下:

　　'讀取內(nèi)置屬性，以備注為例

　　ResultString= SourceDoc.BuiltInDocumentProperties(Microsoft.Office.Interop.Word.WdBuiltInProperty.wdPropertyComments).value

　　讀取寫入操作后可以通過在Word文檔上右鍵->屬性查看效果，但當(dāng)Word文檔處于打開狀態(tài)時，文檔上右鍵是沒有“自定義”和“摘要”這兩個Tab的。