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

[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

[fairyman]

Форуму и админу спасибо!