Гиперссылку конвертировать в сноску - Microsoft Office Word - Страница 2

caute · 11.05.2013, 20:06

Код:

Sub AAA()
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    With Selection
        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleArabic
            .NumberingRule = wdRestartPage
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
End Sub

Sasha_Smirnov · 11.05.2013, 20:33

Ну вот ещё один кирпичик! Остаётся внутри кавычек ("") — вот здесь:

Цитата:

Сообщение от caute

Код:

        .Footnotes.Add Range:=Selection.Range, Reference:=""

ставить текст очередной сноски.

А ищется этот текст, например, по F3. В режиме отображения кодов полей (альт-F9). Что тоже можно попробовать записать в новый макрос. Пробуйте!

caute · 11.05.2013, 21:09

тексты сноски в конце, тоже под гиперссылками
допустим, я нашел текст для сноски 1
каким образом его можно вставить в макрос в Reference:=""?

Ципихович Эндрю · 11.05.2013, 22:43

Reference:=Selection.Text

caute · 11.05.2013, 23:08

попробуйте сами, не работает

caute · 11.05.2013, 23:14

Упростим задачу. Требуется заменить все гиперссылки пустыми концевыми сносками. Дальше я вручную разбросаю текст по сноскам и конвертирую концевые в постраничные.
Тут писать два дня явно не надо, простая штука, пособите, плиз. Надо сегодня.
Найти: все гиперссылки
Заменить: концевые сноски
Всё.

Sasha_Smirnov · 13.05.2013, 00:10

Куда ваш Гегель-то пропал?! Я уж хотел попробовать...

Ну вот, всего за час, с помощью вашего AAA, что-то заработало; код в документе, запуск по F3:

caute · 13.05.2013, 07:52

спасибо, Саша!
макрос добавляет к гиперссылке сноску, это снимает с меня бóльшую часть работы.
У меня есть макросы для удаления гиперссылок и конвертации постраничных сносок в концевые, а потом текст по сноскам раскидать не так уж трудно

Sasha_Smirnov · 13.05.2013, 17:05

А, то есть текст сносок вообще другой и с бывшими гиперссылками никак не связан?

caute · 13.05.2013, 18:18

Связан, он там был в конце документа. Эти файлы были конвертированы из Word, при этом сноски превратились в гиперссылки. Мне нужно проделать обратную операцию - конвертировать гиперссылки в сноски (издательство пожелало так) со всем содержимым. Но, чтобы определить границы текста, перемещаемого в сноски, - это, пожалуй, слишком навороченный макрос надо писать. После замены гиперссылок концевыми сносками проще руками текст по сноскам раскидать.
Чем я сейчас и занимаюсь

11.05.2013, 23:08	#15
caute Форумчанин Регистрация: 27.10.2009 Сообщений: 277	попробуйте сами, не работает Последний раз редактировалось caute; 12.05.2013 в 19:17.

11.05.2013, 23:14	#16
caute Форумчанин Регистрация: 27.10.2009 Сообщений: 277	Упростим задачу. Требуется заменить все гиперссылки пустыми концевыми сносками. Дальше я вручную разбросаю текст по сноскам и конвертирую концевые в постраничные. Тут писать два дня явно не надо, простая штука, пособите, плиз. Надо сегодня. Найти: все гиперссылки Заменить: концевые сноски Всё. Последний раз редактировалось caute; 12.05.2013 в 19:18.

13.05.2013, 17:05	#19
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	А, то есть текст сносок вообще другой и с бывшими гиперссылками никак не связан? Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отобразить гиперссылку из поля БД в Delphi	Люсьен	БД в Delphi	8	16.12.2012 05:42
Сделать гиперссылку	sergantikus	Microsoft Office Excel	5	25.06.2012 13:57
сделать сноску	Kvakin	HTML и CSS	5	18.03.2012 21:44
как создать гиперссылку	Андрей1113	Помощь студентам	5	03.12.2011 23:30
Как создать гиперссылку	Raa	Помощь студентам	0	07.11.2009 12:16

11.05.2013, 21:09	#13
caute Форумчанин Регистрация: 27.10.2009 Сообщений: 277	тексты сноски в конце, тоже под гиперссылками допустим, я нашел текст для сноски 1 каким образом его можно вставить в макрос в Reference:=""?

11.05.2013, 22:43	#14
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,168	Reference:=Selection.Text

13.05.2013, 07:52	#18
caute Форумчанин Регистрация: 27.10.2009 Сообщений: 277	спасибо, Саша! макрос добавляет к гиперссылке сноску, это снимает с меня бóльшую часть работы. У меня есть макросы для удаления гиперссылок и конвертации постраничных сносок в концевые, а потом текст по сноскам раскидать не так уж трудно

13.05.2013, 18:18	#20
caute Форумчанин Регистрация: 27.10.2009 Сообщений: 277	Связан, он там был в конце документа. Эти файлы были конвертированы из Word, при этом сноски превратились в гиперссылки. Мне нужно проделать обратную операцию - конвертировать гиперссылки в сноски (издательство пожелало так) со всем содержимым. Но, чтобы определить границы текста, перемещаемого в сноски, - это, пожалуй, слишком навороченный макрос надо писать. После замены гиперссылок концевыми сносками проще руками текст по сноскам раскидать. Чем я сейчас и занимаюсь