FrontPage 2003. Замена выделенного текста в коде/редакторе

Программирование на Visual Basic for Applications
Diamock
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 388
Зарегистрирован: 26.10.2009 (Пн) 4:19
Откуда: Кемерово

FrontPage 2003. Замена выделенного текста в коде/редакторе

Сообщение Diamock » 11.12.2021 (Сб) 18:36

Здравствуйте уважаемые!
Давно и с удовольствием использую MS FrontPage 2003.
К сожалению в FP отсутствует возможность записи макросов, а документация — оставляет желать лучшего... Хотя, для ищущего путь откроется :D

Возникла у меня задача: заменить выделенный текст на что-либо. В итоге появилась процедура.
Код: Выделить всё
'########################################################################################
'# Процедура ReplaceSelectedText — "ЗАМЕНА ВЫДЕЛЕННОГО ТЕКСТА"
'# Параметры процедуры:
'#                      ReplacementText — То, на что будет заменён выделенный текст.
'#                                        Обязательный параметр.
'#                      InsertBefore    — То, что будет вставлено перед ReplacementText.
'#                                        Опциональный параметр.
'#                                        По умолчанию — пустая строка.
'#                      InsertAfter     — То, что будет вставлено после ReplacementText.
'#                                        Опциональный параметр.
'#                                        По умолчанию — пустая строка.
'########################################################################################
Public Sub ReplaceSelectedText( _
                                    ReplacementText As String, _
                                    Optional InsertBefore As String = "", _
                                    Optional InsertAfter As String = "" _
)

    '# Объявляем переменную для определения диапазона выделенного текста в коде или редакторе HTML-документа.
    Dim mySelectedText As IHTMLTxtRange
    '# Присваиваем переменной выделенный диапазон текста.
    Set mySelectedText = ActiveDocument.Selection.createRange
    '# Меняем выделенный диапазон текста на то, что нам нужно...
    mySelectedText (InsertBefore & ReplacementText & InsertAfter)
End Sub
In der Beschrankung zeigt sich erst der Meister
Графоманю...

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

    TopList  
cron