Ворд: работа с колонтитулами

@Mikkelle · Регистрация: 03.11.2009

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

Как программно можно получить номер раздела документа по текущему положению курсора?
С уважением

@Busine2009 · 09.02.2010, 20:13

Mikkelle,

Visual Basic
1
2
3
Sub SectionNumber()
MsgBox Selection.Information(wdActiveEndSectionNumber)
End Sub

А что ты там делаешь?

@Mikkelle · 10.02.2010, 09:55 **[ТС]**

Глобальная затея такова. В месте положения курсора вставлять раздел из одного листа с требуемыми параметрами (формат, ориентация, колонтитулы и т.д.)

@Busine2009 · 10.02.2010, 21:46

Mikkelle,
лист - это Excel. Word - это страница. Ты о ворде ведёшь речь или нет?
То есть тебе нужен Формат по образцу Раздела, я как-то тоже задавал этот вопрос в Форумах, но не получил ответа.
Т.е. тебе нужно передать параметры определённого Раздела в другой раздел? Тогда при чём здесь узнавание номера Раздела?
Дай ещё намёк.

@Mikkelle · 10.02.2010, 22:49 **[ТС]**

Прошу прощения за терминологию, ты абсолютно прав.
Из своего проекта я тайны не делаю. Попытаюсь объяснить подробнее. Есть документ оформленный по ГОСТу. Колонтитулы содержат объекты (таблицы, поля, графические объекты и т.д.) Зачастую бывает необходимость представить часть страниц в горизонтальном формате, но так, что бы колонтитулы оказались как бы повернуты на 90 градусов.
Путей решения данной проблемы много. Перебираю их по очереди и смотрю, что наиболее приемлемо. В частности при реализации данного проекта путем использования адаптированных макросов столкунулся с тем, что при выключении опции колонтитула "как в предыдущем разделе" курсор "сбегает" из текущего раздела. Вот и понадобилось как-то возвращать его на место.
К стати был бы очень признателен за ссылки на информационные ресурсы по Word VBA. Для меня после VB это такая большая проблема. Сталкиваешься то с глюками, то с нововведениями, а особеноо 2007 - это нечто. Не говорю, что он плох, но привыкать к новому крайне затруднительно.
Спасибо, что откликаетесь. Сути вашей проблемы тоже не понял, но если хотите, можете изложить подробнее или дать ссылку. Просто времени крайне мало, что бы просматривать все подряд.
С уважением.

@Busine2009 · 10.02.2010, 22:55

Mikkelle,
я вообще туго соображаю, а сейчас ещё и 1,5 л балтики 9 выпил, так что вообще не понимаю. Вставьте какой-нибудь пример что ли или графически изобразите, что вам надо, а то не догоняю - или пишите конкретные вопросы, а не глобально.
Не советую использовать Таблицы в Колонтитулах - программа Ворд - недоделанная.

@Busine2009 · 11.02.2010, 20:13

Mikkelle,
После рисунков.
Затем надо это скопировать.
Затем перейти в тот раздел, который нужно изменить и сделать то же самое, что на рисунках. Затем надо Вставить.

Если нужно скопировать параметры Последнего раздела, то предварительно надо вствить Разрыв раздела, скопировать его, а зетем, если он не нужен, то удалить.

Можно добавить параметры Раздела в Автотекст – смотри Справку. Затем просто выделять Разрыв раздела, который нужно изменить, и применять Автотекст.

Как сделать это программным путем – пока не знаю, может быть только какими-нибудь извращенными способами, если тебе очень надо – то можно попробовать.

Суть будет в том, что с помощью VBA будем выделять эти самые Разрывы разделов, затем переходить к Разрыву раздела, к которому нужно применить форматирование, а затем производить вставку (аналог Ctrl + C).

@Mikkelle · 11.02.2010, 23:50 **[ТС]**

А какой функцией можно определить свойство колонтитула "как в предыдущем разделе", при этом не входя в режим редактирования колонтитулов?

@Busine2009 · 12.02.2010, 07:48

Mikkelle,
запиши макрос с помощью макрорекордера и посмотри код.

