Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
1 / 1 / 0
Регистрация: 27.03.2015
Сообщений: 36

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

15.05.2015, 09:27. Показов 2683. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, есть много документов 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
Он работает, но если я буду выполнять на другом компьютере то путь придется менять. От пути как можно избавится?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.05.2015, 09:27
Ответы с готовыми решениями:

Вывод подписей на первой странице табличного документа
Всем привет! Делаю печатную форму. В ней шапка, табличная часть, итоги и подписи. Нужно, чтобы подписи выводились на каждой странице....

1с УТ 10.3. Создание документа на основании при проведении другого документа. Реализация механизма перепроведения.
Доброго времени суток, задача стояла при проведении одного документа1, создавался другой документ2 и проводился, это я сделал, но если...

Автоматическое создание документа на основании другово документа
У меня возникла проблема, как сделать так чтобы при создании Документа1 создавались и заполнялись данные в Документе 2 и Документе 3, а...

5
 Аватар для KoGG
5645 / 1627 / 418
Регистрация: 23.12.2010
Сообщений: 2,448
Записей в блоге: 1
15.05.2015, 11:15
Лучший ответ Сообщение было отмечено EdoBedo как решение

Решение

Надо было записать макрос другим способом, без использования шаблона:
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
1
1 / 1 / 0
Регистрация: 27.03.2015
Сообщений: 36
15.05.2015, 13:52  [ТС]
KoGG, Спасибо, работает!

Добавлено через 1 час 59 минут
KoGG, еще вопрос, вставил код в форму документа, он вставляет на первую страницу вместе с текстом, как сделать чтобы это содержание было только на первой странице, а текст и остальное на следующих
0
 Аватар для KoGG
5645 / 1627 / 418
Регистрация: 23.12.2010
Сообщений: 2,448
Записей в блоге: 1
15.05.2015, 14:29
Лучший ответ Сообщение было отмечено EdoBedo как решение

Решение

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
1
1 / 1 / 0
Регистрация: 27.03.2015
Сообщений: 36
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
0
 Аватар для KoGG
5645 / 1627 / 418
Регистрация: 23.12.2010
Сообщений: 2,448
Записей в блоге: 1
15.05.2015, 15:58
Лучший ответ Сообщение было отмечено EdoBedo как решение

Решение

Мой блок и wd.Save надо вставить в конце после Next и перед wd.Close
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.05.2015, 15:58
Помогаю со студенческими работами здесь

Удаление на каждой странице пол документа
Помогите с документом в нем порядка 1500 страниц и на каждой странице мне нужно только верхняя половина страницы. Как мне удалить нижнюю...

Как я оказался на первой странице в Яндексе?
Я тут оказался по слову Дока на первой странице в яндексе. Это глюк, случайность или закономерно? сайт http://doka-ua.com/ Всякие...

Оптимальное количество текста на первой странице ?
Каково ориентировачно оптимальное количество символов на первой странице ?

Обращение ко всем кнопкам на странице документа Word
На странице Word документа есть около 10 кнопок. Как мне с помощью VBA обратиться ко всем этим кнопкам и задать им свойство Enabled = false?

Вывод информации из документа Excel на ASP странице
Люди! У меня есть файл Excel и мне надо бы сделать его доступным для скачивания с асп страницы, а также хотел спросить можно ли вывести его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru