1

Тема: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

У меня очень большой и очень разветвлённый текст (работаю в 2003 Ворде). И желательна не только автоматическая нумерация страниц оглавления, но и чтобы номера самих глав, параграфов, пунктов, подпунктов тоже автоматически нумеровались. Поскольку время от времени их перетаскиваю в разные места и они получают разные номера и очень неудобно каждый раз переписывать в тексте ссылки на номера соответствующих пунктов. Последняя проблему как решать знаю - подобно тому, как научился решать аналогичную проблему с рисунками ( http://wordexpert.ru/forum/viewtopic.ph … 741#p12741 ). Но вот как это совместить с автоматической нумерацией страниц оглавления - не знаю. Потыкался как-то, что-то, но получались конфликты системы нумерации страниц и индексов подпунктов.
  Как-то с этим можно справиться или что-то вроде того?

2

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Вроде бы, нашёл ответ: внешняя ссылка .  Да и как-то удалось другим способом, аналогичным автоматической нумерации рисунков получить то е самое. Но, наверно, это не удобно и лучше пользоваться стандартной функцией по выше приведённой ссылке. С ней ещё не разобрался. Но, скорее всего, разбирусь. Так что, во всяком случае, пока снимаю вопрос темы (напишу, если что будет не ясно).

3

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Однако, что-то мне не удалось разобраться: по ссылке выше это объясняется не для 2003 Ворда, а в 2003 Ворде что-то аналога никак найти не могу (и в сети что-то не попадается). Так что вопрос возвращается обратно.

4

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Здравствуйте, Леша!
Если я правильно понял Ваш вопрос, Вы перетаскиваете параграфы в тексте, меняете уровни заголовков (надеюсь, Вы используете для различных уровней заголовков соответствующие стили) и т.д., и хотели бы, чтобы в оглавлении правильно указывались измененные уровни и страницы.
В принципе, у Вас не должно быть с этим никаких проблем. Единственно, пожалуйста, имейте в виду, что оглавление автоматически не обновляется. Вам необходимо (по крайней мере, перед закрытием файла) обновлять его вручную.
Обновление производится так:
Выделить все (Ctrl+a) - нажать клавишу F9 - снять выделение.
Если что-то остается неясным - пишите.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

У меня есть разные подразделы - "Часть", "Глава", "параграф", "пункт", "подпункт".
  В тексте придал им стили "Заголовок 1", "Заголовок 2", "Заголовок 3" и потом зашёл "вставка" -> "ссылка", "оглавлении и указатели" ...  в общем, в результате у меня появилось оглавление (с указанием соответствующих страниц).
  Ну нет нумерующих подпункты подписей. Хочу, чтобы нумерация частей была просто порядковыми номерами, нумерация глав - в виде 1.1, 1.2 ... где 1-я однёрка (а потом и двойка и тройка, ...) - это номер части, а 2-я - номер главы. Для параграфа нумерация уже будет в виде i.j.k, где i, j, k - целые числа и т.д. И так же хочу, чтобы перед этими наборами чисел были так же соответствующие надписи "Часть", "Глава", ... .
  Но мне что-то не удаётся получить стандартным для этого случая способом даже упомянутую нумерацию (точнее, индексацию выше озвученных пунктов).
  Эту индексацию у меня получилась сделать совсем другим способом - подобно тому, как идёт индексация рисунков. А именно - создал ряд новых называний: "Глава", "Параграф 1.", "Параграф 1.2", "Параграф 1.3.", ... "Параграф 2.", "Параграф 2.", ... Эти названия индексируются одним номером подобно тому, как это происходит индексации рисунков. И в результате, за счёт того, что в названиях были введены числа, получается двойная, тройная и т.д. индексация (т.е. с участием 2-х, 3-х, и т.д. цифр). Но в этом варианте требуется вводить очень много разных новых названий. Что очень неудобно (у меня - очень разветвлённая структура). Да и запутаться можно. На сколько понимаю, сделать это как-то стандартным образом будет гораздо проще. Но как - не пойму. Предполагаю, что как-то можно настроить или что-то сделать с уже готовым у меня автоматическим оглавление. Но потыкался, потыкался и не нашёл где бы это можно было сделать.

6

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Выложите, пожалуйста, пример.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Так, например (конкретных названий - не привожу и, таким образом, приведён лишь принцип схемы по которой у меня должно быть автоматически оргнизовано оглаление, но чего не получается понять стандартный для этого способ):

Часть 1 (название части 1)

  §1.1 (название этого параграфа 1.1)
1.1.1    (название этого пункта)
1.1.1.1    (название этого подпункта)
1.1.1.2     (название этого подпункта)
1.1.2     (название этого пункта)
1.1.2.1       (название этого подпункта)
1.1.2.2     (название этого подпункта)

  § 1.2 (название параграфа 1.2)
     1.2.1 (название этого пункта)
1.2.1.1  (название этого подпункта)
1.2.1.2  (название этого подпункта)
     1.2.2 (название этого пункта)
1.2.2.1  (название этого подпункта)
1.2.2.2  (название этого подпункта)


Часть 2 (название части 2)

  §2.1 (название этого параграфа)
2.1.1    (название этого пункта)
2.1.1.1    (название этого подпункта)
2.1.1.2     (название этого подпункта)
2.1.2     (название этого пункта)
2.1.2.1       (название этого подпункта)
2.1.2.2     (название этого подпункта)

  § 2.2 (название параграфа 2.2)
     2.2.1 (название этого пункта)
2.2.1.1  (название этого подпункта)
2.2.1.2  (название этого подпункта)
     2.2.2 (название этого пункта)
2.2.2.1  (название этого подпункта)
2.2.2.2  (название этого подпункта)

8

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Воспользуйтесь макросом. Он сформирует новый многоуровневый список в вашем документе привязанный к стилям Заголовок 1 - Заголовок 9

Sub Многоуровневый_список()
'
' макрос формирует новый многоуровневый список,
' привязанный к стилям Заголовок 1 - Заголовок 9
'
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "Часть %1"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0.76)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 1"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "§%1.%2"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.02)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 2"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "%1.%2.%3"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 3"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4)
        .NumberFormat = "%1.%2.%3.%4"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.52)
        .TabPosition = wdUndefined
        .ResetOnHigher = 3
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 4"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(5)
        .NumberFormat = "%1.%2.%3.%4.%5"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.78)
        .TabPosition = wdUndefined
        .ResetOnHigher = 4
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 5"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(6)
        .NumberFormat = "Приложение %6"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleUppercaseRussian
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.03)
        .TabPosition = wdUndefined
        .ResetOnHigher = 5
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 6"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7)
        .NumberFormat = "%6.%7"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.29)
        .TabPosition = wdUndefined
        .ResetOnHigher = 6
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 7"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8)
        .NumberFormat = "%6.%7.%8"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.54)
        .TabPosition = wdUndefined
        .ResetOnHigher = 7
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 8"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
        .NumberFormat = "%6.%7.%8.%9"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.79)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Заголовок 9"
    End With
    ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
        ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeList, _
        DefaultListBehavior:=wdWord10ListBehavior
End Sub

PS При редактировании сообщения не нашел кнопки "спрятать текст под спойлер".

9

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Это вы с кем сейчас разговариваете? Шучу  (перефразировал какую-то анекдотически-курьёзную ситуацию).
  Посмотрел что такое макросы, по вордовской справке … Это же, вроде, программирование… Это для меня сложновато … Не то, чтобы не справлюсь (если как-то, не знаю как, вгрызться), но есть же, вроде какой-то стандартный, специально для этого предназначенный способ или нет?

10

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

у вас весьма нестандартное хотение, так что без макросов не обойдетесь

увы................пора осваивать

11

Re: Возможно ли в автоматическом оглавлении проиндексирывать подпункты?

Да ну ... что-то не то ... Там же в Ворде где-то же даже каие-то формы-примеры этого есть ... Что-то не попадаются сейчас сходу ... На днях тыкался, тыкался где-то ... Там же даже где-то выбор такой структуры есть и где можно сразу и подписи к номерам пунктов/подпунктов нужные делать (судя по вордовской справке). Но у меня что-то не получилось.