1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Написать Макрос 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
    Спасибо! Работает ураааааааааа :)
     
Загрузка...

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