VBNet - Форум - Помогите довести до ума программу.

Вопрос: Помогите довести до ума программу. Добавлено: 06.01.10 20:10

Автор вопроса: Дмитрий

Здравствуйте!
В общем, у меня такая проблема. Нужно написать макрос для Word по поиску и замене в документе всех запятых на 50-й размер шрифта. Хотел поступить следующим образом. Записать макрорекордером макрос по поиску и замене запятых на 50-й размер шрифта. Проблема в том, что в макрос не записываются какие-либо манипуляции во вновь открывшемся диалоговом окне, кроме нажатия на кнопку Ок. Смог записать только макрос по поиску и замене одной запятой. Далее решил встроить блок операторов по поиску и замене одной запятой в цикл с постусловием. Цикл выполняется до тех пор, пока не достигнут конец документа. В результате макрос зацикливается. Думаю, что неверно указал условие выполнения цикла. Привожу код макроса.

Sub Макрос4()
    Selection.HomeKey Unit:=wdStory
Do
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ","
        .Replacement.Text = ","
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Font.Size = 50
Loop Until ActiveDocument = EndDocument
End Sub

Помогите пожалуйста разобраться!
Ответить

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

Номер ответа: 1 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #1	Добавлено: 07.01.10 15:38
	Sub Ìàêðîñ4() Selection.HomeKey Unit:=wdStory With Selection.Find .Text = "," End With Selection.Find.Execute While Selection.Find.Found Selection.Font.Size = 50 Selection.Find.Execute Wend End Sub Ответить

Номер ответа: 2 Автор ответа: Дмитрий Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 11.01.10 08:27
	Спасибо огромное, Skywalker! Всё отлично работает! Ответить

Страница: 1 |