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

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

Shakal07

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

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

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

Сообщений: 60

Репутация: 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

Ответить

Gustav

Дата: Суббота, 14.06.2025, 19:57 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2843

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата Shakal07, 12.06.2025 в 03:16, в сообщении № 1 (

)

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

Вот такой макрос у меня получился для решения Вашей задачи:
[vba]

Код

Option Explicit

Sub eIdLangIT()

    Dim tagBefore As String, tagAfter As String, str As String, rng As Range

    tagBefore = "[lang id=""1040""]"
    tagAfter = "[/lang]"

    str = Trim(Selection.Text)
    If Right(str, 2) = vbCrLf Then
        str = Left(str, Len(str) - 2)
    ElseIf Right(str, 1) = Chr(32) Or Right(str, 1) = Chr(13) Then
        str = Left(str, Len(str) - 1)
    End If

    Selection.Text = tagBefore & str & tagAfter
    'сначала красим всю строку стилем B (должен быть стилем знака, не абзаца!)
    Selection.Style = ActiveDocument.Styles("Style_B")

    Set rng = Selection.Range
    rng.SetRange rng.Start + Len(tagBefore), rng.End - Len(tagAfter)
    'потом красим исходную строку без тегов стилем A (должен быть стилем знака, не абзаца!)
    rng.Style = ActiveDocument.Styles("Style_A")

End Sub

[/vba]

Цитата Shakal07, 12.06.2025 в 03:16, в сообщении № 1 (

)

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

В окне настройки отображаются (и, соответственно, запускаются) только макросы без параметров (т.е. без переменных в скобках). Сравните:
у Вас
[vba]

Код

Sub eIdLangIT(control As IRibbonControl)

[/vba]
и у меня
[vba]

Код

Sub eIdLangIT()

[/vba]

Цитата Shakal07, 12.06.2025 в 03:16, в сообщении № 1 (