Всем здравствуйте! знаю, что тут не задают вопросы, которые связаны с вордом, но мой вопрос связан в большей степени с excel и его макросом. Задача следующая: У меня есть в excel листе несколько таблиц, которые нужно перенести в ворд, Макрос, который я сделал переносит эти таблицы в ворд, но проблема в том, что таблица становится слишком высокой из-за появившегося высоко интервала в словах этой таблицы. Самое интересное, что если вручную вставлять таблицу в ворд, то он вставляет как надо. Я прикрепил файл excel и word. Вопрос, собственно, в том как это исправить? Заранее огромное спасибо!!! А то уже мозг сломал из-за этой задачей
файл word (как должно быть, как получилось и шаблон для макроса) файл excel (таблицы и макрос)
Dim v as Variant
For Each v In Array( _
Array("C3:E8", "chart1"), _
Array("G3:L26", "chart2"), _
Array("N3:S9", "chart3") _
)
pSheet.Range(v(0)).Copy
With objWrdDoc.Bookmarks(v(1)).Range
.PasteAndFormat 16
objWrdApp.DoEvents
.tables(1).AutoFitBehavior 2
End With
Next