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

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

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

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

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

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

 

 

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

 

 

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

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования 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

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

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

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

^ Наверх