Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
 
BolgarchukR
0 / 0 / 2
Регистрация: 07.07.2015
Сообщений: 24
#1

Как вставить в Word список гиперссылок встречающихся в документе? - MS Word

14.04.2017, 12:14. Просмотров 323. Ответов 2
Метки нет (Все метки)

Уже затрагивал отчасти данный вопрос в теме "Как создать подробную обновляемую информацию о документе в полях экспресс блоков?". Искал на разных форумах, но ответа так и не нашел. Поэтому хотелось бы остановиться подробнее и на том, что уже получилось и на том, что не получилось именно по списку гиперссыок.
Думаю многим известно, что в 2010 и последующих, а возможно и в предыдущих вордах можно добавить «Содержание». Так же, на той же вкладке "Ссылки", по центру, есть интересная кнопка «Список иллюстраций». Которая, аналогично берет с экспресс-стилей заголовки, которые были присвоены иллюстрациям. Тоже очень удобно. В списке иллюстраций в параметрах можно выбрать любой тип заголовков, и он автоматический оформится в нужном месте в виде списка с активными, гиперсылками и нумирацией страниц. Хотелось бы сделать то же, но и для ссылок. Т.е. у меня в тексте есть масса гиперссылок, которые спрятаны под текстом. Хотелось бы составить автоматический такой же активный список и с них. Такой же, как список «Содержание» или «Список иллюстраций». Пусть они будут спрятаны под текстом или написаны на прямую, т.е. http://www и т.д. Без разницы, хоть бы как. Но что бы они были обновляемы и активны так же как список иллюстраций. Подскажите пожалуйста как это можно реализовать? Желательно без макросов, а стандартными средствами. Например, я пробовал по аналогии с иллюстрациями сделать экспрес-блок (стиль) с текста оформленного как гиперссылки. Т.е. добавил свой стиль синий и подчеркнутый. Он действительно отобразился в «Ссылки» - «Список иллюстраций» - «Параметры» – «Стили», ниже заголовков. Но, во-первых, при попытке его вставить мне предложило заменить уже добавленный список иллюстраций, а мне это не надо, а во вторых, так не чего и не вставило, написав что «не найдено элементов таблицы списка». В чем может быть нюанс и как добавить активный список всех гиперссылок со страницами, на которых они встречаются? Самое интересное, что этот список я случайно, где то находил в настройках ворда, но забыл где. Т.е. насколько я понял, список такой есть, осталось разобраться, как его добавить в виде содержания.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2017, 12:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как вставить в Word список гиперссылок встречающихся в документе? (MS Word):

Как в документе Word перемешать список
Привет народ . Прошу помощи , так-как с подобной задачей ещё не сталкивался....

активация гиперссылок в Word 2010 Windows 7
проблема с активацией гиперссылок в Word 2010 Windows 7, пишет "Операция...

Как сделать ссылку в документе Word как в Excel
Например, в документе везде фигурирует цена 650 рублей. Ее везде нужно изменить...

Как создать 2 автособираемых оглавления в одном документе в word 2010?
Нужно 2 оглавления на соседних листах одного документа. Причём эти оглавления...

Как вставить форму в word
Добрый день эксперты! Нужна ваша помощь! Есть текст диплома 120 страниц, первую...

Как вставить объект ActiveX в Word?
Здравствуйте. Хотела бы знать, как вставить в MS Word, мой собственный объект...

2
Sasha_Smirnov
5460 / 1300 / 142
Регистрация: 08.02.2009
Сообщений: 4,008
Записей в блоге: 29
15.04.2017, 20:33 #2
Для получения текста полей с гиперссылками я (и это не только я*) сделал всё-таки пробный вариант макроса, ибо
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
это куда практичнее, чем рыться в красивых панельках!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Макрос10() ' Макрос записан 15.04.17 (гиперссылки документа Word)
Dim oField As Field, spis As String
    
    For Each oField In ActiveDocument.Fields 'для каждого поля
'            oField.Select
        If LCase(Left(Trim(oField), 9)) = "hyperlink" Then
'            MsgBox oField
            'ниже собираем URL’ы (то, что в полях между первыми "")
            spis = spis & Mid(oField, InStr(oField, Chr(34))) & vbCr
        End If
    Next
    
    MsgBox spis 'показ содержимого (от первой кавычки вкл.) полей-линков
    
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    400, 0, 150, 250).Select  'надпись (ширина 150 пт, высота 250 пт)
    'создали прямоугольную надпись
    
    Selection.ShapeRange.TextFrame.TextRange.Text = spis 'вписали туда spis
End Sub
Цитата Сообщение от BolgarchukR Посмотреть сообщение
Думаю многим известно, что
во всех инкарнациях Word можно добавить «Содержание» (оно же «Оглавление»). Фактически это поле toc (table of contents).

Возможно, пригодится и эта тема Invincible: http://www.cyberforum.ru/ms-word/thread580995.html.

Цитата Сообщение от shanemac51 Посмотреть сообщение
Пройти макросом по коллекции гиперссылок и вывести их в другой документ
шутя может наш модератор shanemac51!
_________________
*
Цитата Сообщение от susann1969 Посмотреть сообщение
"Ларчик просто открывался..."
1
Миниатюры
Как вставить в Word список гиперссылок встречающихся в документе?  
Sasha_Smirnov
5460 / 1300 / 142
Регистрация: 08.02.2009
Сообщений: 4,008
Записей в блоге: 29
20.08.2017, 20:51 #3
Ой, не там запостил!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.08.2017, 20:51
Привет! Вот еще темы с решениями:

Как вставить формулы из Word в Visio?
Подскажите как вставить формулы, набранные в Word 2010 в блок-схему, которую я...

рукопись в документе Word
Здравствуйте! Имею такую задумку: очень много требуют текста написанного от...

Подсчет в Word как вставить формулу автоматического расчета
Всем привет, Подскажите пожалуйста Имеем текст в ворде "5 яблок, по цене 15...

Word 2010 - Как вставить таблицу скопированную из интернета???
День Добрый!!! Вообщем проблема в следующем: копирую таблицу с данными из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru