在 Word 2007 上使用 VBA 复制节

发布于 2024-11-27 16:07:17 字数 148 浏览 1 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

森林很绿却致人迷途 2024-12-04 16:07:18

快速搜索后，似乎无法监视事件，例如 keypress （或等效项）、onclick 或任何可能发生的事件当用户向部分添加文本时触发。
因此，据我所知，当用户添加文本时，您无法自动触发新部分。

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

回复收藏 0 原文

一抹淡然 2024-12-04 16:07:18

  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菜单上创建一个按钮

  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()

'your code

end sub

I hope this helps you
It creates a button on word menu

回复收藏 0 原文

~没有更多了~