Для данного макросаPublic Sub InsertAll() For Each Elem In MultBuffer If Elem.ShapeRange.Count...

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

Для данного макроса

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 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 Sub CopyText()	TextBuffer = Selection.TextEnd Sub

Какой метод применяет форматирование, хранящееся в буфере к объекту Selection:

Основным свойством каких объектов библиотеки VBIDE является свойство Count:

Какие объекты библиотеки Microsoft Office 9.0 Object Library имеют следующее основное свойство - Count:

Общее время работы макроса - конструкции For Each и If-Then-Else во время второго эксперимента было равно:

Общее время работы макроса - конструкции For Each и Select во время первого эксперимента было равно:

Общее время работы макроса - конструкции For I =1 To N и Select во время третьего эксперимента было равно:

Следующим образом:

Public Sub CallHelp()	'Вызов стандартной справки	Application.Help (wdHelpAbout)End Sub

можно вызвать стандартную справку:

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

Для данного макроса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 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
верно: