Word中将传统的复选框型窗体域选项插件批量替换成复选框内容控件

最新推荐文章于 2024-04-09 09:40:14 发布

weixin_33762321

最新推荐文章于 2024-04-09 09:40:14 发布

阅读量1.7k

点赞数

文章标签：开发工具

原文链接：http://blog.51cto.com/41084/2043626

版权

这篇博客介绍了如何使用VBA宏将Word 2007之前的复选框型窗体域批量替换为2010年后的复选框内容控件。提供了具体的宏代码，适用于需要升级旧版Word文档格式的用户。

摘要由CSDN通过智能技术生成

在Word 2007及更早的版本中，使用的是复选框型窗体域选项插件；在2010及更新的版本中，使用的是复选框内容控件。可以通过下面的VBA, 批量将旧插件更换为新插件。

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFF As FormField
Dim oCC As ContentControl
Dim strText As String
Dim bVal As Boolean
Dim arrVals() As String
Dim lngIndex As Long, lngDDItem As Long
Dim oRng As Range
For lngIndex = ActiveDocument.FormFields.Count To 1 Step -1
Set oFF = ActiveDocument.FormFields(lngIndex)
Select Case oFF.Type
Case 83
ReDim arrVals(1 To oFF.DropDown.ListEntries.Count)
For lngDDItem = 1 To oFF.DropDown.ListEntries.Count
arrVals(lngDDItem) = oFF.DropDown.ListEntries(lngDDItem).Name
Next lngDDItem
strText = oFF.Result
Set oRng = oFF.Range
oFF.Delete
Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList, oRng)
oCC.Dro