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

@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

Новые блоги и статьи Все статьи Все блоги /
Полиглотные микросервисы на C# и .NET ArchitectMsa 30.06.2025 Полиглотная архитектура появилась не из желания усложнить жизнь разработчикам. Она родилась из практической необходимости решать разные задачи наиболее эффективным способом. В одном из проектов. . .	Стратегии кеширования Javaican 29.06.2025 Кеширование — это хранение часто запрашиваемых данных в быстром хранилище (обычно в памяти), чтобы не обращаться к более медленному первоисточнику. Казалось бы, все просто. Но за этой простотой. . .	Наблюдаемость приложений ASP.NET Core с OpenTelemetry, Prometheus и Grafana ArchitectMsa 29.06.2025 Наблюдаемость (observability) – это ключевое свойство современной системы, позволяющее понимать её внутреннее состояние на основе внешних данных. Если мониторинг отвечает на вопрос "что случилось?",. . .	Четыре главных модели отношений классов в с++ russiannick 28.06.2025 Продолжаю крестовый поход против c++. ideone. com/ юзаю для проверки валидности кода. Насчитал 4 модели отношений классов: одиночный класс, равноправные классы, слейв - мастер, терминатор. . . .	Вложенные корутины в Unity GameUnited 28.06.2025 Работа с корутинами в Unity кажется простой до тех пор, пока не начинаешь их вкладывать друг в друга. Я потратил несколько месяцев на изучение этого механизма, и до сих пор иногда ловлю себя на том,. . .
Управление Arduino на C# через последовательный порт Wired 28.06.2025 Когда я впервые попробовал заставить Arduino общаться с моим C# приложением, казалось, что эти два мира существуют параллельно и никогда не пересекутся. Микроконтроллер упорно моргал встроенным. . .	Основы OpenGL 3.3 и Qt 6.9. Трансформированный треугольник 8Observer8 27.06.2025 Содержание блога На русском https:/ / rutube. ru/ video/ e424497dd6b7ae7e11494027c4b31a54/ https:/ / vkvideo. ru/ video-231040171_456239019 https:/ / www. youtube. com/ watch?v=mfD-ZL7wa_4	Федерация аутентификации на основе JWT-токенов с Keycloak и .NET в гетерогенных инфраструктурах ArchitectMsa 27.06.2025 Тот самый момент, когда впервые столкнулся с проблемой интеграции десятка разрозненных систем аутентификации в одной корпоративной экосистеме. Кажый сервис жил своей жизнью - тут Basic Auth, там. . .	Гайд по современным СУБД (небесспорный) Codd 26.06.2025 Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .	Использование C# с AWS S3: Примеры с AWS SDK для .NET stackOverflow 26.06.2025 Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .

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

Решение

Решение

Решение

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

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