Страницы: 1
RSS
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Всем здравствуйте! знаю, что тут не задают вопросы, которые связаны с вордом, но мой вопрос связан в большей степени с excel и его макросом.
Задача следующая: У меня есть в excel листе несколько таблиц, которые нужно перенести в ворд, Макрос, который я сделал переносит эти таблицы в ворд, но проблема в том, что таблица становится слишком высокой из-за появившегося высоко интервала в словах этой таблицы. Самое интересное, что если вручную вставлять таблицу в ворд, то он вставляет как надо. Я прикрепил файл excel и word. Вопрос, собственно, в том как это исправить?
Заранее огромное спасибо!!! А то уже мозг сломал из-за этой задачей

файл word (как должно быть, как получилось и шаблон для макроса)
файл excel (таблицы и макрос)
Изменено: Anton_Kozlov - 10.08.2020 21:52:46
 
Здравствуйте
Код
        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
Изменено: Андрей Лящук - 10.08.2020 23:34:00
 
Андрей Лящук, спасибо Вам большое! Честно сказать, выручили меня. Еще раз спасибо!!!
 
Anton_Kozlov, скажите как вы в шаблоне метки делаете?
Добавил еще  chart4 и таблицу, но  с этой таблицей не отработало. Почему?
 
Выделить текст -> вставка -> ссылки -> закладка -> написать имя -> добавить
 
Андрей Лящук, спасибо большое!  
Страницы: 1
Наверх