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

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

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

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 "]"

 

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

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

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

Рубрика: Макросы
Метки: |
Просмотров: 36469
Подписаться на комментарии по RSS
Версия для печати

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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

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

  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 тысяч позиций.Вот такого вида

    аааа

    вввв

    ыыыы

    фффф

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

    "аааа";

    "вввв";

    "ыыыы";

    "фффф";

  13. Дмитрий
    28.02.2013 в 13:21 | #13

    Поддерживаю вопрос сверху.

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

    Например:

    Японский сад господина Хотта в Мукояма

    заменить на

    "Японский сад господина Хотта в Мукояма".

    Причем в каждой ячейке столбца таблицы.

  14. Игорь
    30.10.2017 в 07:58 | #14

    Добрый день, а не подскажите как можно организовать подобный макрос для заключения выделенного текста в ячейке (где много текста), в нужные символы, в Excel?

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

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

контакты

 
^ Наверх