@Mikkelle · 13.02.2010, 12:52 **[ТС]**

Эту функцию я знаю, но я указал в вопросе функцию, которая функционирует без выхода в режим редактирования колонтитулов!

@Busine2009 · 13.02.2010, 12:55

Mikkelle,
вставь код, который ты знаешь?

@Mikkelle · 14.02.2010, 11:51 **[ТС]**

PureBasic
1
2
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = false

Без первой строки, вторая дает ошибку.

@Busine2009 · 14.02.2010, 12:18

Mikkelle,

Visual Basic
1
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).LinkToPrevious = False

Добавлено через 22 минуты
Это будет применяться для раздела, где находится курсор

Visual Basic
1
Selection.Sections(1).Headers(wdHeaderFooterPrimary).LinkToPrevious = False

@Mikkelle · 14.02.2010, 18:37 **[ТС]**

Большое спасибо!!! Я полагаю Seections(1) это то чего мне не хватало.
Подскажи тогда еще, как обратиться к объекту "поле", находящемуся в ячейке таблицы, которая в свою очередь находится в "надписи" и все это хозяйство в колонтитуле?

@Busine2009 · 14.02.2010, 19:26

Mikkelle,
зачем таблица находится в надписи?

@Mikkelle · 14.02.2010, 19:59 **[ТС]**

А тут получается очень хитрая ситуация. Допустим, я хочу иметь таблицу в колонтитулах. Если ее (таблицу) поместить в колонтитулы просто так, то каким-то странным образом он начинает влиять на основной текст. При прежних покзателях параметров полей страницы печатная область основного текста "корячится" как угодно (можешь попробовать сам, меня при этом свойства таблицы). Возможно это какой то из глюков Ворда, потому что при определенных "танцах с бубном" это припятствие преодолеть удается. Другое дело, если таблица помещена в надпись и сама надпись имеет обтекание "разместить за текстом" (например). Если попробуешь, увидишь разницу сам. Вот где так.

@Busine2009 · 14.02.2010, 20:04

Mikkelle,
а вставь образец своего колонтитула сюда.

@Mikkelle · 14.02.2010, 20:09 **[ТС]**

Прошу прощения, не понял, куда именно вставить?

@Busine2009 · 14.02.2010, 20:13

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

@Mikkelle · 15.02.2010, 02:11 **[ТС]**

