Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Макрос замены текста в Word 2010

Ответить
Настройки темы
VBA - [решено] Макрос замены текста в Word 2010

Пользователь


Сообщения: 66
Благодарности: 7

Профиль | Отправить PM | Цитировать

Добрый день! Как заменить все слова "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)

Отправлено: 17:03, 04-11-2011

 

Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать

Цитата neo21:
.Replacement.Text = "^c" »
А если ...Text = cells(1,1).Value ?

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:52, 07-11-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

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

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

Отправлено: 10:02, 03-10-2013 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Макрос замены текста в Word 2010

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBA - Помогите написать макрос в Excel, экспорт данных из Excel в Word. E.v.g Программирование и базы данных 7 03-05-2018 22:18
Прочие - Копирование текста и изображения из браузера в Word. LostParadise Программное обеспечение Windows 3 15-10-2011 14:11
Разное - Word 2003: как сделать такие две замены? Mangost Microsoft Office (Word, Excel, Outlook и т.д.) 1 20-12-2010 04:51
2010 - Экономим время с помощью автоматической замены текста в Word 2010 OSZone Microsoft Office (Word, Excel, Outlook и т.д.) 0 30-04-2010 11:30
Выделение текста в Word'е Alexandre Хочу все знать 9 03-07-2003 14:35


« Предыдущая тема | Следующая тема »


 
Переход