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

Оффлайн fairyman

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

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

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

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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
Sub Макрос()

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

Оффлайн fairyman

  • Посетитель форума
  • Сообщений: 7