Вот что-то типа такого.
Таблица в колонтитуле а по верх нее должен идти основной текст.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92

	Ворд: работа с колонтитулами 09.02.2010, 19:43. Показов 16366. Ответов 37 Метки нет (Все метки) Как программно можно получить номер раздела документа по текущему положению курсора? С уважением 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	10.02.2010, 09:55 [ТС]
	Глобальная затея такова. В месте положения курсора вставлять раздел из одного листа с требуемыми параметрами (формат, ориентация, колонтитулы и т.д.) 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	10.02.2010, 21:46
	Mikkelle, лист - это Excel. Word - это страница. Ты о ворде ведёшь речь или нет? То есть тебе нужен Формат по образцу Раздела, я как-то тоже задавал этот вопрос в Форумах, но не получил ответа. Т.е. тебе нужно передать параметры определённого Раздела в другой раздел? Тогда при чём здесь узнавание номера Раздела? Дай ещё намёк. 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	10.02.2010, 22:49 [ТС]
	Прошу прощения за терминологию, ты абсолютно прав. Из своего проекта я тайны не делаю. Попытаюсь объяснить подробнее. Есть документ оформленный по ГОСТу. Колонтитулы содержат объекты (таблицы, поля, графические объекты и т.д.) Зачастую бывает необходимость представить часть страниц в горизонтальном формате, но так, что бы колонтитулы оказались как бы повернуты на 90 градусов. Путей решения данной проблемы много. Перебираю их по очереди и смотрю, что наиболее приемлемо. В частности при реализации данного проекта путем использования адаптированных макросов столкунулся с тем, что при выключении опции колонтитула "как в предыдущем разделе" курсор "сбегает" из текущего раздела. Вот и понадобилось как-то возвращать его на место. К стати был бы очень признателен за ссылки на информационные ресурсы по Word VBA. Для меня после VB это такая большая проблема. Сталкиваешься то с глюками, то с нововведениями, а особеноо 2007 - это нечто. Не говорю, что он плох, но привыкать к новому крайне затруднительно. Спасибо, что откликаетесь. Сути вашей проблемы тоже не понял, но если хотите, можете изложить подробнее или дать ссылку. Просто времени крайне мало, что бы просматривать все подряд. С уважением. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	10.02.2010, 22:55
	Mikkelle, я вообще туго соображаю, а сейчас ещё и 1,5 л балтики 9 выпил, так что вообще не понимаю. Вставьте какой-нибудь пример что ли или графически изобразите, что вам надо, а то не догоняю - или пишите конкретные вопросы, а не глобально. Не советую использовать Таблицы в Колонтитулах - программа Ворд - недоделанная. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	11.02.2010, 20:13
	Mikkelle, После рисунков. Затем надо это скопировать. Затем перейти в тот раздел, который нужно изменить и сделать то же самое, что на рисунках. Затем надо Вставить. Если нужно скопировать параметры Последнего раздела, то предварительно надо вствить Разрыв раздела, скопировать его, а зетем, если он не нужен, то удалить. Можно добавить параметры Раздела в Автотекст – смотри Справку. Затем просто выделять Разрыв раздела, который нужно изменить, и применять Автотекст. Как сделать это программным путем – пока не знаю, может быть только какими-нибудь извращенными способами, если тебе очень надо – то можно попробовать. Суть будет в том, что с помощью VBA будем выделять эти самые Разрывы разделов, затем переходить к Разрыву раздела, к которому нужно применить форматирование, а затем производить вставку (аналог Ctrl + C). Миниатюры 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	11.02.2010, 23:50 [ТС]
	А какой функцией можно определить свойство колонтитула "как в предыдущем разделе", при этом не входя в режим редактирования колонтитулов? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	12.02.2010, 07:48
	Mikkelle, запиши макрос с помощью макрорекордера и посмотри код. 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	13.02.2010, 12:52 [ТС]
	Эту функцию я знаю, но я указал в вопросе функцию, которая функционирует без выхода в режим редактирования колонтитулов! 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	13.02.2010, 12:55
	Mikkelle, вставь код, который ты знаешь? 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	14.02.2010, 18:37 [ТС]
	Большое спасибо!!! Я полагаю Seections(1) это то чего мне не хватало. Подскажи тогда еще, как обратиться к объекту "поле", находящемуся в ячейке таблицы, которая в свою очередь находится в "надписи" и все это хозяйство в колонтитуле? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.02.2010, 19:26
	Mikkelle, зачем таблица находится в надписи? 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	14.02.2010, 19:59 [ТС]
	А тут получается очень хитрая ситуация. Допустим, я хочу иметь таблицу в колонтитулах. Если ее (таблицу) поместить в колонтитулы просто так, то каким-то странным образом он начинает влиять на основной текст. При прежних покзателях параметров полей страницы печатная область основного текста "корячится" как угодно (можешь попробовать сам, меня при этом свойства таблицы). Возможно это какой то из глюков Ворда, потому что при определенных "танцах с бубном" это припятствие преодолеть удается. Другое дело, если таблица помещена в надпись и сама надпись имеет обтекание "разместить за текстом" (например). Если попробуешь, увидишь разницу сам. Вот где так. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.02.2010, 20:04
	Mikkelle, а вставь образец своего колонтитула сюда. 0

@Mikkelle 1 / 1 / 0 Регистрация: 03.11.2009 Сообщений: 92
	14.02.2010, 20:09 [ТС]
	Прошу прощения, не понял, куда именно вставить? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.02.2010, 20:13
	Mikkelle, файл сюда можно вставить. Где пишешь, ниже есть расширенный режим, там можно файл вставить. Ты свои данные замени другими словами, чтобы просто представление иметь, что у тебя за колонтитул. 0