Макрос вставка текста вначале и конце выделенного фрагмента с присвоением стиля.
Здравствуйте Нужен макрос для вставки текста перед выделенным фрагментом и после него Чтобы тексту, который вставляется присваивался один стиль, а выделенный текст был другого стиля
Например, есть предложение: Мелочь, но было бы приятно после применения макроса должно выйти так: Мелочь, но [t]было[/t] бы приятно.
было — выделенный фрагмент, присвоен стиль "Транскрипция" [t] — вставка в начале выделенного фрагмента, присвоен стиль "КОД" [/t] — вставка в начале выделенного фрагмента, присвоен стиль "КОД"
Имею такой макрос, но его надо доработать
[vba]
Код
Sub eTranscription() ' ' Макрос Транскрипция [t], [/t] ' 'обрамляем выделенный текст тегом [t] 'исключаем лишний пробел в конце выделения 'исключаем знак абзаца в конце выделения If Right(Selection.Text, 1) = Chr(32) Or _ Right(Selection.Text, 1) = Chr(13) Then Selection.MoveLeft wdCharacter, 1, wdExtend End If With Selection .InsertBefore "[t]" .InsertAfter "[/t]" End With End Sub
[/vba]
Спасибо за ответ, с уважением
P.S. Word 2007+
Макрос вставка текста вначале и конце выделенного фрагмента с присвоением стиля.
Здравствуйте Нужен макрос для вставки текста перед выделенным фрагментом и после него Чтобы тексту, который вставляется присваивался один стиль, а выделенный текст был другого стиля
Например, есть предложение: Мелочь, но было бы приятно после применения макроса должно выйти так: Мелочь, но [t]было[/t] бы приятно.
было — выделенный фрагмент, присвоен стиль "Транскрипция" [t] — вставка в начале выделенного фрагмента, присвоен стиль "КОД" [/t] — вставка в начале выделенного фрагмента, присвоен стиль "КОД"
Имею такой макрос, но его надо доработать
[vba]
Код
Sub eTranscription() ' ' Макрос Транскрипция [t], [/t] ' 'обрамляем выделенный текст тегом [t] 'исключаем лишний пробел в конце выделения 'исключаем знак абзаца в конце выделения If Right(Selection.Text, 1) = Chr(32) Or _ Right(Selection.Text, 1) = Chr(13) Then Selection.MoveLeft wdCharacter, 1, wdExtend End If With Selection .InsertBefore "[t]" .InsertAfter "[/t]" End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
