有没有办法一次性删除WORD文件中的控件？

gtyxx · 发表于 2008-4-1 10:32

如文件中有单选或多选按钮，如何一次性删除？

qV0TPeC1.rar (8.97 KB, 下载次数: 67)

lyd_2005 · 发表于 2008-4-1 10:40

ctrl+a

delete

gtyxx · 发表于 2008-4-1 11:14

实际文档中还有其他文字不能删除

chylhr · 发表于 2008-4-5 10:14

Sub Test()
   Dim myIn As InlineShape
   For Each myIn In ActiveDocument.InlineShapes
      If myIn.Type = wdInlineShapeOLEControlObject Then
         myIn.Select   '非设计模式下,若无此句则ActiveDocument.InlineShapes(1)不能删除;设计模式下,无此句也可.
         myIn.Delete
      End If
   Next
End Sub

守柔 · 发表于 2008-4-5 15:55

除VBA外：

由于文档中使用的是嵌入型的控件，虽然可以使用查找"^g"的方法删除所有嵌入型图片，但有误删其它非控件的可能，请使用以下查找方式：

1,ALT+F9,显示文档中的域代码。

2，CTRL+H，在查找框中输入“^d CONTROL Forms”（注意"^d"与后面的“CONTROL"之间有一个半角空格），在替换为框中什么也不要输入，全部替换即可。如下图所示：

[此贴子已经被作者于2008-4-5 15:56:07编辑过]

tangqingfu · 发表于 2010-7-8 23:44

做个标记，学习ing……

zhaoxh889 · 发表于 2010-7-9 20:30

很实用的知识，以前也常常遇到

youliqi · 发表于 2010-8-30 15:41

原帖由 chylhr 于 2008-4-5 10:14 发表
Sub Test()   Dim myIn As InlineShape   For Each myIn In ActiveDocument.InlineShapes      If myIn.Type = wdInlineShapeOLEControlObject Then  &nbsp ...

好方法，解决大问题
谢谢

3r2 · 发表于 2015-8-23 17:00

chylhr 发表于 2008-4-5 10:14
Sub Test()   Dim myIn As InlineShape   For Each myIn In ActiveDocument.InlineSha ...

在这里找到解决方法了，多谢

		自动登录	找回密码
密码			免费注册

有没有办法一次性删除WORD文件中的控件？

用全选不行，因为实际文档还有其他不能删除的内容。