HELP!! Необходимо перенести таблицу из Excel в Word

[nastya12]

Помогите, пожалуйста!
На работе дали задание, а я совсем чайник в макросах((
У меня есть таблица в Excel, мне нужно ее перенести в исходном виде в Word. Примерную таблицу прикладываю во вложении. Пробывала поискать на форуме, ничего аналогичного не нашла, в основном переносят только текст, а мне нужно таблицу.

[EducatedFool]

Пробывала поискать на форуме, ничего аналогичного не нашла

Плохо искала... примеров множество.

http://www.programmersforum.ru/showt...asteexceltable
http://www.programmersforum.ru/showt...asteexceltable
http://www.programmersforum.ru/showt...asteexceltable


Кроме того, посмотрите у меня на сайте макросы для работы с документами Word
(по ссылке есть примеры открытия файлов Word, их заполнения и сохранения)


Попробуй такой макрос:

Sub main()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True: Set wd = wa.Documents.Add
    wd.PageSetup.Orientation = 1
    [a1:l43].Copy
    wd.Range.PasteExcelTable False, False, False
    Application.CutCopyMode = False
End Sub

------------------ добавлено позже --------------------------

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[nastya12]

Спасибо большое))))
И у меня еще один вопрос возник - как сделать, чтобы я могла для каждого листа свой диапазон копирования выбирать и ориентацию странички, может что-то вроде ComboBox?
А еще мне это нужно вставлять в уже существующий документ((
Заранее спасибо!

[nastya12]

Вот, мне сюда нужно вставить

[nastya12]

Тема все еще очень актуальна. Помогите, пожалуйста

[EducatedFool]

как сделать, чтобы я могла для каждого листа свой диапазон копирования выбирать и ориентацию странички, может что-то вроде ComboBox?

Это сделать несложно.
Например, так: (пример во вложении)



А вот вставить скопированную таблицу Excel на лист документа Word посложнее...
Надо учитывать множество нюансов, чтобы таблица аккуратно вписалась внутрь рамки-колонтитула.
С этим Вам может помочь разве что viter.alex - обращайтесь к нему в раздел Microsoft Office Word...

[nastya12]

EducatedFool спасибо вам огромное, безмерно благодарна)))))))))))))

[Vyaseleva]

Попробуй такой макрос:

Sub main()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True: Set wd = wa.Documents.Add
    wd.PageSetup.Orientation = 1
    [a1:l43].Copy
    wd.Range.PasteExcelTable False, False, False
    Application.CutCopyMode = False
End Sub

[/QUOTE]

У меня этот макрос работает, как то ни так он переносит таблицу с экселя в ворд, но почему то только 3 страницы(((((((