Стили MS WORD 2007

[max38934]

Подскажите пожалуйста как сделать стилями следующие :

РОЗДІЛ 1

ОГЛЯД  ІСНУЮЧИХ ЗАСОБІВ ТА МЕТОДІВ ІДЕНТИФІКАЦІЇ В ІНФОРМАЦІЙНИХ СИСТЕМАХ

Т.е. как нужно настроить заголовок 1-го уровня, чтоб так получить и затем, чтоб получилось след-е в содержании:

РОЗДІЛ 1
ОГЛЯД  ІСНУЮЧИХ ЗАСОБІВ ТА МЕТОДІВ ІДЕНТИФІКАЦІЇ В ІНФОРМАЦІЙНИХ СИСТЕМАХ………………………..7

[viter.alex]

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

Итак:

1. Создайте стиль для абзаца с текстом РОЗДІЛ (в приложенном файле это стиль «Раздел»). Уровень 1.
2. Создайте стиль для заголовка, который идет после (в приложенном файле это стиль «_заголовок1». Уровень 2. Именнь второй уровень, потому что в содержании нам нужно будет скрыть номера для заголовков первого уровня.
3. Вставьте содержание. Оно вставится примерно так:
   

   Раздел 1 2
   Заголовок первого раздела 2
   Раздел 2 3
   Заголовок второго раздела 3
   Раздел 3 3
   Заголовок третьего раздела 4

4. Удалите номера страниц у заголовка первого уровня. Для этого нажмите Alt+F9. Ваше содержание примет вид: { TOC \o "1-3" \h \z \t "Раздел;1_заголовок;2" }. Чтобы убрать номера страниц у заголовка первого уровня, измените это поле к такому виду: { TOC \o "1-3" \h \z \t "Раздел;1_заголовок;2" \n 1-1}. Вновь нажмите Alt+F9
5. Поставьте курсор после заголовка первого уровня и нажмите Ctrl+Alt+Enter. В результате следующий абзац станет на одну строчку с предыдущим. Это так называемый разделитель стилей (штука, которая позволяет разместить на одной строке абзацы разных стилей)

См. пример

Добавлено позже
Поскольку у нас тут форум программистов, то позволю себе привести макрос, который вставит разделители стилей в выделенное содержание.

Sub InsertStyleSeparatorToTOC()
  Dim oRng As Range, iEnd&, sKeyWord$
  sKeyWord = InputBox("Введите слово, с которого начинается заголовок первого уровня.", "Вставка разделителя стилей в содержание", "Раздел")
  If sKeyWord = "" Then Exit Sub
  Set oRng = Selection.Range
  iEnd = Selection.End
  With oRng.Find
    .Text = sKeyWord & " [0-9]{1;}"
    .MatchWildcards = True
    While .Execute
      If .Parent.End <= iEnd Then
        .Parent.Collapse wdCollapseEnd
        .Parent.Select
        Selection.InsertStyleSeparator
      End If
    Wend
  End With
End Sub

Собственно для автора темы можно 5-й пункт опустить. Самое интересное в этом случае: удаление номеров страниц у заголовков первого уровня.

[max38934]

Спасибо за ответ, а Вы не могли привести пояснение к 4-му пункту. Я работаю в MS Word 2007, нажимаю Alt+F9 и ничего не происходит!

[viter.alex]

Alt+F9 производит переключение между отображением кода поля и его значением.
Если вы уже сформировали оглавление, то нажатие Alt+F9 переключит поле на отображение кода и наоборот, если отображается код поля, то Alt+F9 переключит на отображение содержимого. Переключаться будут все поля в документе, а не только то, где находится курсор

Макросом это делается так:

ActiveDocument.Fields.ToggleShowCodes

[max38934]

Подскажите, что делать со следущей проблемой в MS WORD 2007:
Использую перекрестные ссылки для вставки Рисунков, Word вставляет Рисунок 1.1, а мне надо рис.1.1. Заменяет все ок. Но при печати, док-т обно-ся и снова появляется Рисунок 1.1.
В параметрах печати галочки(2 шт) по обновлению выключены!
Что делать?