|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.09.2012, 17:01 | #1 |
Регистрация: 16.09.2012
Сообщений: 7
|
[VBA Word] Удаление замещающего текста и гиперссылок
Здравствуйте! Только-только начал осваивать макросы, пока еще многого не понимаю.
У меня простая задачка, которую я раньше делал вручную, а теперь додумался, что можно написать макрос: 1. Удалить во всех картинках (и отформатированных в тексте, и не в тексте (вокруг рамки, за текстом, перед текстом)) замещающий текст 2. Удалить во всех картинках (также по-разному расположенных) гиперссылки (если есть) Пока что при помощи поиска "додумался" до удаления замещающего текста: Код:
Последний раз редактировалось mav1984; 16.09.2012 в 17:22. Причина: один вопрос разрешен |
16.09.2012, 17:07 | #2 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,119
|
в самом макросе снять выделение со всех картинок, тогда строку
ActiveDocument.Shapes.SelectAll в утиль |
16.09.2012, 17:08 | #3 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,119
|
топик надо в ветке по профилю задавать
|
16.09.2012, 17:13 | #4 |
Регистрация: 16.09.2012
Сообщений: 7
|
В соответствии с правилами форума разместил ее в разделе новичков. Если есть модераторы, то прошу перенести.
Если удалить строку ActiveDocument.Shapes.SelectAll, то он требует наличие объекта для следующей строки: Selection.ShapeRange.AlternativeTex t = "" А как ее по-другому записать, пока не представляю. |
16.09.2012, 17:21 | #5 |
Регистрация: 16.09.2012
Сообщений: 7
|
О, нашел ответ на вопрос по выделению:
ActiveDocument.Content.ShapeRange.A lternativeText = "" А вопрос по гиперссылкам остается. |
16.09.2012, 17:54 | #6 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,119
|
под себя делайте
Среди всех ссылок в документе удалить ссылки, которые ссылаются не на имеющуюся в документе закладку. Но есть исключение нельзя удалять ссылки на файл D:\Рабочая папка\ и D:\Рабочая папка\ Код:
|
16.09.2012, 18:39 | #7 |
Регистрация: 16.09.2012
Сообщений: 7
|
Честно говоря, не понял, как мне под себя этот код настроить.
Мне нужно удалить гиперссылки только из картинок, а в тексте оставить. Нашел еще вот такой код: Код:
|
16.09.2012, 19:41 | #8 |
Регистрация: 16.09.2012
Сообщений: 7
|
Немного по-корявому, но тем не менее, работает:
Удаляет все гиперссылки из рисунков! Код:
|
16.09.2012, 20:38 | #9 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,119
|
цикл должен быть
Код:
зачем выделять? |
16.09.2012, 21:16 | #10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Тему перенес.
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA WORD При наборе текста, автоматическая вставка изображения | fearnewstyle | Microsoft Office Word | 1 | 13.11.2011 08:05 |
Удаление текста из документа Word | a_n_n_a | Общие вопросы Delphi | 3 | 01.08.2011 14:43 |
Vba excel Удаление Текста | HelperAwM | Microsoft Office Excel | 4 | 19.06.2010 23:55 |
Удаление всех гиперссылок | БуреВестник | Microsoft Office Word | 6 | 16.10.2009 10:05 |
удаление гиперссылок | Gambler | Microsoft Office Word | 0 | 30.10.2006 23:23 |