Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенести таблицу из Excel в Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Перенести таблицу из Excel в Word
akobir Дата: Суббота, 14.11.2020, 20:02 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
Добрый день!

У меня имеется шаблон Word документа, где имеется шапка в виде текста.
Есть таблица в Excel и макрос в нем же.

Хочется, чтобы из Excel таблица скопировалась и вставилась после имеющегося текста в Word, после чего таблица расширилась по странице таблице, Word закрылся.

Не могу понять, как это можно сделать.
Буду признателен!
К сообщению приложен файл: 0470616.docx (17.2 Kb) · 0439997.xlsx (9.7 Kb)


e-mail: akobir.ismailov@gmail.com
 
Ответить
СообщениеДобрый день!

У меня имеется шаблон Word документа, где имеется шапка в виде текста.
Есть таблица в Excel и макрос в нем же.

Хочется, чтобы из Excel таблица скопировалась и вставилась после имеющегося текста в Word, после чего таблица расширилась по странице таблице, Word закрылся.

Не могу понять, как это можно сделать.
Буду признателен!

Автор - akobir
Дата добавления - 14.11.2020 в 20:02
anvg Дата: Воскресенье, 15.11.2020, 12:35 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток.
Как-то так
[vba]
Код
Public Sub InstertExcelTableAtEndOfWordDocument()
    Dim pWord As Object, pDoc As Object, pBook As Workbook
    Set pBook = Application.Workbooks("0439997.xlsx")
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open("C:\Temp\0470616.docx")
    pDoc.Range.InsertAfter vbCr
    pBook.Worksheets(1).UsedRange.Copy
    pDoc.Paragraphs(pDoc.Paragraphs.Count).Range.PasteExcelTable False, False, True
    pDoc.Save
    pDoc.Close False
    pWord.Quit
    Set pWord = Nothing
End Sub
[/vba]


Сообщение отредактировал anvg - Воскресенье, 15.11.2020, 12:36
 
Ответить
СообщениеДоброе время суток.
Как-то так
[vba]
Код
Public Sub InstertExcelTableAtEndOfWordDocument()
    Dim pWord As Object, pDoc As Object, pBook As Workbook
    Set pBook = Application.Workbooks("0439997.xlsx")
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open("C:\Temp\0470616.docx")
    pDoc.Range.InsertAfter vbCr
    pBook.Worksheets(1).UsedRange.Copy
    pDoc.Paragraphs(pDoc.Paragraphs.Count).Range.PasteExcelTable False, False, True
    pDoc.Save
    pDoc.Close False
    pWord.Quit
    Set pWord = Nothing
End Sub
[/vba]

Автор - anvg
Дата добавления - 15.11.2020 в 12:35
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!