Код VBA для создания закладки

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Код VBA для создания закладки (Создание закладки с введенным в окно именем)

Код VBA для создания закладки

Otter

Дата: Понедельник, 03.09.2018, 09:51 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Здравствуйте
Вот макрос по созданию поля для закладки с названием Name.
Помогите доработать код, чтобы всплывало окно с запросом имени закладки и после ввода в него названия создавалась закладка с введенным именем.
[vba]

Код

Sub Field_Name()
'
' Создать закладку
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Name"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 03.09.2018, 10:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16745

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub Field_Name()
    With ActiveDocument.Bookmarks
        zn_ = InputBox("Введите имя закладки", "Ну пожалуйста!!!", "Name")
        If zn_ = "" Then zn_ = "Тьфу"
        .Add Range:=Selection.Range, Name:=zn_
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

[/vba]
Прикольно - "Name" на русской раскладке = "Тьфу"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Otter

Дата: Понедельник, 03.09.2018, 11:11 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Да то что надо, Спасибо.

Ответить

Код VBA для создания закладки (Создание закладки с введенным в окно именем)

Страница 1 из 1
1