Написать Макрос Word

Тема в разделе "Visual Basic", создана пользователем Hacker, 20 окт 2011.

  1. Hacker

    Hacker Гость

    У меня вот такая проблема. Мне нужно чтобы макрос искал текст по цвету и копировал его и вставил sub (текст) sub между этими словами. Я тут написал но не могу вставить найденного слова. Помjгите написать макрос пожалуйста!

    Sub ChangeColorWithReplace()

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFor matting

    With Selection.Find
    .Text = ""
    .Replacement.Text = "sub" тут должен текст "sub"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

    Результат

    sub текст1 sub
    sub текст2 sub
    sub текст3 sub
    sub текст4 sub

    Заранее спасибо!
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    мб, поможет ^& - искомый текст, т.е. попробуй
    .Replacement.Text = "sub ^& sub"
     
  3. Hacker

    Hacker Гость

    Спасибо! Работает ураааааааааа :)
     
Загрузка...

Поделиться этой страницей