Многие разные документы предъявляют много разных требований к их построению. Например, у вас может быть документ, в котором необходимо заключить определенные повторяющиеся слова в скобки, чтобы они выделялись. (В некоторых технических руководствах это соглашение используется для обозначения нажатий клавиш, например, для клавиши [Enter].)
Если у вас есть такая необходимость, вы можете просто ввести свой текст, а затем вернитесь назад, а затем добавьте скобки. Здесь может пригодиться макрос, который сделает за вас добавление. Например, вы можете выбрать слово (дважды щелкнуть по нему), а затем запустить макрос, который добавит скобки. Следующий макрос легко выполнит эту задачу:
Sub AddBrackets () Dim iCount As Integer iCount = 1 While Right (Selection.Text, 1) = "" Или _ 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: = iCountEnd Sub
Макрос компенсирует любые пробелы или знаки абзаца в конце вашего выделения. Когда вы закончите его запуск, точка вставки останется в конце исходного выделения. Вы можете назначить свой макрос сочетанию клавиш или настраиваемому инструменту панели инструментов.