Имеется несколько макрос подобного рода. Прошу помощи в его доработке. [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.
И как такому макросу назначить сочетания клавиш, если он не отображается в окне "Настройка клавиатуры"
Спасибо за помощь.
Здравствуйте форумчене
Имеется несколько макрос подобного рода. Прошу помощи в его доработке. [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.
И как такому макросу назначить сочетания клавиш, если он не отображается в окне "Настройка клавиатуры"
Необходимо доработать следующим образом выделенный текст надо отформатировать стилем A. А текст, который вставляется в начале и конце выделения надо отформатировать стилем B.
Вот такой макрос у меня получился для решения Вашей задачи: [vba]
Код
Option Explicit
Sub eIdLangIT()
Dim tagBefore As String, tagAfter As String, str As String, rng As Range
Необходимо доработать следующим образом выделенный текст надо отформатировать стилем A. А текст, который вставляется в начале и конце выделения надо отформатировать стилем B.
Вот такой макрос у меня получился для решения Вашей задачи: [vba]
Код
Option Explicit
Sub eIdLangIT()
Dim tagBefore As String, tagAfter As String, str As String, rng As Range