【发布时间】:2015-07-06 13:50:13
【问题描述】:
我在 stackexchange 和其他网站(vbaexpress、MSDN 等)上进行了高低搜索。围绕这个问题展开了广泛的对话,我已经尝试了大多数示例,但仍然没有任何效果。
场景:
- 用户单击 Access 中的“创建报告”按钮。
- vba 从与 SharePoint 库关联的默认模板创建 Word 文档的新实例。
- Word 模板采用表格和书签进行格式化以接受数据,并且已经存储了许多自定义属性字段(此时为 NULL)
- vba 从表中提取数据(表链接到 SharePoint 列表)并填充整个备忘录。
- 然后代码将新文档保存到 SP 库(与模板相同)并签入。
这一切都很好。
vba 还包含用于存储内置属性和自定义属性的代码: 代码示例:
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add(tName)
objWord.Visible = True
objDoc.BuiltinDocumentProperties("Title") = "2040"
With objDoc.CustomDocumentProperties
.Add name:="DocLevel", _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:="Confidential"
.Add name:="UserDiscipline", _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:="Broker"
End With
objDoc.SaveAs (fPath)
objDoc.CheckIn
另外,假设属性已经是模板中的对象,我尝试了这个没有 .Add 的设置:
objDoc.CustomDocumentProperties name:="DocLevel", LinkToContent:=False, _
Type:=msoPropertyTypeString, Value:="Confidential"
一切正常 - 除了 - 自定义文档属性未保存。甚至构建的也被保存 - 但不是自定义的。
我有 MS Office 14.0 对象库、14.0 Access 库和 VB 以实现可扩展性。我还需要其他参考资料吗?
提前感谢溢出社区的任何帮助...
【问题讨论】:
标签: vba sharepoint ms-access-2010 automatic-properties