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