В данном примере:

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

для удаления ссылки использован метод:

В данном примере:

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 TextBuffer As String:

Данная процедура:

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:

Ссылки в документе Word могут задавать переход:

В данном примере:

Public Sub CopyText()	TextBuffer = Selection.TextEnd Sub

Какие свойства объекта класса VBProject в Office 97 позволяют получить описание проекта и определить, защищен ли он:

Сколько объектов Range упоминается в данном предложении:ActiveDocument.Range.Sections(1).Range.Paragraphs(1).Range.Sentences(1).Words(1).Characters(1)?

Верно ли, что вызов функции ChooseProject позволяет установить предпочтения пользователя:

Данный макрос:

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

выполняет:

В данном примере:< имя процедуры> (Ball As Balloon, NumberOfButton As Long, iPriv As Long) - какой из параметров, как правило, не используется в теле процедуры: