Vba 向我解释一下这个单词宏中的一些参数
我使用了在互联网底部找到的代码,将命令添加到Word 2013右键单击菜单中。现在我已经使用了它,我希望能更好地理解它,有人能给我解释一些参数。我想更好地理解它,我想再次运行它以添加更多命令。官方的Microsoft帮助参考只会让我感到困惑Vba 向我解释一下这个单词宏中的一些参数,vba,ms-word,Vba,Ms Word,我使用了在互联网底部找到的代码,将命令添加到Word 2013右键单击菜单中。现在我已经使用了它,我希望能更好地理解它,有人能给我解释一些参数。我想更好地理解它,我想再次运行它以添加更多命令。官方的Microsoft帮助参考只会让我感到困惑 Before:=30如何工作?起初我以为它只是从右键单击菜单的顶部倒计时,但当我这么做时,我的命令被放错了位置。我想这一定是在计算没有一直显示的命令 Tag:=“Save”和.Tag=“Save”是否相同,它们是什么。 什么是.Caption? 上述三个参数
Before:=30
如何工作?起初我以为它只是从右键单击菜单的顶部倒计时,但当我这么做时,我的命令被放错了位置。我想这一定是在计算没有一直显示的命令
Tag:=“Save”
和.Tag=“Save”
是否相同,它们是什么。
什么是.Caption
?
上述三个参数似乎非常相似
Sub EditRightClickMenu()
'
'
'
Dim cb As CommandBar
Dim ctl As CommandBarButton
On Error GoTo bye
CustomizationContext = NormalTemplate
Set cb = CommandBars("Text")
Set ctl = cb.FindControl(Tag:="Save")
If ctl Is Nothing Then
Set ctl = cb.Controls.Add(Type:=msoControlButton, _
Before:=30, Temporary:=True)
With ctl
.Caption = "Save"
.Tag = "Save"
.FaceId = 3
.BeginGroup = True
.OnAction = "MySave"
End With
End If
bye:
End Sub
Before:=30确实是菜单上要插入新控件的命令。如果您从代码中删除“出错时转到bye”行,并在普通word安装中运行该行,则尝试设置该行时将出现错误:
Set ctl = cb.Controls.Add(Type:=msoControlButton, _
Before:=30, Temporary:=True)
这是因为默认文本右键单击菜单上没有30个控件。把它改成5,就可以了
Tag:=“Save”
和。Tag=“Save”
略有不同。当指定方法的变量输入时,使用标记:=
符号,在这种情况下,它是FindControl
函数的Tag
输入。如果在编辑器中选择FindControl
时按键盘上的Shift+F2键,将进入方法和所有变量的定义。.Tag
符号指的是对象属性,在这种情况下,标记
被设置为“Save”
,因此如果再次运行宏,可以找到它
最后,.Caption
只是创建后菜单控件上显示的文本