Форум по VBA, Excel и Word

Word => Макросы в Word => Тема начата: fairyman от 21 июня 2020, 04:00

Название: Word VBA Макросы: Как скопировать в буфер обмена последний раздел без использования Selection?
Отправлено: fairyman от 21 июня 2020, 04:00
Для копирования последнего раздела в буфер обмена использую такой макрос:

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

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

Можно ли скопировать последний раздел в буфер обмена без использования Selection?
Название: Re: Word VBA Макросы: Как скопировать в буфер обмена последний раздел без использования Selection?
Отправлено: Администратор от 21 июня 2020, 12:34
Sub Макрос()

    Dim doc As Document
   
    Set doc = ActiveDocument
    doc.Sections.Last.Range.Copy
       
End Sub
Название: Re: Word VBA Макросы: Как скопировать в буфер обмена последний раздел без использования Selection?
Отправлено: fairyman от 21 июня 2020, 16:32
Форуму и админу спасибо!