Word 宏处理文本框无颜色填充

Word 宏处理文本框无颜色填充

在对word文档批量修改时，我们可以采用宏来进行处理。下面根据插入文本框批量进行无颜色填充设置。

第一步：首先录制宏
点击“宏”下面的倒立三角，再点击录制宏

在弹出“录制宏”窗口上，我们可以给宏命名，将宏保存到指定文档上

点击窗口上的“键盘”按钮，为宏定义触发的快捷键。在键盘上操作快捷键，就会在“请按新快捷键”的文本框显示。点击“指定”按钮，该快捷键才会生效。然后点击“关闭按钮”，开始录制宏。
此次我们定义的快捷键是Ctrl+S，每次执行保存时就自动启动宏

点击“停止录制”菜单，结束本次录制宏。

第二步：编辑宏
点击“宏”下面的倒立三角，再点击“查看宏”菜单

在弹出“宏”窗口，我们找到之前定义的宏，点击编辑按钮

进入VB编辑器编辑宏，我们将代码粘入。

代码如下：
Sub 文本框()
’
’ 文本框 宏
Dim a(), k As Long
k = 0
For Each sha In ActiveDocument.Shapes
If sha.Type = 17 Then
ReDim Preserve a(k)
a(k) = sha.Name
k = k + 1
End If
Next
If k > 0 Then ActiveDocument.Shapes.Range(a()).Fill.Transparency = 1
End Sub

第三步：在VB编辑器，点击“文件”->“关闭并返回到Microsoft Word”菜单，宏就起作用了