Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 109839
17.11.2007, 14:07
0.00 руб.
0 2 2
Компьютеры Программное обеспечение
Здраствуйте господа эксперты.
омогите составить макрос позволяющий заменить во всём документе написание слов (вы, вас, вам, вами) на те же слова, только с заглавной буквы.
Сам я давно в офисе не работаю, а надо в техникуме контрольную сдавать.
и если можно несколько ссылок по теме.
С ув. Костя.

Обсуждение

Неизвестный
17.11.2007, 20:39
общий
это ответ
Здравствуйте, Костя Симанович!

Можно написать макрос. Но в этом случае быстрее получиться воспользоваться функцией "Найти и заменить" (Меню Правка - Заменить).
Неизвестный
18.11.2007, 13:57
общий
это ответ
Здравствуйте, Костя Симанович!
Можно написать макрос, который последовательно будет заменять вхождения указанных вами слов, используя цикл (примерный код в приложении), но к сожалению из-за своего малого опыта и знаний в VBA я не смог заставить макрос менять регистр только в указанных словах - меняются все буквы на заглавные во всех найденных фрагментах текста. Может кто подскажет, как это сделать?

Приложение:
код (как пример, и очень сырой):-------------------------------------------------Sub firstLetter()Dim aLett(3) As StringaLett(0) = "вы"aLett(1) = "вас"aLett(2) = "вам"aLett(3) = "вами"For ms = 0 To 3With Selection.Find.ClearFormatting.Replacement.ClearFormatting.Text = aLett(ms).Replacement.Text = StrConv(aLett(ms), vbProperCase).Forward = True.MatchCase = True.Wrap = wdFindContinue.Format = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllNext msEnd Sub-------------------------------------------------
Форма ответа