Упражнение

Создайте таблицу данных Excel, показанную на рис. 23.5. Создайте текстовый документ Word, представленный на рис. 23.6. Вставьте в этот документ необходимые закладки. Создайте процедуру, которая копировала бы информацию из таблицы данных Excel и вставляла в соответствующие места документа Word.

Полный код процедуры (имена закладок совпадают с заголовками столбцов таблицы данных):

Sub Упражнение23()

Dim y As Word.Application

Set y = CreateObject("Word.Application")

With у

.Visible = True

'В следующем операторе путь к текстовому файлу зависит от

'того, где вы сохранили этот файл. При необходимости внесите

'изменения в путь

.Documents.OpenFileName:="C:\Мои документы\ТекстДок.dос"

ActiveCell.Copy

.Selection.GoTo What:=wdGoToBookmark, Name:="Номер_изделия"

.Selection.Paste Application.CutCopyMode = False

ActiveCell.Offset(0, 1).Select

Selection.Copy

.Selection.GoTo What:=wdGoToBookmark, Name:="Количество"

.Selection.Paste Application.CutCopyMode = False

ActiveCell.Offset(0, 1).Select

Selection.Copy

.Selection.GoTo What:=wdGoToBookmark, Name:="Цена"

.Selection.Paste Application.CutCopyMode = False

ActiveCell.Offset(0, 1).Select

Selection.Copy

.Selection.GoTo What:=wdGoToBookmark, Name:="Всего"

.Selection.Paste

Application.CutCopyMode = False

End With

End Sub