Статьи из блога

Статьи из блога

Обрамляем выделенный текст скобками

Рубрика: Макросы
Метки: |
Пятница, 26 сентября 2008 г.
Просмотров: 5019
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

При редактировании документа иногда возникает необходимость заключить какой-то текст или просто одно слово в круглые скобки. Это можно сделать вручную, а можно воспользоваться следующим макросом. Выделите двойным щелчком мыши нужное слово или же выделите фрагмент текста и примените макрос:

Sub InsParens()
'обрамляем выделенный текст круглыми скобками
'исключаем лишний пробел в конце выделения
'исключаем знак абзаца в конце выделения
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 "("
   .InsertAfter ")"
End With
End Sub

 

Вместо круглых скобок можно вставить квадратные. Для этого замените строки 

.InsertBefore "("

и

.InsertAfter ")"

на строки 

.InsertBefore "["

и 

.InsertAfter "]"

 

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

]]>twitter.com facebook Вконтакте Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>

Это может пригодиться:

Комментариев: 12

  1. Александр Витер
    26.09.2008 в 18:07 | #1

    Точно так же можно обрамлять текст кавычками « ». Использую уже давно. Поставил это на клавиши:

    Кавычки — Ctrl+2,2

    Круглые скобки — Ctrl+9,9

    Квадратные скобки — Ctrl+[

  2. Дмитрий
    22.12.2008 в 19:39 | #2

    Александр,

    Точно так же можно обрамлять текст кавычками « ». Использую уже давно. Поставил это на клавиши:
    Кавычки — Ctrl+2,2
    Круглые скобки — Ctrl+9,9
    Квадратные скобки — Ctrl+[

    А как вставить кавычки « »

    А то что-то не получается сходу сделать

    Не поделитесь своим макро ?

    Спасибо, Дмитрий.

  3. Николай
    22.12.2008 в 20:10 | #3

    Вот макрос:

    Sub InsParQuotes()
'обрамляем выделенный текст парными кавычками (елочки)
'исключаем лишний пробел в конце выделения
'исключаем знак абзаца в конце выделения
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 Chr(171)
   .InsertAfter Chr(187)
End With
End Sub

  4. Дмитрий
    22.12.2008 в 22:21 | #4

    Анатолий, Спасибо, заработало.

    А то я, как умный, поставил ChrB - чтоб строку вернуло.

    Но с ней не заработало.

    А просто Chr не догадался поставить

  5. Александр Витер
    23.12.2008 в 06:45 | #5

    Любой символ, который вам нужен, находится в таблице символов, которая есть в каждой операционной системе Windows. Находится в меню «Пуск» — «Стандартные» — «Служебные» — Таблица символов. В этом случае можно вставлять символы не только в Word, но и во все другие программы. А вы думали, как я вставляю их в сообщения?

    Макрос мой абсолютно идентичен макросу Антона, только вместо Chr я использую конкретные символы.

  6. Дмитрий
    23.12.2008 в 18:48 | #6

    Александр, спасибо за полезнейший комментарий

    Задача была решена - спасибо Анатолию

    Можно символы и в Word посмотреть, чтобы так далеко не заглядывать.

    Любопытно было бы узнать как Вы вставляете кавычки "«" "»" в текст VBA. У меня ну никакх их не удается вставить в код макро - заменяются упорно на елочку...

    Дмитрий.

    Удачи, Дмитрий

  7. Николай
    23.12.2008 в 19:26 | #7

    Задача была решена - спасибо Анатолию

    Любопытно, а кто это - Анатолий? smile

  8. Александр Витер
    23.12.2008 в 19:40 | #8

    …Любопытно было бы узнать как Вы вставляете кавычки "«" "»" в текст VBA. У меня ну никакх их не удается вставить в код макро - заменяются упорно на елочку...
    Дмитрий.
    Удачи, Дмитрий

    Не понял вопрос. Вставляю через таблицу символов, вернее с клавиатуры Alt+0171 — это открывающая кавычка, а Alt+0187 — закрывающая кавычка. Цифры набирать на цифровой клавиатуре Numpad

  9. Александр Витер
    23.12.2008 в 19:41 | #9

    А есть еще программка Specchar, довольно удобная и АБСОЛЮТНО БЕСПЛАТНАЯ

  10. Дмитрий
    24.12.2008 в 01:47 | #10

    Задача была решена - спасибо Анатолию

    Любопытно, а кто это - Анатолий? smile

    Антон, прошу прощения grin

    Конечно спасибо Вам

    Звонил просто перед письмом знакомый, ну и напечатал его имя.

    С Уважением, Дмитрий

    P.S. Кстати, нельзя ли как-то в Wordpress настроить фишку. Если код забываешь, то он возвращает к письму.

    А то приходится заново вбивать текст или может просто, чтоб пароль запрашивался при посылке ?

  11. Александр
    22.04.2011 в 14:14 | #11

    Проблема в макросе:

    Если выделять обзац (только если выделение делать справа на лево), а не слово в дексте, то в итоге работы макроса возникает переход строки!

    Если выделение делать слева на право, то проблемы нет.

  12. Аноним
    26.12.2011 в 07:41 | #12

    Нужна помошь.

    Есть таблица 150 тысяч позиций.Вот такого вида

    аааа

    вввв

    ыыыы

    фффф

    Как добавить к каждой позиции ковычки " и точку с запятой в конец ; что выглядело вот так...

    "аааа";

    "вввв";

    "ыыыы";

    "фффф";

Оставьте комментарий!

(обязательно)

контакты

 
^ Наверх