Здравствуйте Уважаемые!
Подскажите новичку
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам {Табл1} {Табл2} {Табл3} и т.д.
Всё отлично работает, но страницы "съезжают" т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, {Табл2},
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка {Табл2} остается внутри ячейки.
Вот код
Подскажите, что делаю не так
Подскажите новичку
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам {Табл1} {Табл2} {Табл3} и т.д.
Всё отлично работает, но страницы "съезжают" т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, {Табл2},
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка {Табл2} остается внутри ячейки.
Вот код
| Код |
|---|
Set tbl2Range = Range(Cells(35, 8, Cells(39 + s, 12))
tbl2Range.Copy
FindText = "{Табл2}"
WD.Application.Selection.Find.ClearFormatting
If WD.Application.Selection.Find.Execute(FindText) = True Then
WD.Application.Application.Selection.Paste
End If |
Подскажите, что делаю не так
Изменено: - 30.07.2021 05:20:52
(коррекция)
