Статьи из блога
Обрамляем выделенный текст скобками
При редактировании документа иногда возникает необходимость заключить какой-то текст или просто одно слово в круглые скобки. Это можно сделать вручную, а можно воспользоваться следующим макросом. Выделите двойным щелчком мыши нужное слово или же выделите фрагмент текста и примените макрос:
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 "]"
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Рубрика: Макросы
Метки: лишние пробелы | макросы
Просмотров: 36559
Подписаться на комментарии по RSS
Версия для печати
Метки: лишние пробелы | макросы
Просмотров: 36559
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Комментариев: 14
Точно так же можно обрамлять текст кавычками « ». Использую уже давно. Поставил это на клавиши:
Кавычки — Ctrl+2,2
Круглые скобки — Ctrl+9,9
Квадратные скобки — Ctrl+[
Александр,
А как вставить кавычки « »
А то что-то не получается сходу сделать
Не поделитесь своим макро ?
Спасибо, Дмитрий.
Вот макрос:
Анатолий, Спасибо, заработало.
А то я, как умный, поставил ChrB - чтоб строку вернуло.
Но с ней не заработало.
А просто Chr не догадался поставить
Любой символ, который вам нужен, находится в таблице символов, которая есть в каждой операционной системе Windows. Находится в меню «Пуск» — «Стандартные» — «Служебные» — Таблица символов. В этом случае можно вставлять символы не только в Word, но и во все другие программы. А вы думали, как я вставляю их в сообщения?
Макрос мой абсолютно идентичен макросу Антона, только вместо Chr я использую конкретные символы.
Александр, спасибо за полезнейший комментарий
Задача была решена - спасибо Анатолию
Можно символы и в Word посмотреть, чтобы так далеко не заглядывать.
Любопытно было бы узнать как Вы вставляете кавычки "«" "»" в текст VBA. У меня ну никакх их не удается вставить в код макро - заменяются упорно на елочку...
Дмитрий.
Удачи, Дмитрий
Любопытно, а кто это - Анатолий?
Не понял вопрос. Вставляю через таблицу символов, вернее с клавиатуры Alt+0171 — это открывающая кавычка, а Alt+0187 — закрывающая кавычка. Цифры набирать на цифровой клавиатуре Numpad
А есть еще программка Specchar, довольно удобная и АБСОЛЮТНО БЕСПЛАТНАЯ
Антон, прошу прощения
Конечно спасибо Вам
Звонил просто перед письмом знакомый, ну и напечатал его имя.
С Уважением, Дмитрий
P.S. Кстати, нельзя ли как-то в Wordpress настроить фишку. Если код забываешь, то он возвращает к письму.
А то приходится заново вбивать текст или может просто, чтоб пароль запрашивался при посылке ?
Проблема в макросе:
Если выделять обзац (только если выделение делать справа на лево), а не слово в дексте, то в итоге работы макроса возникает переход строки!
Если выделение делать слева на право, то проблемы нет.
Нужна помошь.
Есть таблица 150 тысяч позиций.Вот такого вида
аааа
вввв
ыыыы
фффф
Как добавить к каждой позиции ковычки " и точку с запятой в конец ; что выглядело вот так...
"аааа";
"вввв";
"ыыыы";
"фффф";
Поддерживаю вопрос сверху.
Как в тексте каждой ячейки столбца поставить кавычки "" в начале и конце текста и точку в конце?
Например:
Японский сад господина Хотта в Мукояма
заменить на
"Японский сад господина Хотта в Мукояма".
Причем в каждой ячейке столбца таблицы.
Добрый день, а не подскажите как можно организовать подобный макрос для заключения выделенного текста в ячейке (где много текста), в нужные символы, в Excel?