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})
</div>
另一种写法：
'修改属性
SourceDoc.CustomDocumentProperties("PropertyName").Value = PropertyValue
'获取属性值
PropertyValue =SourceDoc.CustomDocumentProperties("PropertyName").Value
</div>
</div>