База ответов ИНТУИТ

Основы офисного программирования и документы Word

<<- Назад к вопросам

Побочным эффектом данной реализации макросов
'Буфер, позволяющий сохранять объектPublic ObjectBuffer As RangePublic Sub CopyObject()	Set ObjectBuffer = Selection.RangeEnd SubPublic Sub PasteObject()	 ObjectBuffer.Copy	 Selection.PasteSpecial	 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 CopyText()	TextBuffer = Selection.TextEnd Sub
Какой метод применяет форматирование, хранящееся в буфере к объекту Selection:
В стандартной реализации удалить элементы буфера можно так:
У метода FindControl объектов Commandbars и Commandbar ключом поиска является:
Основным свойством каких объектов библиотеки VBIDE является свойство Count:
Булевым свойством объекта Assistant, которому дается значение True, когда желательно получать советы о наиболее эффективных способах использования свойств приложения является:
В данном примере:
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 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:
Для офисного программиста целью работы является: