Статьи из блога

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

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

Как создать кнопку, при нажатии на которую её название добавлялось бы в текстовую строку? Кнопок на странице будет много и с разными названиями.

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

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

 

 

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

 

 

После этого в том месте, где должен будет находиться ваш текст, вы добавляете свою закладку, назвав ее, например, 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 и закройте окно свойств.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

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

  1. Глеб
    17.03.2010 в 22:13 | #1

    Добрый день! А как быть если надо установить возле кнопки сайта, её html код? Я буду с нетерпением ждать ответа... Заранее спасибо!

  2. 18.03.2010 в 08:01 | #2

    При чем здесь HTML-код? Это VBA.

    А код кнопки в HTML выглядит так:

    input type="submit" name="btn" value="Отправить"

  3. Валерий
    21.07.2012 в 14:15 | #3

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

Оставьте комментарий!

(обязательно)

^ Наверх