文章/答案/技术大牛

发布

社区首页 >问答首页 >插入文档属性对象

问插入文档属性对象
EN

Stack Overflow用户

提问于 2022-01-11 09:06:58

回答 1查看 225关注 0票数 1

在Word (Office 365)文档中，可以单击insert / Quick / document Property / Company为公司名称插入快速部件。

我想要一个宏这样做，所以我可以弹出一个按钮在我的快速访问工具栏，使它一次单击而不是四。

当我记录进程时，宏不注册插入。我发现以下VBA代码插入字段的当前文本，但不插入内容控件本身：

ActiveDocument.Content.InsertAfter
ActiveDocument.BuiltInDocumentProperties(wdPropertyCompany)

我认为必须有一行VBA将公司快速部件字段插入到我的文档中，就像我做了这四次单击一样。

vba

ms-word

word-contentcontrol

回答 1

Stack Overflow用户

回答已采纳

发布于 2022-01-11 09:46:02

诀窍是将内容控制映射到公司

Sub insertCompanyCC()

On Error GoTo err_insert

Dim cc As ContentControl
Set cc = ActiveDocument.ContentControls.Add(wdContentControlText, Selection)
With cc
   .Title = "Company"
   .XMLMapping.SetMapping "/ns0:Properties[1]/ns0:Company[1]"
End With

exit_insert:
    Exit Sub

err_insert:
    Select Case Err
        Case 4605
             MsgBox "Please move your cursor outside of the content control.", vbExclamation
        Case Else
            Err.Raise Err.Number, Err.Source
    End Select
    Resume exit_insert
End Sub

/ns1:coreProperties[1]/ns0:creator[1]将插入作者。

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/70664119

复制

相似问题

问插入文档属性对象
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问插入文档属性对象EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问插入文档属性对象
EN