Создание макроса по алгоритму

Запишите макрос, который бы менял один пробел на последовательность «два пробела *» и примените его к данному тексту. (Алгоритм макроса следующий: Включите запись макроса, далее вызвать окно замены комбинацией Ctrl+ H, осуществите замену, нажмите остановку записи макроса. Во время записи макроса создайте свою панель инструментов и после поместите на нее кнопку, запускающую созданный макрос. Панель инструментов назовите «Перемена», кнопку назовите «*»

2.Пример №1. "Чистящий" макрос

Чаще всего макрокоманды используются для удаления лишних символов, пробелов или символов абзаца оставленных другой программой, или, например, для "очистки" документов, полученных по сети Internet в формате Web. И особенно часто подобными макросами приходится пользоваться людям, которые привыкли работать на печатной машинке и печатают по два символа пробела после каждого предложения. Сегодня, когда большинство документов печатается на лазерных принтерах высококачественными шрифтами, принят новый стандарт печати, согласно которому между предложениями допускается только один пробел, как до этого было в наборных устройствах. Макрос, который вы запишете с помощью диалогового окна Найти и заменить, призван решить две проблемы одновременно.

* Просмотреть документ в поисках двух последовательных пробелов и заменить их одним.

*Вырезать лишние символы абзаца.

Большинство наиболее полезных макросов, которые вы в дальнейшем создадите, будут также использовать диалоговое окно Найти и заменить.

Конечно же, не нужно удалять абсолютно все символы абзаца в документе. Многие из них, несомненно, вам еще пригодятся. Фактически в некоторых документах есть места, где вы бы хотели оставить два последовательных символа абзаца. (Например, если в документе не используются стили с дополнительными интервалами перед и после абзаца, тогда второй символ абзаца зачастую применяется, чтобы разделить последовательные абзацы дополнительным пространством.) Поэтому макрос, который вы запишете, должен отыскать три символа абзаца и заменить их на два. Чтобы записать такой макрос, выполните следующие шаги.

1. Дважды щелкните на кнопке ЗАП в строке состояния главного окна Word. Появится диалоговое окно Запись макроса.

2. В поле Имя макроса введите имя макрокоманды. (Для данного примера назовите макрос StripSpacePara и пропустите пункты, относящиеся к назначению макрокоманде своей кнопки на панели инструментов или комбинации клавиш.)

3. Щелкните на кнопке ОК.

4. Нажмите комбинацию клавиш <Ctrl+H>, появится диалоговое окно Найти и заменить с открытой вкладкой Заменить.

5. В поле Найти введите следующий текст: ^р^р^р (эта инструкция укажет Word, что нужно искать три последовательные символа абзаца).

6. В поле Заменить на введите ^р^р, чтобы найденная последовательность была заменена двумя символами абзаца.

7. Щелкните на кнопке Заменить все. Word просмотрит весь документ и сообщит о количестве произведенных замен.

8. Щелкните на кнопке ОК.

9. В поле Найти введите два пробела.

10. В поле Заменить на введите один пробел.

11. Теперь снова щелкните на кнопке Заменить все.

12. Щелкните на ОК, затем на кнопке Отмена.

13. Чтобы остановить запись макроса, дважды щелкните на кнопке ЗАП, расположенной в строке состояния. Теперь взгляните на записанный макрос.

1. Выполните команду Сервис, Макрос, Макросы. Откроется диалоговое окно Макрос.

2. В списке Имя выберите записанный макрос (StripSpacePara).

3. Щелкните на кнопке Изменить. Откроется окно Редактора Visual Basic (рис. 3.1).

Как видите, окно Программа содержит довольно большое количество кода. Фактически кода так много, что необходимо как-то уменьшить его количество.