Вставка и форматирование текста макросом

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Вставка и форматирование текста макросом - Мир MS Excel

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

Вставка и форматирование текста макросом

Shakal07

Дата: Четверг, 12.06.2025, 03:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 57

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

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

Excel 2k3;2k7;2k10;2k13;2k19

Здравствуйте форумчене

Имеется несколько макрос подобного рода.
Прошу помощи в его доработке.
[vba]

Код

Sub eIdLangIT(control As IRibbonControl)
'
' Макрос заключить віделеный текст тагеми [lang id="1040"], [/lang]
'
' Обрамляем выделенный фрагмент текста
' Исключаем лишний пробел в конце выделения
' Исключаем знак абзаца в конце выделения
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 "[lang id=" & Chr(34) & "1040" & Chr(34) & "]"
   .InsertAfter "[/lang]"
End With
End Sub

[/vba]

Необходимо доработать следующим образом выделенный текст надо отформатировать стилем A.
А текст, который вставляется в начале и конце выделения надо отформатировать стилем B.

И как такому макросу назначить сочетания клавиш, если он не отображается в окне "Настройка клавиатуры"

Спасибо за помощь.

Сообщение отредактировал Shakal07 - Четверг, 12.06.2025, 03:53

Ответить

Вставка и форматирование текста макросом

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