Быстрая вставка фамилий должностных лиц в документ

Трюк, который мы рассмотрим в данном разделе, позволяет быстро вставить в любое место документа определенный заранее текст. Такую возможность удобно использовать, например, для вставки в документ должностей и фамилий директора и главного бухгалтера предприятия (либо других сотрудников). Подобная задача реализуется при использовании макроса, код которого приведен в листинге 3.67.

Листинг 3.67. Вставка текста в документ

Sub InsertCustomText()

' Заполнение текущей ячейки

ActiveCell = «Генеральный директор»

Selection.Font.Bold = True

' Фамилия на три столбца правее должности

Cells(ActiveCell.Row, ActiveCell.Column + 3).Select

ActiveCell.FormulaR1C1 = «А. Б. Рублев»

Selection.Font.Bold = True

' Ячейка с «Главный бухгалтер» на три столбца левее _

и на три строки ниже ячейки с фамилией директора

Cells(ActiveCell.Row + 3, ActiveCell.Column – 3).Select

ActiveCell = «Главный бухгалтер»

Selection.Font.Bold = True

' Фамилия на три столбца правее должности

Cells(ActiveCell.Row, ActiveCell.Column + 3).Select

ActiveCell = «Т. С. Копейкин»

Selection.Font.Bold = True

End Sub

После выполнения данного макроса соответствующий текст будет вставлен в том месте документа, где расположен курсор (рис. 3.21).

Рис. 3.21. Вставка текста в документ

Очевидно, что с помощью приведенного выше макроса можно вставлять в текущий документ любой произвольный текст.