Страницы: 1
RSS
Word: Замена букв макросом в Выделенном фрагменте текста
 
Доброе утро.
Нужен макрос, который заменил бы 1 на 2 в выделенном фрагменте текста.
Макрорекордер записал:
Код
Sub Макрос1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "1"
        .Replacement.Text = "2"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Но этот код меняет НЕ ТОЛЬКО в выделенном тексте, но и дальше.

Подскажите пожалуйста, как исправить код?
 
Доброе время суток.
Бахтиёр, а почему бы не сделать код как в справке предложено?
Код
Public Sub test()
    Dim myRange As Range
    Set myRange = Selection.Range
    myRange.Find.Execute FindText:="1", ReplaceWith:="2", Replace:=wdReplaceAll
End Sub

У меня отработало ;)
Успехов.
 
Андрей, спасибо
 
Не срабатывает, если нужен поиск с подстановочными знаками.
Подскажите, что исправить в коде?
 
Цитата
Бахтиёр написал:
Но этот код меняет НЕ ТОЛЬКО в выделенном тексте, но и дальше.
Код
.Wrap = wdFindStop
 
aequit, напишите пожалуйста как целиком будет выглядеть код
Страницы: 1
Наверх