小程序开发

登录注册

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

306关注2642浏览

'If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
'Set Appppt = Wrd.ActiveDocument.Shapes(1)
'If Appppt.TextEffect.FontName = "黑体" Then ' 字体
'asp = asp + 0.5

微信订阅号渠道推广带参数二维码如何生成和统计呢？

微信公众号参数二维码生成器使用？

如何在微信小程序里面添加游戏

微信多参数二维码怎么生成？

微信公众号带参数二维码的使用？

公众号生成微信渠道二维码的方法？

共2条回答

周文轩

7年前

'Set Appppt = Wrd.ActiveDocument.Shapes(1

0 2
Brayden

7年前

If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
Set Appppt = Wrd.ActiveDocument.Shapes(1)
If Appppt.TextEffect.FontName = "黑体" Then ' 字体
asp = asp + 0.5

0 2