|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.01.2014, 16:20 | #1 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
Замена текста на картинку
Уважаемые профи, прошу вашей помощи.
Подскажите, пожалуйста, макрос, который будет находить в документе word нужные слова и заменять на определенные картинки, вставляя их в то место, где находилось искомое слово. Например, находить "Вася" и заменять его на фото "Васи", хранящееся на компьютере, затем находить следующее слово "Таня" и заменять его на фото "Тани" и т.д. Заранее спасибо! |
29.01.2014, 21:54 | #2 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
У меня получается вот такой макрос. Но заменяет только первые найденные случаи.
Код HTML:
With Selection.Find .Text = "Вася" .Replacement.Text = "" End With Selection.Find.Execute Selection.InlineShapes.AddPicture FileName:="D:\face-vasea.jpg" With Selection.Find .Text = "Таня" .Replacement.Text = "" End With Selection.Find.Execute Selection.InlineShapes.AddPicture FileName:="D:\face-tanea.jpg" Подскажите, пожалуйста, что еще нужно. |
30.01.2014, 05:12 | #3 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Есть два пути:
Лучше день потерять — потом за пять минут долететь!©
|
30.01.2014, 16:45 | #4 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
Здравствуйте, viter.alex!
Тут второй пункт "Существует список соответствий: имя_файла - слово". |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Замена определенного значения на картинку(VBA) | Евгений Таб | Microsoft Office Excel | 24 | 21.11.2013 04:41 |
Сервис преобразования текста в картинку | Arigato | Свободное общение | 27 | 14.02.2012 11:15 |
Шифрование текста в PNG картинку ! | fucil | Общие вопросы Delphi | 2 | 20.10.2011 13:45 |
Как страницу текста в doc преобразовать в картинку ? | bdfy | Microsoft Office Word | 6 | 16.06.2010 21:49 |
шифратор текста в картинку | Xdron | Общие вопросы Delphi | 3 | 14.05.2010 08:33 |