Дублируйте раздел с помощью VBA в Word 2007 - PullRequest
Новая
       8

Дублируйте раздел с помощью VBA в Word 2007

0 голосов
/ 02 августа 2011

У меня есть шаблон документа с разделом текста, который содержит заголовок и список. Когда я редактирую этот раздел, я хочу, чтобы Word создал новый под ним. Таким образом, редактирование раздела работает как «Добавить кнопку». Это возможно? В настоящее время я пытаюсь использовать Building Blocks, и мне удается вставить этот новый раздел, но я не знаю, как это сделать при редактировании существующего раздела и как вставить его после текущего раздела.

Ответы [ 2 ]

1 голос
/ 03 августа 2011

После быстрого поиска кажется, что невозможно отслеживать события , например keypress (или эквивалент), onclick или любое событие, которое может быть вызвано, когда пользователь добавляет текст враздел.
Таким образом, насколько я вижу, вы не можете автоматически запускать новый раздел, когда пользователь добавляет текст.

Что вы можете сделать, это добавление кнопки вменю / на ленте (в зависимости от используемой версии), чтобы добавить новый раздел.

0 голосов
/ 29 октября 2013 
  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 ()

'ваш код

end sub

Надеюсь, это поможет вам. Создает кнопку в меню слов

...