1 Тема от Spare

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Тема: Макрос копирования таблицы и вставки в конец документа

Добрый день, коллеги.
Возник такой вопрос.
Пытаюсь в конец документа вставить скопированную таблицу, проблема заключается в том, что не могу определить никак конец документа автоматизированным путем.
ThisDocument.Range(myrange).Paste
Если задавать явно число 20, то ошибки не будет, но как выйти на это число я понятия пока не имею.

Sub ops()
Set myrange = ActiveDocument.Content
myrange.Collapse Direction:=wdCollapseEnd
ThisDocument.Tables(1).Range.Copy
'myrange = 20
ThisDocument.Range(myrange).Paste
End Sub

Буду благодарен любой помощи.
Спасибо!

Post's attachments

Данные.doc 37 Кб, 4 скачиваний с 2013-10-16 

You don't have the permssions to download the attachments of this post.

2 Ответ от andrkar

  • andrkar
  • Модератор
  • Неактивен
  • Откуда: Томск
  • Зарегистрирован: 10.03.2010
  • Сообщений: 431
  • Поблагодарили: 26

Re: Макрос копирования таблицы и вставки в конец документа

Selection.EndKey Unit:=wdStory

3 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119
  • За сообщение: 1

Re: Макрос копирования таблицы и вставки в конец документа

Sub w131016_1622()
'
Word.ActiveDocument.Tables(1).Select
'
 Selection.Copy
 Selection.EndKey Unit:=wdStory
 Selection.PasteAppendTable
End Sub

4 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119
  • За сообщение: 1

Re: Макрос копирования таблицы и вставки в конец документа

Sub w131016_1622()
'
Word.ActiveDocument.Tables(1).Select
'
 Selection.Copy
 Selection.EndKey Unit:=wdStory
 Selection.PasteAppendTable
End Sub

5 Ответ от Spare

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Re: Макрос копирования таблицы и вставки в конец документа

Спасибо.
Решил таким способом.

Sub ops()
Set myrange = ActiveDocument.Content
myrange.Collapse Direction:=wdCollapseEnd
ThisDocument.Tables(1).Range.Copy
'myrange = 20
ThisDocument.Range(myrange.End - 1).Paste
End Sub