Скопируйте таблицу Excel в существующую таблицу Word, сохранив исходный формат таблицы Word

#excel #vba #ms-word

Вопрос:

Мне нужно скопировать таблицу excel и добавить к существующей таблице word, сохранив формат таблицы word.

К сожалению, при добавлении с.PasteAppendTable исходное форматирование потеряно.

Таблица Excel должна оставаться динамической, т. е. Количество строк при копировании не определено.

Выполняется следующий код:

 If Vertrag.Bookmarks.Exists("Schedule_of_Insured") Then Range("Schedule_of_Insured").Copy Vertrag.Tables(1).Range.Characters.Last.Next.PasteAppendTable End If  

В результате получается следующее: введите описание изображения здесь

но должно быть следующим: введите описание изображения здесь

Любая идея будет оценена по достоинству.

Комментарии:

1. копировать только значения