Макрос для удаления гиперссылок в word
Обновлено: 07.07.2024
2 Ответ от Mad Forester 21.11.2011 23:51:45
Нашел простое и изящное решение:
Проверил - работает безошибочно, удаляет все ссылки
Похожие темы
Удаление гиперссылок
Очень часто у пользователей компьютеров возникают вопросы по тем или иным программам. Чтобы найти ответы - кто-то покупает необходимую литературу, кто-то ищет ответ в интернете. Наш сайт о Microsoft Office Word даст ответ про: ключи для активации microsoft office. Но нужную литературу не всегда можно найти в магазине, а в интернете – можно просто потеряться в море информации. На портале о Microsoft Office Word вы узнаете про: нет команды файл создать вордовский документ. В случае, если вас интересует приложение Microsoft Word – то смело можете обращаться на сайт Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: что такое word.
Если вы совершенно не знакомы с программой Microsoft Word, то в «Основном разделе» сайта вам помогут не только освоить основные принципы работы в ней, но и расскажут о многие ее нюансах и секретах. На портале о Microsoft Office Word вы узнаете про: внести изменеия в запороленный документ word. Вы узнаете - как правильно делать форматирование и редактирование, как писать макросы, как совместить различные версии, как правильно расставить колонтитулы и т.п. Наш сайт о Microsoft Office Word даст ответ про: как удалить рамку в ворде.
При необходимости, вы можете обратиться в раздел «заявок и заказов», оформить заявку на выполнение любой работы в приложении Microsoft Word и получить готовую качественную работу. На портале о Microsoft Office Word вы узнаете про: как ввести текст в рамку и сузить в ворде.
Наличие на сайте оперативной обратной связи тоже может вам пригодится. Можно обращаться и в случае, если вы не нашли ответ на свой вопрос, и в случае если вы хотите внести свои замечания по работе сайта. На портале о Microsoft Office Word вы узнаете про: работа со стилями и составление оглавления документа. Форум работает круглосуточно и вам всегда будут рады помочь.
Добрый день. Нужно много обработать файлов в ворде 2007.
Задача такая нужно удалить всё кроме слов с ссылками.
Может быть можно как-то макросом?
Придумал 3 решения.
1. Удалять все кроме слов с ссылками
2. Выделять все слова с ссылками
3. Выделять или удалять каждую 4-ую строчку.
Помогите пожалуйста, руками будет очень долго.
Может быть есть и другие способы
Как удалить в Word все строки,кроме строк начинающейся с определённого слова?
Как удалить в Word все строки кроме строк начинающейся с определённого слова?(Word 2016)
Как удалить все гиперссылки сразу?
Есть довольно объемный текст в котором полно ссылок ( как правило неработающих),собственно в тексте.
Как из таблицы удалить все записи, кроме тех, где колонка middlename не пустая?
Привет! Подскажите пожалуйста,как из таблицы удалить все записи кроме тех где колонка middlename.
Как удалить все строки, где больше 7 слов
Здравствуйте! Помогите пожалуйста написать макрос для удаления всех строк в столбце (D3 : D47).
Решение
Пройти макросом по коллекции гиперссылок и вывести их в другой документ shanemac51, Ну как? Я не умею делать макросы. Пожалуйста, опишите более подробно.Не много не так. Мне нужны не ссылки, а именно фразы( слова) с ссылками
Добавлено через 13 минут
А так все сработало. Быстро, и удобно)
Что изменить в макросе, что бы слова оставались?
Решение
shanemac51,
Ошибка какая-то появляется
Сточки добавил в самый низ.
Добавлено через 8 минут
shanemac51,
Включил логику.
Удалил не нужное, и не много отредактировал. Все получилось.
Правда фразы уже без ссылок, но не его страшного.
не забывайте про тег форматирования к ода
--выделите код
--нажмите кнопочку (vb) --третья справа в нижнем ряду
shanemac51,
Все что нужно было от этого макрасо - получилось.( очень сэкономило время)
Еще есть одна задача.
Есть список 15000 фраз
Он имеет свою иерархию, и заголовки.
Так же, в нем есть много дублей. наверное %30.
Как их удалить? Т.е нужно, что бы остался только один вариант. ( их 3-4)
Обычно помогала простая сортировка, и ручками все удалял, но здесь не получится, т.к я не смогу обратно вернуть свою иерархию и заголовок в прежний вид, ну и долго будет очень, объем большой.
Что мне здесь может помочь?
сегодня уже некогда --завтра посмотрю
shanemac51,
Файл прикрепил
В общем в каждом списке, есть повторения, нужно что бы остался только один вариант
Такая идея в голову пришла, что каждый список можно выделить одним цветом, потом упорядочить все по алфавиту, удалить дубли, и уже все возвратить по цвету шрифта. Но так будет долго, и не удобно, ведь кол-во списков больше 20, да и объем большой 15000
МНЕ КАЖЕТСЯ ,что эта задача не для ворда, а для екселяв каждую строку добавляется группа и 2 варианта
==сводная --чтобы посмотреть, где есть повторы и вручную выбрать
==удаление дублей(слепое)+впр
shanemac51,
Если честно, то не понятно.
Понял что в Екселе будет проще - ок.
Получается нужно
1. Убрать заголовки
2. Все фразы одного списка пометить одним цветом ( это стиль)
Больше я не чего не понял. Объясните пожалуйста, более подробно. И если Вас не затруднит, то скиньте мне пожалуйста, файл ексель, где будет уже что-то понятно для меня
мне тоже многое непонятно
помидоры во всех группах ясности не прибавили
ясно лишь одно --есть два метода удаления
--слепое(помидоры попадут во фрукты --первая группа, где они есть)
--по выбору--надо выбрать вручную, что помидоры=овощ(а может и ягода, как иногда говорят об арбузе), всем помидорам присвоить выбранное значение и затем удалить повторы
====
и в русском языке достаточно много слов, которые одинаково пишутся, но означают разное и среди 15000 такие тоже явно будут
Добавлено через 8 минут
==============из интернета===============
Черника, клюква, брусника, смородина, виноград, крыжовник, рябина, арбуз, дыня, тыква, кабачок, помидор, цитрусовые (апельсин, лимон, мандарин) – это ягоды. Вы будете смеяться, но яблоко и груша также относятся к ягодам.
===============
Ягода - многосеменной одногнездный или многогнездный невскрывающийся плод. Т. к. семена помидора зреют в самой мякоти, то он и относится к ягодам, также к ягодам относятся-арбуз, банан и многое подобное.
Добавлено через 8 минут
=========определения из интернета=========
Фрукт (лат. fructus — плод) — сочный съедобный плод дерева или кустарника. Разновидностью фруктов являются также ягоды. В русском языке «фрукт» — термин не ботанический, а бытовой и хозяйственный.
====
По определению, овощ – это съедобная часть произрастающего на земле растения и не являющаяся при этом травой, специей, орехом, зерном или фруктом.
Вы можете удалить гиперссылку для отдельного адреса, удалить несколько гиперссылок одновременно, отключить автоматическое создание гиперссылок или сделать так, чтобы для перехода по ссылке не требовалось нажимать клавишу CTRL.
Удаление гиперссылки
Чтобы удалить гиперссылку, но при этом сохранить текст, щелкните ее правой кнопкой мыши и нажмите кнопку Удалить гиперссылку.
Чтобы полностью удалить гиперссылку, выделите ее и нажмите клавишу DELETE.
Если ссылка создана с помощью функции ГИПЕРССЫЛКА, вы можете удалить ее, следуя этим инструкциям:
Выделите ячейку, содержащую ссылку.
Щелкните правой кнопкой мыши и выполните вставку с помощью параметра Значения.
Удаление всех гиперссылок одновременно
Если вы используете Word, Outlook или Excel 2010 или более поздней версии, вы можете удалить все гиперссылки в файле с помощью сочетания клавиш.
В Word и Outlook
Нажмите клавиши CTRL+A, чтобы выделить весь текст.
Нажмите клавиши CTRL+SHIFT+F9.
В Excel 2010 и более поздних версиях
Выделите все ячейки, содержащие гиперссылки (например, нажав CTRL+A).
Щелкните их правой кнопкой мыши и выберите пункт Удалить гиперссылки.
Отключение автоматической замены гиперссылок
Если не нужно, чтобы в документах Office по мере ввода текста автоматически создавались гиперссылки, вы можете их выключить.
В Office 2010 и более поздних версий
В меню Файл выберите пункты Параметры и Правописание.
(В Outlook выберите Файл >Параметры > Почта > Параметры редактора > Правописание.)
В Office 2007
(В Outlook создайте письмо, нажмите кнопку Microsoft Office, а затем выберите Параметры редактора > Правописание.)
Снимите флажок адреса Интернета и сетевые пути гиперссылками.
Выключение перехода по ссылке по щелчку при нажатой клавише CTRL
По умолчанию в Word и Outlook необходимо нажимать клавишу CTRL для перехода по ссылке. Это предотвращает случайный переход во время правки документа.
Если вы хотите переходить по ссылкам, не нажимая клавишу CTRL, сделайте следующее:
В Word 2010 или более поздней версии выберите Файл >Параметры > Дополнительно.
В Word 2007 нажмите кнопку Microsoft Office и выберите Параметры Word > Дополнительно.
В Outlook 2010 или более поздней версии выберите Файл > Параметры > Почта > Параметры редактора > Дополнительно.
В Outlook 2007 создайте письмо, нажмите кнопку Microsoft Office, а затем выберите Параметры редактора > Дополнительно.
В разделе Параметры правки снимите флажок CTRL + щелчок для выбора гиперссылки.
Гиперссылки в документе Word на другие файлы, сайты могут быть нерабочими, то есть бесполезными. А в некоторых случаях (если речь идёт о полученных от кого-то, скачанных из интернета текстах) и представлять угрозу для безопасности компьютера (например, ссылки на вирусные сайты).
Очистить проект в редакторе Word от ненужных гиперссылок можно несколькими способами. Давайте разберём их пошагово.
Выборочное удаление
1. Чтобы удалить ссылку в Ворде, выделите её (проведите по ней курсором, удерживая левую кнопку).
2. Откройте вкладку «Вставка» и нажмите раздел «Гиперссылка».
3. В окне «Изменение… » клацните кнопку «Удалить ссылку».
Также удаление можно выполнить через контекстное меню Ворда:
- клацните правой кнопкой по выделенному элементу;
- в выпавшем перечне выберите пункт «Удалить гиперссылку».
Быстрое удаление всех ссылок
Способ №1: активация штатной функции
1. Чтобы убрать все ссылки, выделите весь текст: нажмите вместе клавиши «Ctrl» и «A».
Примечание. Также вы можете выделить какой-либо отдельный фрагмент проекта Ворд: несколько абзацев или страницу.
2. Нажмите одновременно «Ctrl» + «Shift» + «F9».
Предупреждение! При запуске данной функции, кроме ссылок, также в тексте удаляются другие установленные поля форматирования.
Всё! Очистка в обозначенной области завершена.
Способ №2: использование макроса
В Ворде предусмотрено использование дополнительных пользовательских скриптов (макросов), написанных на языке программирования Visual Basic. Они облегчают выполнение отдельных специализированных задач, а также автоматизируют выполнение процедур форматирования. Нижепредставленное решение позволяет выполнять очистку текста в один клик.
Перед вставкой кода отключите блокировку макросов:
1. Откройте в меню редактора:
Файл → Параметры → Центр управления безопасностью.
2. Кликните кнопку «Параметры центра… » (расположена в нижней части правого блока).
3. Перейдите в подраздел «Параметры макросов».
4. Клацните радиокнопку рядом с настройкой «Включить все макросы… ».
5. Закройте панель, перезапустите Word.
Установите скрипт, убирающий ссылки:
1. На вкладке «Вид» щелчком мышки откройте ниспадающее меню «Макросы».
2. Кликните пункт «Макросы».
3. В окне «Макрос», в строке «Имя», укажите название скрипта (например, del_URL). Нажмите «Создать».
4. Удалите все строки в окне редактора кода и вставьте этот макрос:
Sub RemoveHyperlinks()
While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub
5. Закройте панель с кодом.
Вставьте кнопку на панель Ворда для быстрого запуска скрипта:
1. Рядом с кнопками «влево» и «вправо» клацните значок «стрелочка вниз».
2. В списке клацните «Другие команды… ».
3. В перечне «Выбрать команды из:» установите «Макросы».
4. Кликом мышки выберите в левом блоке созданный скрипт. Нажмите «Добавить».
5. Закройте окно с настройками. Если все действия были выполнены корректно, в левом верхнем углу появится кнопка макроса.
Чтобы убрать все гиперссылки из текста, кликните по ней один раз левой кнопкой.
Читайте также: