Программный отступ в колонтитулах Word

@timal63 · Регистрация: 30.03.2010

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

Здравствуйте.
Подскажите пожалуйста, как реализовать отступ текста в колонтитуле

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim objWord As Object
Dim wbDoc As New Document
Dim wbPar As Paragraph
Dim wbHeadFoot As Word.HeaderFooter
objWord = CreateObject("Word.Application")
objWord.Visible = True
wbPar = wbDoc.Paragraphs.Add
        wbHeadFoot = wbDoc.Sections(1).Headers(WdHeaderFooterIndex.wdHeaderFooterPrimary)
        With wbHeadFoot
            With .Range
                With .InlineShapes.AddPicture("Colontitle_Up.jpg",, True)
                    .ScaleHeight = 100
                    .ScaleWidth = 100
                End With
                .InsertParagraphAfter()
            End With

Для всего документа получается сместить область поля в нулевую отметку,

VB.NET
1
2
3
4
5
6
7
8
9
10
 With wbDoc
            With .PageSetup
                .HeaderDistance = 0
                .FooterDistance = 0
                .LeftMargin = 0
            End With
        End With
        With wbPar
            .LeftIndent = 50
        End With

а затем изменить параграф для рабочей зоны в +, но хотелось бы менять отступ только в колонтитулах, не затрагивая рабочую область. Спасибо.

@ViterAlex · 24.07.2017, 16:33

Ведь ты уже получил Range у колонтитула в 10 строке. От него и пляши

@timal63 · 24.07.2017, 17:44 **[ТС]**

Сообщение от ViterAlex

Ведь ты уже получил Range у колонтитула в 10 строке. От него и пляши

Мозгом понимаю, относительно чего нужно плясать, но реализовать отступ только в колонтитулах не получается. (

@ViterAlex · 24.07.2017, 18:01

wdDoc.Sections(1).Headers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Paragraphs.LeftIndent

@timal63 · 25.07.2017, 09:37 **[ТС]**

Сообщение от ViterAlex

wdDoc.Sections(1).Headers(WdHeaderFooter Index.wdHeaderFooterPrimary).Range.Parag raphs.LeftIndent

Спасибо ) Конкретно тупил. Присваивал параметру .LeftIndent значение 0 и думал почему не работает )))

Добавлено через 9 минут
А каким образом можно изменить не отступ в колонтитуле, а сбросить на нулевую отметку ширину самого поля? По принципу, как это делается для страницы в целом?

VB.NET
1
2
3
4
5
6
7
With wbDoc
            With .PageSetup
                .HeaderDistance = 0
                .FooterDistance = 0
                .LeftMargin = 0
            End With
End With

Спасибо

@ViterAlex · 25.07.2017, 10:33

У объекта Section тоже есть PageSetup

@timal63 · 25.07.2017, 11:28 **[ТС]**

Сообщение от ViterAlex

У объекта Section тоже есть PageSetup

К сожалению

VB.NET
1
 wbDoc.Sections(1).PageSetup.LeftMargin = 0

смещает поле для всей страницы.
При попытке воткнуть PageSetup.LeftMargin в Range - выдает ошибку "Метод или свойство недоступны, поскольку выделенный фрагмент не содержится в окне главного документа."

@ViterAlex · 25.07.2017, 11:41

Видимо, я неправильно тебя понял. Какой именно отступ ты хочешь изменить и зачем?

@timal63 · 25.07.2017, 12:07 **[ТС]**

Сообщение от ViterAlex

Видимо, я неправильно тебя понял. Какой именно отступ ты хочешь изменить и зачем?

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

@ViterAlex · 25.07.2017, 12:28

Сообщение от timal63

поле колонтитула (не отступ) получилось загнать в нулевую отметку

Разве что сделать отступ отрицательным на ширину поля страницы

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@ViterAlex 8951 / 4863 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	24.07.2017, 16:33
	Ведь ты уже получил Range у колонтитула в 10 строке. От него и пляши 0

@ViterAlex 8951 / 4863 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	24.07.2017, 18:01
	Сообщение было отмечено timal63 как решение Решение `wdDoc.Sections(1).Headers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Paragraphs.LeftIndent` 1

@ViterAlex 8951 / 4863 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	25.07.2017, 10:33
	У объекта Section тоже есть PageSetup 0

@ViterAlex 8951 / 4863 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	25.07.2017, 11:41
	Видимо, я неправильно тебя понял. Какой именно отступ ты хочешь изменить и зачем? 1

Программный отступ в колонтитулах Word

Решение