Основы офисного программирования и документы Word - ответы
Количество вопросов - 323
'Буфер, позволяющий сохранять объектPublic ObjectBuffer As RangePublic Sub CopyObject() Set ObjectBuffer = Selection.RangeEnd SubPublic Sub PasteObject() ObjectBuffer.Copy Selection.PasteSpecial End Subявляется:
Public Sub DelAll() Dim i As Integer Dim Panel As CommandBar Dim Ctrl As CommandBarComboBox For i = 1 To MultBuffer.Count MultBuffer.Remove (1) Next i Set Panel = CommandBars("MultBufferPanel") Set Ctrl = Panel.Controls("DropdownItem") For i = 1 To Ctrl.ListCount Ctrl.RemoveItem (1) Next iEnd Subвыполняет:
Public Function ExistRef(Name As String, Refery As Object) As Boolean 'Определяет наличие ссылки с именем Name в коллекции References 'Возвращает ссылку при ее обнаружении Dim MyRef As Object Set Refery = Nothing ExistRef = False For Each MyRef In ActiveDocument.VBProject.References If MyRef.Name = Name Then Set Refery = MyRef ExistRef = True Exit For End If Next MyRefEnd Functionпараметр - MyRef является выходным и задает:
Public Sub CallHelp() 'Вызов стандартной справки Application.Help (wdHelpAbout)End Subможно вызвать стандартную справку:
Public Sub InsertAll() For Each Elem In MultBuffer If Elem.ShapeRange.Count > 0 Then Elem.ShapeRange(1).Duplicate Else Elem.Copy Selection.PasteSpecial End If Next ElemEnd Subверно:
Public Sub AddPanel(PanelName As String) 'Добавляет и делает видимой панель с именем Panelname 'в коллекцию Commandbars 'Панель расположена вверху документа, 'не заменяет главное меню и не является временной If Not ExistCommandBar(PanelName) Then Call CommandBars.Add(name:=PanelName, Position:=msoBarTop, _ MenuBar:=False, Temporary:=False) End If CommandBars(PanelName).Enabled = True CommandBars(PanelName).Visible = TrueEnd Subпозволяет в любом из приложений Office 2000 добавить в коллекцию CommandBars:
Public Sub RemoveRef() 'Удаление ссылки на проект с именем NoP Dim MyRef As Object Dim NameOfProject As String Dim NameOfFile As String 'Выбор удаляемого проекта Call ChooseProject(NameOfFile, NameOfProject) 'Удаление ссылки If ExistRef(NameOfProject, MyRef) Then ActiveDocument.VBProject.References.Remove MyRef End IfEnd Subдля удаления ссылки использован метод: