怎么使用VB对PPT操作题进行评分
需要直接通过编程来实现
f pptdocument.Slides(1).Shapes.Count = 1 Then
If pptdocument.Slides(1).Shapes(1).TextFrame.TextRange = "Microsoft Office图书策划案" Then
right_info_ppt = right_info_ppt + "第1张幻灯片标题得分:1分" + Chr(10)
pptzf = pptzf + 1
Else
error_info_ppt = error_info_ppt + "第1张幻灯片标题得分:0分" + Chr(10)
End If
这样之类的