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图相信大家能一下子明了了。