polk90 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору   Sub De() ' ' De Макрос ' '     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "Д"         .Replacement.Text = ChrW(196)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "д"         .Replacement.Text = ChrW(228)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "Ь"         .Replacement.Text = ChrW(220)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "ь"         .Replacement.Text = ChrW(252)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "Ц"         .Replacement.Text = ChrW(214)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "ц"         .Replacement.Text = ChrW(246)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll           Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "Я"         .Replacement.Text = ChrW(223)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = True     End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub   Всего записей: 4656 | Зарегистр. 19-12-2002 | Отправлено: 23:18 11-04-2010

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Word (Часть 2)

Maz (14-11-2018 13:33): Microsoft Word (Часть 3)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование