程序注释

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   


麻烦高手帮写下注释哦。万分感谢