是否有任何方法或宏来删除MS Word中的所有内容控件?

时间:2016-03-22 18:39:45

标签: vba ms-word word-vba

我需要删除活动文档中的所有内容控制器(Loked and unlocked)而不删除任何文本。我搜索并找到了一个宏。但我认为它不能正常工作。

Word VBA to delete Content Controls with specific Tags

是否可以这样做?

编辑: 我试过下面的代码。它将删除包含文本内容的内容控制器。我只需要删除内容控制器。

Sub Test()
Dim objCC As ContentControl
Do While ActiveDocument.ContentControls.Count > 0
For Each objCC In ActiveDocument.ContentControls
objCC.Delete True
Next
Loop
End Sub

3 个答案:

答案 0 :(得分:1)

我以自己的方式找到答案:)

<h:form id="f1" prependId="false" onsubmit="document.getElementById('f1').action='j_security_check';">                      
    <p:growl id="growl" showDetail="true" sticky="true" />
    ...
</h:form>

这对某人有帮助。

答案 1 :(得分:1)

感谢您的回答 - 这正是我所寻求的。我最终使用了以下内容:

Sub ContentControlRemoval()
'
'Remove all content controls
Set oRng = ActiveDocument.Content
LTCC = LTCC + oRng.ContentControls.Count
For LC = oRng.ContentControls.Count To 1 Step -1

Set CC = oRng.ContentControls(LC)
If CC.LockContentControl = True Then
    CC.LockContentControl = False
End If
CC.Delete
If Not LE Then
    LRCC = LRCC + 1
    End If
    LE = False
Next
End Sub

答案 2 :(得分:1)

我能够删除没有任何宏的所有内容控件(在Word 2013中),如下所示:

  1. 在开发人员菜单上,选择“设计模式”。
  2. 如果看不到任何内容控件,请滚动浏览直到一个。
  3. 按Ctrl + A选择整个文档。
  4. 右键单击可见的内容控件。
  5. 在上下文菜单中,单击“删除内容控件”。

我不知道它是否适用于所有类型的内容控件。