vba 批量删word中的文本框控件
分类:VBA
以下是 VBA 宏代码,可以帮助你批量删除 Word 文档中的 ActiveX 文本框控件:
Sub DeleteAllTextBoxControls()
Dim i As Long
Dim ctrl As InlineShape
'逐个遍历所有内嵌形状
For i = ActiveDocument.InlineShapes.Count To 1 Step -1
Set ctrl = ActiveDocument.InlineShapes(i)
If ctrl.Type = wdInlineShapeOLEControlObject And ctrl.OLEFormat.ClassType = "Forms.TextBox.1" Then '如果是 ActiveX 文本框,则删除
ctrl.Delete
End If
Next i
End Sub
请按照以下步骤执行该宏:
- 打开你要删除 ActiveX 文本框的 Word 文档。
- 按下“Alt + F11”组合键打开 Microsoft Visual Basic for Applications 窗口。
- 在左侧的“项目资源管理器”窗格中,双击要编辑宏的文档名称。
- 在“代码”窗格中,粘贴以上 VBA 代码。
- 点击“运行”按钮或按下“F5”键,执行宏。
这样,该宏将删除 Word 文档中的所有 ActiveX 文本框控件。请注意,执行此操作后无法恢复文本框,因此请确保在执行之前备份 Word 文档。