Гиперссылки в Word для переходов / Сообщество / КвестБук

^{Ср Фев 25, 2009 14:20

Доступные действия:}

Смелый Хвост
^{4 8 1} ^{Герой легенд}

Перевожу в рамках конкурса про Нарнию, возник вопрос:
формат PDF я распознал и конвертировал в MS Word, в нём и работаю. Чтобы бегать по параграфам, хочу сделать ссылки из номеров. Пока что сделал "закладками" – пицот закладок и пицот (больше вдвое-втрое, на самом деле) ссылок на них. Есть как вариант сделать "оглавлением".
Вопросы такие: кто-нибудь что-то подобное делал? как удобнее всего оформлять ссылки? Может, еще есть более удобный третий способ? Может, надо не в ворде, а в чём-то еще работать (чтобы потом было удобнее портировать и пр.)?
Jumangee – может, это обсуждение уже отделить в отдельную "техническую" ветку?

_________________
Эти морские зайцы, эти дохлые медузы отказываются следовать за своим капитаном!

^{Ср Фев 25, 2009 14:37

Доступные действия:}

Jumangee
^{Во всех бочках затычка}

Действительно – вопрос не имел никакого отношения к Plansescape Smile
Насколько мне известно, в ворде можно сделать гиперссылку на "#p1", а потом в нужном месте "Вставка"-"Закладка", пишешь "p1". Всё. Единственное, ворд не даёт вставить закладку начинающуюся с цифры, но это можно пережить.

Написать комментарий

^{Ср Фев 25, 2009 14:50

Доступные действия:}

Смелый Хвост
^{4 8 1} ^{Герой легенд}

Jumangee
ворд не даёт вставить закладку начинающуюся с цифры

это я уже понял Sad
а потом это в html или еще куда перекинуть – просто? закладки станут гиперссылками?

Написать комментарий

^{Ср Фев 25, 2009 15:05

Доступные действия:}

Jumangee
^{Во всех бочках затычка}

Да

Написать комментарий

^{Ср Фев 25, 2009 18:02

Доступные действия:}

Piligrim
³ ^{Меценат}

Я перевожу тоже в ворде. Сделал шаблон. Для номера параграфа свой стиль, для перехода свой. В процессе написания макрос для авторасставления переходов.

_________________
Все движется... Иногда даже вперед!

Написать комментарий

^{Ср Фев 25, 2009 18:13

Доступные действия:}

Jumangee
^{Во всех бочках затычка}

Да, так по-идее лучше – потом, при желании, при смене оформления номера параграфа и/или переходов не придётся выискивать их по книге

Написать комментарий

^{Ср Фев 25, 2009 18:43

Доступные действия:}

Смелый Хвост
^{4 8 1} ^{Герой легенд}

Piligrim, у меня макросом ставится закладка. А как остальное? Пришли файл?

_________________
Эти морские зайцы, эти дохлые медузы отказываются следовать за своим капитаном!

Написать комментарий

^{Ср Фев 25, 2009 21:04

Доступные действия:}

danner
² ^{Свободный искатель}

Гиперссылки могут указывать не только на закладки, но и на заголовки. Делаешь номер параграфа стилем "Заголовок 1", например, и вперед, гиперссылки на них.
Весь свой фаллаут я сделал именно так, если совсем интересно смотри мой doc файл, в нем закладок нет.

Ссылка для ленивых

Написать комментарий

^{Вт Апр 17, 2012 23:53

Доступные действия:}

Liam
² ^Путник

Я для этой цели накатал два этих макроса. Единственное что нужно сделать, это в зависимости от книги менять запрос в строке поиска
Первый макрос расставляет закладки, второй ставит на них гипрессылки

Sub AddMark()
‘
‘ Ìàêðîñ1 Ìàêðîñ
‘ Ìàêðîñ çàïèñàí 2012/01/21 Admin
‘
nn = 200

‘While Selection.Find.Execute = True
‘i = 0
‘While Selection.Text <Selection> 0
ActiveDocument.Hyperlinks(1).Delete
Wend
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
For i = nn To 0 Step -1 ‘Ïîèñê ñòðàíö
SS2 = Trim(i)
SS1 = "^m" + SS2 + "^p" Selection.Find.ClearFormatting
With Selection.Find
.Text = SS1
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
‘Ðàññòàíîâêà çàêëàäîê
If Selection.Find.Execute Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = SS2
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="m" + Trim(i)
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End If
Next i
End Sub

Sub SetLink()
‘
‘ Ìàêðîñ1 Ìàêðîñ
‘ Ìàêðîñ çàïèñàí 2012/01/21 Admin
‘
nn = 200

