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

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

  1. Hacker

    Hacker Гость

    Репутация:
    0
    У меня вот такая проблема. Мне нужно чтобы макрос искал текст по цвету и копировал его и вставил 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 *

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

    Hacker Гость

    Репутация:
    0
    Спасибо! Работает ураааааааааа :)
     
Загрузка...
Похожие Темы - Написать Макрос Word
  1. 888Senya
    Ответов:
    1
    Просмотров:
    1.756
  2. Elena07
    Ответов:
    0
    Просмотров:
    309
  3. donny555
    Ответов:
    1
    Просмотров:
    270
  4. vsetkin
    Ответов:
    0
    Просмотров:
    224
  5. Hehabr
    Ответов:
    0
    Просмотров:
    460

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