Давно и с удовольствием использую MS FrontPage 2003.
К сожалению в FP отсутствует возможность записи макросов, а документация — оставляет желать лучшего... Хотя, для ищущего путь откроется
Возникла у меня задача: заменить выделенный текст на что-либо. В итоге появилась процедура.
- Код: Выделить всё
'########################################################################################
'# Процедура 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