Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: макрос заменяющий слова Добавлено: 13.12.09 16:11  

Автор вопроса:  Виктор
Создать макрос, который в документе слово «замена», набранное курсивом, заменяет словом «отмена». Назначьте макросу кнопку на панели инструментов

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #1 Добавлено: 18.12.09 08:14
Такой макрос пишется минут за 5 при полном незнании VBA, используя только макрорекордер и RTFM.
  1. Sub Replace_To_Cancel()
  2. With ActiveDocument.Content.Find
  3.     .ClearFormatting
  4.     .Font.Italic = True
  5.     With .Replacement
  6.         .ClearFormatting
  7.         .Font.Italic = False
  8.     End With
  9.     .Execute FindText:="замена", ReplaceWith:="отмена", Format:=True, _
  10.        MatchCase:=True, Replace:=wdReplaceAll
  11. End With
  12. End Sub

Назначить кнопку макросу:
1. Сервис-Настройка-Панели инструментов
2. Создать панель(в текущем документе), назвать "Макросы"
3. Вкладка Команды-> Категории: "Макросы" -> Команды: покажутся все макросы...
4. Перетащить нужный макрос на созданную панель
5. НЕ закрывая окно "Настройка", правой кнопкой мыши нажать на названии макроса...
а. Поменять имя
б. Назначить иконку
в. Установить, что будет отображаться(текст, иконка, все вместе)
6. Закрыть окно "Настройка"
7. Сохранить доумент.

Ответить

Номер ответа: 2
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #2
Добавлено: 22.12.09 06:57
AxeL, не хочу придираться, но что за танцы с бубном вокруг .ClearFormatting и .Font.Italic? На мой взгляд лишнее.

Ответить

Номер ответа: 3
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #3 Добавлено: 22.12.09 07:08
mc-black
Для наглядности убирается курсив... да и задача поставлена не четко...
...и писал по хэлпу (с Word'ом не приходилось работать, только с Excel'ем)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам