Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 5 ]
- Зарегистрирован: 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.
- andrkar
- Модератор
- Неактивен
- Откуда: Томск
- Зарегистрирован: 10.03.2010
- Сообщений: 431
- Поблагодарили: 26
Re: Макрос копирования таблицы и вставки в конец документа
Selection.EndKey Unit:=wdStory
- 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
- 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
- Зарегистрирован: 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
Сообщений [ 5 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Макрос копирования таблицы и вставки в конец документа
Если ваша трудовая деятельность или учеба предполагает работу с большим количеством различных текстов, то основной ваш рабочий инструмент наверняка редактор текста Microsoft Word. На портале о Microsoft Office Word вы узнаете про: исправить поврежденный текст word 2007.
Эта мощная программа, которая способна значительно автоматизировать набор текста, ускорить редактирования, выбрать самый удобный из множества предложенных вариантов оформления вашей работы. На портале о Microsoft Office Word вы узнаете про: эксель 2010 не копирует таблицу не сохраняет форматы при копировании.
У каждого человека, использующего Ворд, со временем накапливается запас различных хитрых приемов и способов облегчить свой труд. На портале о Microsoft Office Word вы узнаете про: макрос для заполнения полей в word visual basic.
Поделиться своими «тайными знаниями» и узнать секреты других пользователей вы можете на форуме сайта Ворд Эксперт, в котором обсуждается все, связанное с этой программой. На портале о Microsoft Office Word вы узнаете про: создать стиль жж.
Ворд Эксперт – это три основных направления. Первое - ответы на стандартные вопросы, которые возникают у многих пользователей (например, о написании макросов в автоматическом режиме), Второе - обсуждения настроек различных версий программы, проблем и нюансов редактирования и форматирования текстов, а также вопросов автоматизации работы. Наш сайт о Microsoft Office Word даст ответ про: исправит русский текст.
И, наконец, предложение готовых путей и вариантов решения той либо иной проблемы.
Кроме того, вы можете заказать шаблон, макрос или любую другую работу, связанную с Вордом в подразделе «Заявки на разработку». На портале о Microsoft Office Word вы узнаете про: как удалить старинцу в формате пдф.
