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

Public Sub CopyText()	TextBuffer = Selection.TextEnd Sub

В данном примере:Public TextBuffer As String:

Побочным эффектом данной реализации макросов

'Буфер, позволяющий сохранять объектPublic ObjectBuffer As RangePublic Sub CopyObject()	Set ObjectBuffer = Selection.RangeEnd SubPublic Sub PasteObject()	 ObjectBuffer.Copy	 Selection.PasteSpecial	 End Sub

является:

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

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 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

верно:

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

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

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

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

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

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

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