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

@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

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

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

Решение

Решение

Решение

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

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