Автоматическое формирование закладок из заголовков

если бы еще понять, зачем нужны эти закладки

ПОПРОБУЙТЕ ВАРИАНТ

Sub w140516_1044_z()
'
Dim pr As Paragraph, j1, S1, s2, j2, j2k, ss
j1 = ActiveDocument.Bookmarks.Count
Do While j1 > 0
ActiveDocument.Bookmarks(j1).Delete
j1 = j1 - 1
Loop
For Each pr In Word.ActiveDocument.Paragraphs
j1 = j1 + 1
pr.Range.Select

''If pr.Range.Text Like "S:*" Then
If pr.OutlineLevel <> wdOutlineLevelBodyText Then
S1 = pr.Range.Text
ss = ""
j2 = 0
j2k = Len(S1)
If j2k > 50 Then j2k = 50
Do While j2 < j2k
j2 = j2 + 1
s2 = Mid(S1, j2, 1)
If s2 Like "[а-яА-ЯёЁa-zA-Z0-9]*" Then
ss = ss & s2
Else
ss = ss & "_"
End If
Loop


Debug.Print Len(ss), ss



    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=ss & "_" & j1
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    End If
    Next pr
End Sub

Да, безусловно! Спасибо, попробовала, выдал ошибку - Run-time error 5828: неверное имя закладки.

и посмотрите в отладчике
--какая строка обрабатывалась
--нет ли у нее какой-то особенности(рамка, надпись, таблица.....)

word 2007,

в visual строка
''If pr.Range.Text Like "S:*" Then
стала зеленой, как коментарий. Может кавычки убрать?

В ворде обработка остановилась на заголовке рисунка.

Если я что-то не так сказала, пошу прощения)), в мир макрсов пока только вхожу

Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
И еще раз - спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Вобщем все сработало, вы меня очень выручили!

Единственный вопрос на последок - у меня заголовки до 6 уровня. Насколько я поняла, последнее внесенное изменение ограничило их 4-ым уровнем, правильно? Если мне нужен 6-ой включительно, то м.б. скорректировать на "< 7"? Если я правильно предположила.

засунула ... Но это решаемо).
А еще маленький вопросик - куда-то делись остальные закладки, которые я делала вручную до этого. Это нормально  ?