Создание структуры на первой странице документа

@EdoBedo · Регистрация: 27.03.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть много документов word, в каждом много заголовков, но нет структуры(содержания) можно ли сделать макрос, чтобы создавать структуру документа автоматически на первом листе?

Добавлено через 22 минуты
запись макросов вот что выводит:

Visual Basic
1
2
3
4
    Application.Templates( _
        "C:\Users\te\AppData\Roaming\Microsoft\Document Building Blocks\1049\15\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Автособираемое оглавления 1").Insert Where:= _
        Selection.Range, RichText:=True

Он работает, но если я буду выполнять на другом компьютере то путь придется менять. От пути как можно избавится?

@KoGG · 15.05.2015, 11:15

Надо было записать макрос другим способом, без использования шаблона:

Visual Basic
1
2
3
4
5
6
7
8
9
With ActiveDocument
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
End With

@EdoBedo · 15.05.2015, 13:52 **[ТС]**

KoGG, Спасибо, работает!

Добавлено через 1 час 59 минут
KoGG, еще вопрос, вставил код в форму документа, он вставляет на первую страницу вместе с текстом, как сделать чтобы это содержание было только на первой странице, а текст и остальное на следующих

@KoGG · 15.05.2015, 14:29

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Selection.HomeKey wdStory
With ActiveDocument
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
End With
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertBreak Type:=wdPageBreak

@EdoBedo · 15.05.2015, 15:19 **[ТС]**

KoGG, мой код ниже, выводит выбранный заголовок в новый документ, я вставил ваш код, и при выполнение его, сколько я заголовков вывел, столько и дублируется содержание страниц.
Например я вывел 5 заголовков, и у меня первые пять страниц идет содержание. Можете помочь?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 Dim wd As Document
  Dim wd_temp As Document
    Set wd = Documents.Add
    wd.Save
    For i = 0 To ListBox3.ListCount - 1
        Set wd_temp = Documents.Open(ListBox3.List(i, 2) & "\" & ListBox3.List(i, 1))
        wd_temp.Activate
        Selection.GoTo what:=wdGoToHeading, which:=wdGoToAbsolute, Count:=ListBox3.List(i, 3)
        Selection.ExtendMode = True
        Selection.GoTo what:=wdGoToHeading, which:=wdGoToNext
        Selection.Copy
           wd.Activate
     With wd.PageSetup
           .MirrorMargins = True
           .TwoPagesOnOne = False
           .SectionStart = wdSectionNewPage
           .OddAndEvenPagesHeaderFooter = True
           .DifferentFirstPageHeaderFooter = False
     End With
     wd.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
        Selection.EndKey Unit:=wdStory
        Selection.Paste
 
              Selection.HomeKey wdStory
With wd
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
End With
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertBreak Type:=wdPageBreak
    wd.Save
    Call wd.Sections.Last.Range.Find.Execute(FindText:="^b", _
                                                     ReplaceWith:="", _
                                                     Replace:=wdReplaceOne)
    
    wd.Save
        wd_temp.Close SaveChanges:=wdDoNotSaveChanges
    Next
   wd.Close

@KoGG · 15.05.2015, 15:58

Мой блок и wd.Save надо вставить в конце после Next и перед wd.Close

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Создание структуры на первой странице документа

Решение

Решение

Решение

@EdoBedo 1 / 1 / 0 Регистрация: 27.03.2015 Сообщений: 36
	15.05.2015, 13:52 [ТС]
	KoGG, Спасибо, работает! Добавлено через 1 час 59 минут KoGG, еще вопрос, вставил код в форму документа, он вставляет на первую страницу вместе с текстом, как сделать чтобы это содержание было только на первой странице, а текст и остальное на следующих 0

@KoGG 5637 / 1619 / 418 Регистрация: 23.12.2010 Сообщений: 2,428 Записей в блоге: 1
	15.05.2015, 15:58
	Сообщение было отмечено EdoBedo как решение Решение Мой блок и wd.Save надо вставить в конце после Next и перед wd.Close 1