макрос для WORDа

[Masterboy-skald]

Есть вордовский файлик. Зачастую порядка 300-400 листов.

Задача сейчас делается ручками но это очень долго(((
а цель такова:

идя по тексту я выделяю строку применяю к ней определенный стиль (заголовок, например) и мне нужно ее загнать в ЗАКЛАДКУ ворда. причем желательно что бы эта закладка была названа именно так какой я текст выделил. Обычно это Глава такая то либо просто Текст (например Вася или В тайге дремучей и т.д.) после этого я закрываю окно закладов и иду дальше по тексту. Часто таких закладок ну очень много. порядком много.
после всего этого я поднимаюсь вверх страницы и делаю автооглавление (по стилю который я применял к строкам).После этого я закидываю текст автооглавления в текстовик и потом обратно (заменяя тот что в ворде) этим я добиваюсь чтобы оглавление не было привязано к тексту. Затем к каждой строчке я добавляю гиперссылку НА ТУ ЗАКЛАДКУ которой она соответствует.

Вот собственно вопрос - можно ли как то автоматизировать этот процесс. Хотя бы частично или как-то еще.
Заранее спасибо всем кто откликнется...

[Sasha_Smirnov]

Работа интересная [как устроились?] — но гложет любопытство: зачем отвязывать, а потом туда же привязывать?

(Если такова служебная инструкция, то нельзя ли её подточить под автооглавление?)

[Вождь]

Ну замутили Предложу свой вариант.

Проще всего, делать как обычно. То есть, только пройтись стилями по тексту, разметив заголовки. После чего, вставить стандартное оглавление, в нужном вам формате (уровни, нумерация, оформление...).

Тут вступает макрос. Идея такая: макрос конвертирует стандартное оглавление в отвязанное Для этой операции макросу ничего не надо, уже все есть: и закладки проставлены (те что ставит само оглавление) и текст оглавления вами оформлен (осталось только взять).

[Masterboy-skald]

Sub 111()
'
' 1111
'
'
Selection.Style = ActiveDocument.Styles("заголовок 3")
Selection.Copy
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="111"
.DefaultSorting = wdSortByName
.ShowHidden = True
End Wit

вот это делает из выделенного мною текста делает стиль заголовок3 (как мне и нужно) и потом делает закладку. автоматом.
но я не могу добиться никак что бы NAME он генерировал сам. а именно вставлял из буфера текст и убирал там пробелы...
помогите пожалуйста что я делаю не так((((

[shanemac51]

полуфабрикат

Sub a__ogl17()
'

Dim s1
s1 = Selection.Range.Text
s1 = Replace(s1, " ", "_")
s1 = Replace(s1, Chr(13), "")
s1 = Replace(s1, Chr(10), "")
s1 = Replace(s1, ".", "_")
s1 = Replace(s1, "-", "_")

Debug.Print Len(s1), s1

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=s1
        .DefaultSorting = wdSortByName
        .ShowHidden = True
    End With
    Selection.Style = ActiveDocument.Styles("Заголовок 1")
    CommandBars("Apply Styles").Visible = False

End Sub

[Masterboy-skald]

Галина спасибо огромное) очень интересно)буду пробывать дорабатывать макрос уже сам.
Но уже это весомо облегчает работу с текстом.