WPS演示怎样制作选择题文档

简单的运用宏就能轻松的制作选择题，需注意的是必须线选中对象再运行宏。以下是小编给大家整理的WPS演示制作选择题文档的技巧，希望能帮到你!

WPS宏运行制作选择题的教程：

下图是实例效果图：

制作方法：

1、用工具栏的文本工具输入上图的题与重置按钮;

2、打开编辑器，插入模块下面的代码输入;

Sub 修改对象名()

On Error GoTo err

ActiveWindow.Selection.ShapeRange.Name = InputBox("将对象名称修改为：")

Exit Sub

err:

MsgBox "操作错误。你需要选中一个对象。"

End Sub

Sub B()

ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "B"

MsgBox "错了!"

End Sub

Sub A()

ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "A"

MsgBox "错了!"

End Sub

Sub C()

ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "C"

MsgBox "错了!"

End Sub

Sub D()

ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "D"

MsgBox "对了!"

End Sub

Sub 修改对象名1()

On Error GoTo err

ActiveWindow.Selection.ShapeRange.Name = InputBox("将对象名称修改为：")

Exit Sub

err:

MsgBox "操作错误。你需要选中一个对象。"

End Sub

Sub B1()

ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "B"

MsgBox "对了!"

End Sub

Sub A1()

ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "A"

MsgBox "错了!"

End Sub

Sub C1()

ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "C"

MsgBox "错了!"

End Sub

Sub D1()

ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "D"

MsgBox "错了!"

End Sub

Sub 重置()

ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = ""

ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = ""

End Sub

3、在每题的答案区添一个文本框，空格改变字体颜色。分别选定答案文本框运行宏，修改第一个答案的文本框的名为daan，第二个答案文本框名为daan1。

4、然后分别选定选择动作设置，运行相应的宏。

5、重置按钮也作动作设置运行宏。

6、演示就OK了。

下图是“答案文本框”与宏“修改对象名”相联命名的图解

注意：制作练习时不管练习有几页，其代码都放在一个模块。

认真的看一看GIF图相信大家能一下子明了了。