Вставка текста с помощью кнопки

Вячеслав спрашивает:

Для начала необходимо создать закладки в тех местах документа, в которые вы планируете вставлять наименование кнопок.

Предположим, в начале документа у вас есть или будет кнопка, а двумя строками ниже вы хотите вставить ее название:

Чтобы добавить кнопку, следует открыть панель инструментов Элементы управления и выбрать элемент Кнопка:

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

Далее, дважды щелкаете на кнопке - откроется редактор кода. Вставляете в код между операторами Private Sub CommandButton1_Click() и End Sub следующий оператор:

ActiveDocument.Bookmarks("button").Range.InsertAfter CommandButton1.Caption

Должно получиться примерно так:

Но, что если вам нужно вставить не наименование кнопки, а некий заранее определенный текст? В этом случае вам нужно слегка изменить вышеприведенный код. Например, добавить такой код:

Dim sStr As String
sStr = "Вставка заранее определенного текста с помощью кнопки"
ActiveDocument.Bookmarks("button").Range.InsertAfter sStr

Вместо моего текста вставьте свой. В итоге должно получиться примерно так:

Закрываете редактор кода (обязательно!), сохраняете документ и испытываете работу кнопки.

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

Измените название кнопки на свое в поле Caption и закройте окно свойств.