Word VBA Макросы: Как скопировать в буфер обмена последний раздел без использования Selection?

Автор fairyman, 21 июня 2020, 04:00

fairyman

Для копирования последнего раздела в буфер обмена использую такой макрос:

Макрос
Sub Макрос()

    Dim doc As Document
   
    Set doc = ActiveDocument
    doc.Sections.Last.Range.Select
    Selection.Copy
       
End Sub
[свернуть]

Можно ли скопировать последний раздел в буфер обмена без использования Selection?

Администратор

Sub Макрос()

    Dim doc As Document
   
    Set doc = ActiveDocument
    doc.Sections.Last.Range.Copy
       
End Sub