Question

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

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

Sub ButtonAction1（）

'你的代码

结束子

我希望这会对你有所帮助它在单词菜单上创建一个按钮

在Word 2007上使用VBA复制节

2 个答案: