word vba新建选项卡组内添加分隔符
时间: 2023-07-02 16:09:33 浏览: 71
要在Word VBA中新建选项卡组并添加分隔符,可以使用以下代码:
```
Sub AddNewTabAndSeparator()
Dim newTab As CommandBar
Dim newGroup As CommandBarControl
Dim newSeparator As CommandBarControl
'创建新选项卡
Set newTab = CommandBars.Add(Name:="MyNewTab", Position:=msoBarTop, Temporary:=True)
newTab.Visible = True
'创建新分组
Set newGroup = newTab.Controls.Add(Type:=msoControlButton, Temporary:=True)
newGroup.Caption = "MyNewGroup"
newGroup.Style = msoButtonIconAndCaption
'创建新分隔符
Set newSeparator = newGroup.Controls.Add(Type:=msoControlSeparator)
newSeparator.BeginGroup = True
End Sub
```
这个代码将创建一个名为"MyNewTab"的新选项卡,并在其中添加一个名为"MyNewGroup"的新分组,并将一个分隔符添加到该分组中。 "BeginGroup"属性设置为True,以确保分隔符前面的任何控件都位于该组的第一行。
相关推荐
![docm](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)