Как Написать Макрос Копировать Вставить

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

  1. Hacker

    Hacker Гость

    Как написать макрос чтобы он саделал вот так:

    tema1
    text1 text1 text1 text1 text1 text1 text1

    tema2
    'tema2', text2 text2 text2 text2 text2 text2 text2

    tema3
    'tema3', text3 text3 text3 text3 text3 text3 text3

    INPUT VALUE ('tema1', text1 text1 text1 text1 text1 text1 text1)
    INPUT VALUE ('tema2', text2 text2 text2 text2 text2 text2 text2)
    INPUT VALUE ('tema3', text3 text3 text3 text3 text3 text3 text3)


    Вот я сам написал что то вроде этого но не могу справится со вторым


    Sub ChangeColorWithReplace()

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

    With Selection.Find
    .Text = ""
    .Replacement.Text = "INPUT VALUE ('^&', text1 text1 text1 text1 text1 text1 text1)"
    .Forward = True
    .Wrap = wdFindContinue

    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub
     
Загрузка...

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