Страница: 1 |
|
Вопрос: макрос заменяющий слова
|
Добавлено: 13.12.09 16:11
|
|
Автор вопроса: Виктор
|
Создать макрос, который в документе слово «замена», набранное курсивом, заменяет словом «отмена». Назначьте макросу кнопку на панели инструментов
Ответить
|
Номер ответа: 1 Автор ответа: AxeL
ICQ: 264730390
Вопросов: 2 Ответов: 106
|
Профиль | | #1
|
Добавлено: 18.12.09 08:14
|
Такой макрос пишется минут за 5 при полном незнании VBA, используя только макрорекордер и RTFM.
- Sub Replace_To_Cancel()
- With ActiveDocument.Content.Find
- .ClearFormatting
- .Font.Italic = True
- With .Replacement
- .ClearFormatting
- .Font.Italic = False
- End With
- .Execute FindText:="замена", ReplaceWith:="отмена", Format:=True, _
- MatchCase:=True, Replace:=wdReplaceAll
- End With
- End Sub
Назначить кнопку макросу:
1. Сервис-Настройка-Панели инструментов
2. Создать панель(в текущем документе), назвать "Макросы"
3. Вкладка Команды-> Категории: "Макросы" -> Команды: покажутся все макросы...
4. Перетащить нужный макрос на созданную панель
5. НЕ закрывая окно "Настройка", правой кнопкой мыши нажать на названии макроса...
а. Поменять имя
б. Назначить иконку
в. Установить, что будет отображаться(текст, иконка, все вместе)
6. Закрыть окно "Настройка"
7. Сохранить доумент.
Ответить
|
Страница: 1 |
Поиск по форуму