关于在word中添加按钮时遇到的问题?(100分)

  • 主题发起人 主题发起人 bain
  • 开始时间 开始时间
B

bain

Unregistered / Unconfirmed
GUEST, unregistred user!
我在word中添加按钮时遇到问题:
1、word2000没问题,但是在word97中无法设定按钮对应的宏,
cBarCtl : CommandBarControl ;
cBarCtl.Set_OnAction('DocFax') ;//这句报错 cBarCtl.Set_OnAction('')这样就没事
2、在word xp中无法添加宏,
vc:=appWord.VBE.ActiveVBProject.VBComponents;//这句报错
好像无法建立这个类型对象。

 
有人知道吗?
 
有人知道吗?
 
看下面的代码,希望对你有用,就是OnAction,可以的。在Word97下,只是记得实验过,手头没有97,你自己实验吧。
Sub AddBtn_Print()

Dim Btn_Print As CommandBarButton
Set Btn_Print = My_Bar.Controls.Add(Type:=msoControlButton, Temporary:=False)
With Btn_Print
.Caption = "打印文稿"
.TooltipText = "打印当前文稿"
.Style = msoButtonIconAndCaption 'msoButtonAutomatic
'.PasteFace
.OnAction = "FilePrint"
.Visible = True
End With
End Sub
 
我试了,不行!有人能解决吗?
 
没人知道吗?希望哪位大虾指点一下!
 
仔细看了一下,不是我给你的代码不行,是你不会使用。
cBarCtl.Set_OnAction('DocFax') ;
你就需要有一个Sub和这句话对应。就是说需要存在一个
sub DocFax
'
end Sub
否则,VB编译器找不到DocFax,肯定报错。
 
1.同意楼上
2.你要在word xp里的宏->安全性里设置可靠来源页面下,将信任对于Visual basic项目的访问打上勾

 
后退
顶部