UC知道WORD文档如何输入代码
来源：百度知道 编辑：UC知道 时间：2024/06/18 04:40:57
经常碰到办公软件中的一些问题，会在摆渡搜下。
有时会得到输入代码的回答，EXCEL、WORD都有。
但我就不懂，这代码该怎么输入？
比如：Sub Example()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
Select Case oShape.Type
Case msoTextEffect, msoPicture
oShape.Delete
End Select
Next
End Sub
这该如何运行呢？？？
请大家指教！
有时会得到输入代码的回答，EXCEL、WORD都有。
但我就不懂，这代码该怎么输入？
比如：Sub Example()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
Select Case oShape.Type
Case msoTextEffect, msoPicture
oShape.Delete
End Select
Next
End Sub
这该如何运行呢？？？
请大家指教！
这是VBA。工具 → 宏 → VB编辑器，然后粘贴在代码窗口中，按F5即运行。
Sub Example()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes '遍历当前文档的所有图形对象
Select Case oShape.Type '选定当前图片的类型并判断其类型
Case msoTextEffect, msoPicture '若为艺术字或图片类型
oShape.Delete '则删除
End Select '否则进入下一个图形对象
Next
End Sub
ALT+F11调出编辑器，然后点击This Document，将代码粘贴到左边，然后F5执行。
前提条件是电脑里必须安装了VBA编辑器。这是OFFICE的组件。