‘While Selection.Find.Execute = True
‘i = 0
‘While Selection.Text <> "}"
‘ Selection.MoveRight Unit:=wdCharacter, Count:=1
‘ i = i + 1
‘Wend
For i = nn To 0 Step -1 ‘Ïîèñê ñòðàíö
SS2 = Trim(i)
SS1 = "òêðîé ñòðàíèö? " + SS2 + "[!][0-9]"
work = True
While work = True Selection.Find.ClearFormatting
With Selection.Find
.Text = SS1
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With ‘Ðàññòàíîâêà çàêëàäîê If Selection.Find.Execute Then Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = SS2
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
SubAddress:="m" + SS2, ScreenTip:="", TextToDisplay:="@" + Selection.Text
Selection.HomeKey Unit:=wdLine
Else
work = False
End If
Wend
Next i
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "@"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub

Написать комментарий

^{Ср Апр 18, 2012 15:46

Доступные действия:}

Jumangee
^{Во всех бочках затычка}

Если честно, не совсем понял что делают макросы. Не поясните?
Плюс, "возьмите" код в тэг [code]

Написать комментарий

^{Сб Апр 21, 2012 14:58

Доступные действия:}

Liam
² ^Путник

Sub SetMarks() ' ' Макрос расставлет закладки в параграфах '     'Изменяемая переменная. Определяет кол-во параграфов     nn = 200         'While Selection.Find.Execute = True      'i = 0      'While Selection.Text <> "}"       '   Selection.MoveRight Unit:=wdCharacter, Count:=1        '  i = i + 1      'Wend  ' Очитска текста от всех закладок и гиперссылок    Dim oBkm As Bookmark For Each oBkm In ActiveDocument.Range.Bookmarks oBkm.Delete Next While ActiveDocument.Hyperlinks.Count > 0  ActiveDocument.Hyperlinks(1).Delete  Wend  Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False         'Эту часть можно удалить. Она заменяет двойные пробелы на одиночные     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "  "         .Replacement.Text = " "         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = False         .MatchAllWordForms = False         .MatchSoundsLike = False         .MatchWildcards = False         .MatchFuzzy = False     End With     Selection.Find.Execute Replace:=wdReplaceAll                 'Расстановка закладок.     'Идёт от конца к началу      For i = nn To 0 Step -1             'Формируем номер закладки     SS2 = Trim(i) 'Это основная строка. В ней задётся поиск параграфа 'В данном случае номер следует за началом новой страницы 'и заканчивается знаком абзаца 'В зависимости от книги эту строку надо менять        SS1 = "^m" + SS2 + "^p"         Selection.Find.ClearFormatting     With Selection.Find         .Text = SS1         .Replacement.Text = ""         .Forward = False         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = False         .MatchAllWordForms = False         .MatchSoundsLike = False         .MatchWildcards = False         .MatchFuzzy = False     End With     'Это выделение непосредственно самого номера параграфа.     'Если этого не сделать, служебные знаки     'могут привести к порче текста     If Selection.Find.Execute Then              Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = SS2         .Replacement.Text = ""         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = False         .MatchAllWordForms = False         .MatchSoundsLike = False         .MatchWildcards = False         .MatchFuzzy = False     End With     Selection.Find.Execute      'А это устанавливается сама закладка         With ActiveDocument.Bookmarks         .Add Range:=Selection.Range, Name:="m" + Trim(i)         .DefaultSorting = wdSortByName         .ShowHidden = False      End With               End If     Next i   End Sub

Вообще можно добавить сообщение если какой-то параграф не будет найден. что иногда бывает, по той причине, что в тексте есть мусор, котрый не был обнаружен.

Добавил через 21 минут 57 секунд:

Этот макрос ставит гиперссылки на параграфы

Sub SetLincs() ‘

	‘как в первом макросе
    nn = 200
    
    
   
    
    For i = nn To 0 Step -1
        
   
    SS2 = Trim(i)
    SS1 = “крой страниц? “ + SS2 + “[!][0-9]”
    work = True
    
‘Этот цикл устанавливет все найденные гипрессылки на данный параграф.

While work = True Selection.Find.ClearFormatting With Selection.Find .Text = SS1 .Replacement.Text = “” .Forward = False .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With ‘ If Selection.Find.Execute Then Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SS2 .Replacement.Text = “” .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=”“, _ SubAddress:=“m” + SS2, ScreenTip:=”“, TextToDisplay:=”@” + Selection.Text Selection.HomeKey Unit:=wdLine Else work = False End If Wend Next i ‘Для того, чтобы уже найденные гиперссылки не мешали поиску, ‘в них ставился знак . Сейчас все гиперссылки расставлены   'и этот знак удаляется.   Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "” .Replacement.Text = “” .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

Написать комментарий