[решено] Макрос замены текста в Word 2010 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Макрос замены текста в Word 2010 (http://forum.oszone.net/showthread.php?t=219708)

Макрос замены текста в Word 2010

Добрый день! Как заменить все слова "text" на текст из ячейки в Excel с помощью макроса

Так работает если заменяю одно слово:

Код:

Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

        With Selection.Find

            .Text = "text"

            .Replacement.Text = ""

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

    Selection.Find.Execute

    Selection.PasteAndFormat (wdFormatPlainText)

А если все слова, не работает,вставляет ячейки вместо текста

Код:

Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

        With Selection.Find

            .Text = "text"

            .Replacement.Text = "^c"

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.PasteAndFormat (wdFormatPlainText)

Цитата:

Цитата neo21

.Replacement.Text = "^c" »

А если ...Text = cells(1,1).Value ?

:)) Усложняю ,
Мне надо чтоб имя файла вставлялось в поиск автоматом из буфера обмена!

Наверное надо ввести пременную : типа буф обмена = переменной АА,
как то вот так тогда .Text = АА

вопрос как ето прописаить на VB ??
(Кто знает - Плисс)