在Word 2007中复制使用VBA的部分

Question

我有一个文档模板，其中包含一个包含Header和List的文本部分。当我编辑这个部分时，我希望Word在下面创建一个新的。所以编辑该部分就像一个“添加按钮”。这是可行的吗？ 目前我正在尝试使用Building Block和那些我设法插入这个新的部分，但我不知道如何编辑当前存在的部分以及如何在当前部分之后插入它。

Answer 1

快速搜索之后，它好像有没有办法监控事件像keypress（或同等学历），onclick或可以当用户添加文本到部分被触发的任何事件。
因此，据我所见，当用户添加文本时，不能自动触发新的部分。

您可以做的是在功能区（取决于您使用的版本）中的菜单/添加按钮以添加新的部分。

Answer 2

Dim cbToolBar As CommandBar 
    Dim cbMenuBar As CommandBarPopup 
    Dim cbSuBMnu1 As CommandBarButton 
    Dim strToolBar As String 
    Dim iCount As Integer 

    ' Replace "My Toolbar" with a name 
    ' you want to use for your toolbar. 
    strToolBar = "Macro Toolbar" 

    ' If a toolbar of this name already exists, 
    ' append a number to the end of name to 
    ' differentiate one from the other. 

    ' Create and display the Toolbar. 
    Set cbToolBar = CommandBars.Add(Name:=strToolBar, _ 
    Position:=msoBarFloating) 
    cbToolBar.Visible = True 

    ' Create Main PopUp Menu on Toolbar. 
    Set cbMenuBar = cbToolBar.Controls.Add(Type:=msoControlPopup) 
    cbMenuBar.Caption = "Macros" 

    ' Add a Menu Button and a Popup 
    ' Menu to the "Main PopUp Menu." 
    With cbMenuBar.Controls 

    Set cbSuBMnu1 = .Add(Type:=msoControlButton) 

    End With 

    ' Set properties for the sub 

    With cbSuBMnu1 
    .Caption = "Change Styles" 
    .Style = msoButtonCaption 
    .OnAction = "ButtonAction1" ' <- Macro to run when clicked. 
    .FaceId = 150 

    End With 

     'cbSuBMnu1.OnAction = "Tag" 

     End Sub 

子ButtonAction1（）

“你的代码

末次

我希望这可以帮助你 它创建Word菜单上的按钮