О вставке ранга EXCEL в документ WORD

[Aent]

В связи с вопросами по SUBJ на нескольких форумах решил ответить
отдельным топиком.

1) Вставка осуществляется с помощью OLE
Вставка->Объект->Создание из файла->Обзор ...
Для указания имени ранга ячеек используйте кнопку "Элемент"

2) Можно сразу поместить в документ поле LINK
Например,
{ LINK Excel.Sheet.8 "E:\\123456789.xls" "TBL1" \a \f 0 \p }
Создаст связь с рангом TBL1 файла E:\123456789.xls с автоматическим
обновлением. Ранг вставляется как рисунок, но может быть откорректирован в родительском приложении по клику на объект.

3)Можно скопировать Range в Excel, перейти в Word и выбрать Правка->Специальная вставка
Вставить как "Лист Microsoft Office Excel (объект)" - будет вставлено поле EMBED и образована связь с XLS файлом или
вставить как "Формат HTML" - ранг будет конвертирован в таблицу Word и вставлен в документ
Собственно, можно и просто Ctrl-C Ctrl-V
При внедрении данных с помощью OLE нужно не забывать, что если вы перенесёте файл EXCEL в другой каталог или переименуете его связь будет разрушена.

4) Можно воспользоваться методом InsertFile

selection.InsertFile "E:\123456789.xls","R5C2:R7C4",false

При указании в этом методе 4-го параметра link:=TRUE в документ вставляется поле INCLUDETEXT. Cм. далее.

5) Можно воспользоваться полем INCLUDETEXT
{ INCLUDETEXT "E:\\123456789.xls" R5C2:R7C4 \c MSBiff } или
{ INCLUDETEXT "E:\\123456789.xls" B5:D7 \c MSBiff }
со стандартным конвертером.
Так же можно воспользоваться старым (не поддерживаемым больше MS) конвертером Excel32.cnv, разработанным для Excel 2.0-97.
Конвертер можно найти, например, по адресу http://www.gmayor.com/Zips/Excel32.zip
Код поля в этом случаее будет иметь вид:
{ INCLUDETEXT "E:\\123456789.xls" R5C2:R7C4 \c excel32 }
К сожалению, с именованными рангами эти конвертеры у меня работать отказались.
Но если используется адрес ячеек для MSBIFF всё срабатывает без проблем.

6) Ну и на последок. Можно написать макрос который просканирует коллекцию FIELDS в вашем документе в поисках скажем полей
вида { ADDIN XLSRANGE имя_ранга}. Получив имя ранга нужно получить его адрес и затем вставить этот ранг в WORD за полем. В поле ADDIN вы можете установить любое удобное ваш содержание.

В отличие от использования OLE использование INCLUDETEXT не даёт возможности править исходный файл в целевом документе.
Кроме того, если используется конвертация формата (INCLUDETEXT,insertfile) вы будете получать дополнительный запрос от Word на подтверждение конвертации формата файла. Однако, при использовании непосредственной вставки ранга по insertfile этот запрос можно задавить.

Dim Old_DA As Long
Old_DA = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
Selection.InsertFile "E:\123456789.xls", "B5:D7", False
Application.DisplayAlerts = Old_DA