Навигация в документе

[kanapfelka]

Имеются большие документы (порядка 100+ страниц). Одно оглавление занимает 13 страниц. В этом документе хотелось бы организовать навигацию. С оглавления-то на текст перекидывает, а вот назад хочется кнопку «назад» (Alt+Стрелка влево или варианты)

В ВБА я очень начинающ( это мой первый опыт).
Как вариант можно сделать кнопку

Sub Макрос6()
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Заголовок 1")
    With Selection.Find.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorBlack
            .BackgroundPatternColor = wdColorBlack
        End With
        .Borders.Shadow = False
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = " ^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Copy
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "МНЕНИЯ, ИНТЕРВЬЮ"    В этом месте бы вставить из буфера
        .Replacement.Text = " ^p"
        .Forward = False
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute
End Sub

которая ищет за собой первый попавшийся заголовок 1 берет его название и ищет его с начала документа и туда переходит. Но я не в курсе в какой переменной хранится содержимое буфера обмена(и хранится ли, или надо заносить?). Да ещё и на ответы да/нет надо отвечать

[viter.alex]

«Всё украдено до нас»©
В смысле такая кнопка уже существует, и называется «Назад». В 2003-м она расположена на панели «Веб-узел», а в 2007-2010 легко добавляется на панель быстрого доступа

[kanapfelka]

Это, да, но увидев её отдел мониторингов захотел её прям в тексте.

[viter.alex]

Тогда нужно просто продублировать вызов этой функции:

Application.Run MacroName:="WebGoBack"

[kanapfelka]

От здорово! Теперь будем макрос писать в этой теме.

Изложу суть.
Ищем в разметке документа второй знак ▪, и перед ним знак переноса каретки(это же он?) — ¶, перед этим знаком вставляем кнопку с кодом. Делаем до упора.
Он конечно навставляет много лишнего, но другой вариант — искать заголовки и отступив за ¶ перед заголовком вставлять кнопку.

[viter.alex]

Может просто вставить на каждой странице?

[kanapfelka]

Это как вариант, я тоже думал о вставке просто на странице, потому что если вставлять перед каждым заголовком, то, иногда, получается 3-4 кнопки на страницу, что конечно выглядит не очень.

упд. Хотя на каждой странице они проставятся и на оглавлении

[kanapfelka]

Sub Расстановка кнопок()

For Each Страница?

ActiveDocument.ToggleFormsDesign
Selection.InlineShapes.AddOLEContro l ClassType:="Forms.CommandButton.1"
CommandButton.Caption = "К оглавлению"

Next



End Sub

[tyrus2]

я бы сделал так:

1) в начале документа повесил бы bookmark, c именем top_document.
2) в нужном месте вешал бы линк на этот bookmark.
А вот как вам удобно - ссылка по тексту или оп нажатию кнопки - это вам решать

[kanapfelka]

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

1) в начале документа повесил бы bookmark

И пришлось бы крутить колесо на 10-12 страниц вниз по оглавлению.
Можно и кнопки руками рассовать, но зачем, если можно посоветоваться и научиться?