Многие разные документы предъявляют много разных требований к их построению. Например, у вас может быть документ, в котором необходимо заключить определенные повторяющиеся слова в скобки, чтобы они выделялись. (Некоторые технические руководства используют это соглашение для обозначения нажатий клавиш, например, клавиша [Enter].)

Если у вас есть такая необходимость, вы можете просто ввести свой текст, а затем вернуться и позже добавить скобки. Здесь может пригодиться макрос, который добавит за вас. Например, вы можете выбрать слово (дважды щелкнуть по нему), а затем запустить макрос, который добавит скобки. Следующий макрос легко выполнит эту задачу:

Sub AddBrackets()

Dim iCount As Integer  iCount = 1  While Right(Selection.Text, 1) = " " Or _  Right(Selection.Text, 1) = Chr(13)

Selection.MoveLeft Unit:=wdCharacter, Count:=1, _   Extend:=wdExtend  iCount = iCount + 1  Wend

Selection.InsertAfter "]"

Selection.InsertBefore "["

Selection.MoveRight Unit:=wdCharacter, Count:=iCount End Sub

Макрос компенсирует любые пробелы или знаки абзаца в конце вашего выделения. Когда вы закончите его запуск, точка вставки останется в конце исходного выделения. Вы можете назначить свой макрос сочетанию клавиш или настраиваемому инструменту панели инструментов.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1520) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Automatically_Inserting_Brackets [Автоматическая вставка скобок].