word 删除所有 ActiveX控件，重新启用word自动保存

背景

最近在学习课程，会用到word记录一些错题，从网页复制到word里，发现会把在线考试的html网页的选择控件也给复制进来，纯文本粘贴又会缺少图片和格式等信息。重点是我在onedrive操作的，自动保存文档也不能用了，而且查阅滚动没有普通文档流畅。因为做题多了，错题也就多了，手工一个个处理也不合适，就只能借助魔法了。

调出开发工具

如果已经在菜单中有开发工具的话，可以忽略本小节。

 在上图菜单中选择“文件”，然后在左下角选择“选项”，打开word选项控制面板。

 在自定义功能栏区，选择开发者工具，勾选后确定。

 代码去除控件

在开发工具页，选择“Visual Basic” 复制下面的代码，双击“ThisDocument”并粘贴执行。

Private Sub CommandButton1_Click()

Dim doc As Document
Set doc = Application.ActiveDocument
Selection.MoveStart

Dim objShape As InlineShape
For Each objShape In doc.InlineShapes
If objShape.Type = wdInlineShapeOLEControlObject Then
objShape.Delete
End If
Next

End Sub

等待执行完成后，即可删除代码然后点击上图代码页的“保存”，然后关闭上图的VBA编辑窗口。此时自动保存功能会自行打开，所有ActiveX控件都被清除了。