☰

删除 Microsoft Word 中的内容控制快速部分

tag-icon • tag-icon microsoft-word vba macros
删除 Microsoft Word 中的内容控制快速部分

我有一个 VBA 宏，它将自动用内容控制快速部分填充文档，其中包含带有其他内容控件的文本块。

我正在尝试编写一个 VBA 宏，它将筛选整个文档以删除每个插入的快速部件周围的快速部件内容控制框，使其不再存在，但仍然保留由快速部件生成的内容，并且不会删除现有快速部件内的内容控件。

到目前为止，我只能创建一个可以删除所有内容控件的宏，但我不知道仅针对删除快速部分但仍保留快速部分内容的具体代码。

仅供参考，我可以通过右键单击快速部件内的任意位置（快速部件内的内容控件除外）手动执行此操作，它将允许我删除快速部件内容控件。

答案1

就像是：

Sub removeBuildingBlockCCs()
Dim cc as Word.ContentControl
For Each cc In ActiveDocument.ContentControls
  If cc.Type = wdContentControlBuildingBlockGallery Then
    cc.Delete
  End If
Next

顺便说一句，要使用宏录制器时弹出上下文菜单，通常可以使用 Windows 键盘上的“上下文菜单”键（看起来像上下文菜单，我的菜单位于 Windows 键的右侧）。AUIU 您应该能够使用 shift-F10 执行相同操作，但它似乎在这里不起作用，不知道为什么。

相关内容