高手们帮我看看这个VB小程序,这个程序哪里错了？

来源：百度知道编辑：UC知道时间：2024/06/22 06:20:10

'If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
'Set Appppt = Wrd.ActiveDocument.Shapes(1)
'If Appppt.TextEffect.FontName = "黑体" Then ' 字体
'asp = asp + 0.5 ' 以下均略
'End If
'If Appppt.TextEffect.Text = "我的大学生活" Then ' 内容
'If Appppt.TextEffect.PresetTextEffect = -2 Then ' 式样
'If GradientType = msoGradientHorizon Then ' 填充：极目远眺
'If Appppt.TextEffect.PresetShape = msoTextEffectShapeDoubleWave2 Then ' 双波形2
1、插入文本框
在第2张幻灯片中插入文本框，添加文字：‘我的大学生活’，并设置成：黑体、四号、深红色。
2、图片+动画
在演示文稿的第3张幻灯片插入考试文件夹下的“photo”子文件夹中的图片：‘photo1’，设置动画效果“百叶窗”。
把这2个问题用VB编写个程序出来可以吗?

If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
Set Appppt = Wrd.ActiveDocument.Shapes(1)
If Appppt.TextEffect.FontName = "黑体" Then ' 字体
asp = asp + 0.5 ' 以下均略
End If
end if
If Appppt.TextEffect.Text = "我的大学生活" Then ' 内容
end if
If Appppt.TextEffect.PresetTextEffect = -2 Then ' 式样
end if
If GradientType = msoGradientHorizon Then ' 填充：极目远眺
If Appppt.TextEffect.PresetShape = msoTextEffectShapeDoubleWave2 Then ' 双波形2
end if

'Set Appppt = Wrd.ActiveDocument.Shapes(1

请帮我看看这个VB程序!!! 大家帮我看看这个VB程序帮我看看这个VB的小程序的问题吧帮我看看这个java小程序。那位高手能帮我注释一下这个VB小程序？？？各位帮我看看这个vb程序,怎么错的大家帮我看看这个VB程序谢谢~ 大家帮我看看这个VB程序哪里错了大家帮我看下这个VB死机小程序??? 高手帮我写个VB小程序！