'对自定义属性进行读取
| 代码如下 | 复制代码 |
|
Dim Properties = SourceDoc.CustomDocumentProperties Try Catch ex As Exception End Try |
|
另一方法
’增加新属性
| 代码如下 | 复制代码 |
| 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 | |
读取写入操作后可以通过在Word文档上右键->属性查看效果,但当Word文档处于打开状态时,文档上右键是没有“自定义”和“摘要”这两个Tab的。