Как сделать таблицу в колонтитуле word

Как сделать таблицу в колонтитуле word

Мучаюсь, не получается поднять таблицу к
верхнему краю нижнего колонтитула!
Можно ли что-нибудь сделать или это
в технических возможностях программы?

Последний раз редактировалось dimon_hub; 16.09.2010 в 10:35 .
Регистрация: 29.07.2009
Сообщений: 565
Репутация: 30

dimon_hub,
чтобы это сделать, в нижнем колонтитуле должен быть пустой абзац в самом верху колонтитула (см. рисунок — знак абзаца).
Таблица — Свойства — Таблица — Обтекание «Вокруг» — Размещение — По горизонтали: положение «Слева», относительно «поля»; По вертикали: положение «0 см, относительно «Абзаца» — Окей.

Может есть и др. способы.

Регистрация: 16.09.2010
Сообщений: 3
Репутация: 0

Может быть есть информация по такому вопросу:

После установки защиты на файл (защита нужна для работы с полями со списком) невозможно править колонтитулы.
Можно ли как-нибудь решить эту проблему? Может быть есть какой-нибудь макрос?

Регистрация: 29.07.2009
Сообщений: 565
Репутация: 30

dimon_hub,
с помощью макросов можно делать то же самое, что и с помощью интерфейса программы: если с помощью интерфейса нельзя зайти в колонтитул во время защиты, то значит и с помощью макросов нельзя это сделать. Назначение макросов — ускорение работы, а не в том, чтобы обходить какие-то ситуации.

Предлагаю не использовать элементы форм, а использовать элементы управления.
Пр. кн. мыши по Стандартной панели инструментов — Элементы управления.
При использовании элементов управления возможен вход в колонтитулы.

Таблицы в колонтитулах для блондинок

Инструкция по созданию рамок в колонтитулах для сдачи сдачи проектной документации согласно ГОСТ Р 21.1101-2009.

Описание создания рамок на базе Microsoft Word 2003

Запускаем MS Word, создаем новый документ, в меню выбираем Файл – Параметры страницы

В выпавшем окне устанавливаем поля страницы. Верхнее 0,5 см, Левое 2 см, Нижнее 0,5см, Правое 0,5см

В меню программы Word нажимаем Вид – Колонтитулы, нажимаем значок Параметры страницы и на вкладке Источник бумаги, в разделе Различать колонтитулы отмечаем чеком первой страницы.

Данная процедура необходима для того чтобы на листах были разные колонтитулы, или что бы данный колонтитул был только на 1 странице.

Для создания рамки нам потребуется панель инструментов Рисование, вызвать её можно нажав правой клавишей мыши на панели инструментов и отметив Рисование.

На панели рисования кликнем по прямоугольнику.

Начертим прямоугольник произвольной формы

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

На вкладке Размер, выставим размеры рамки. Мы знаем, что высота листа А4 равна 29,7 см, а ширина 21 см. По ГОСТу левый отступ 2 см, верхний, правый, нижний отступ равны 0,5 см. Вычисляем нашу высоту 29,7-0,5-0,5=28,7 Ширина 21-2-0,5=18,5

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

Положение рисунка По вертикали ставим 0,5см и выбираем относительно Страницы.

В результате у нас получилась рамка в колонтитуле согласно ГОСТа.

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

Теперь перейдем к созданию табличной части.

Есть много вариантов как рисовать таблицу, мне показалось проще вставить таблицу 11 строк на 10 столбцов, а потом объединить некоторые ячейки.

Открываем Колонтитулы, на панели инструментов Колонтитулы нажимаем кнопку Нижний колонтитул

идем в меню Word Таблица – Вставить — Таблица

Выставляем Число столбцов 10, Число строк 11

Далее необходимо зайти в свойства таблицы, для этого правой кнопкой мыши нажимаем на значке объекта или выделяем всю таблицу и нажимаем правой кнопкой на выделенном.

В выпавшем вспомогательном меню входим в Свойства таблицы.

На вкладке Таблица, отмечаем чеком Ширина, выставляем размер 18,5 см, единицы ставим Сантиметры, нажимаем кнопку Параметры, поля ячеек ставим 0 см, снимаем чек автоподбор размеров по содержимому.

Для того что бы наша таблица встала на нужное место нужно активировать кнопку Размещение, для этого необходимо выбрать обтекание вокруг.

Явно указываем положение по горизонтали 2 см относительно Страницы, и положение по вертикали 29,7 см (высота листа) — 0,5 см (верхнее поле) – 5,5 см (высота таблицы) = 23,7 см , ставим чек разрешить перекрытие.

На вкладке Строка ставим чек высота размер 0,5 см, режим – Точно, снимаем чек разрешить перенос строк на следующую страницу.

На вкладке столбец кнопками Предыдущий столбец/Следующий столбец, выбираем Столбец 1, выставляем ему размер 1 см, нажимаем кнопку Следующий столбец.

Для столбец 1 – 1 см, для столбец 2 – 1 см, для столбец 3 – 1 см, для столбец 4 – 1 см, для столбец 5 – 1,5 см, для столбец 6 – 1 см, для столбец 7 – 7 см, для столбец 8 – 1,5 см, для столбец 9 – 1,5 см, для столбец 10 – 2 см.

В результате у нас должна получится такая таблица в нижнем колонтитуле.

Нужно объединить ячейки, что бы получился штамп по ГОСТ.

Для этого выделяем необходимые ячейки, нажимаем правой клавишей, и вспомогательном меню нажимаем Объединить ячейки.

После объединения ячеек наша таблица должна выглядеть так.

Для заполнения ячеек нам потребуется шрифт GOST type A, хотя курсив шрифта ISOCPEUR, похож на чертежный шрифт.

Скачиваем шрифт GOST type A, распаковываем его в папку. Нажимаем Пуск – Настройка – Панель управления – Шрифты. В меню шрифты нажимаем Файл – Установить шрифт, открываем папку с шрифтом, он должен появится в списке шрифтов и нажимаем ОК.

Теперь мы в Word можем выбрать шрифт и заполнить таблицу.

Для автоматической нумерации страниц в ячейку лист, вставим Поле номера страницы, а для ячейки листов, вставим Поле число страниц.

Теперь необходимо вставить таблицу в левый нижний угол.

Чтобы не было удобней работать, Я бы рекомендовал таблицы создавать отдельно, а уже созданные таблицы вставить в колонтитул.

Левую таблицу придется составлять из двух разных таблиц.

Для начала создаем нижнюю часть таблицы, для этого идем в меню Word Таблица – Вставить – Таблица , число столбцов 2 число строк 3.

Заходим в свойство таблицы, на вкладке Tаблица, указываем параметры как на рисунке внизу.

На вкладке Строка Строка 1 = 2,5 см, Строка 2 = 3,5 см, Строка 3 = 2,5 см.

На вкладке Столбец Столбец 1 = 0,5 см, Столбец 2 = 0,7 см

Создаем ещё одну таблицу 4 Х 4

В свойствах таблицы проставляем значения как на рисунке.

На вкладке Строка Строка 1 = 1 см, Строка 2 = 1,5 см, Строка 3 = 2 см, Строка 4 = 2 см.

На вкладке Столбец Столбцы 1-4 = 0,5 см.

Теперь вставляем эти таблицы в колонтитул и у нас должна получится такая страница.

Для последующих страниц необходимо вставить таблицу с размерами, которые указаны на нижнем рисунке.

Еще записи по вопросам использования Microsoft Word:

• 10 полезных заметок о колонтитулах
• 3 способа очистки списка недавно открытых документов
• Microsoft Office: популярные команды на одной вкладке
• SQL для начинающих: изучите SQL онлайн за 9 часов
• Word 2007: полотно, рисунки, линии
• Word 97. Слияние документов как один из способов упростить свою работу
• Абзац с цветным фоном
• Автозаполняемые колонтитулы
• Автоматизация текстового набора в Word
• Автоматическая запись макроса
• Автоматическая нумерация билетов
• Автоматическое обновление полей при открытии документа
• Автоматическое сохранение всех открытых документов
• Автотекст с последовательной нумерацией
• Автоформат документов
• Белый текст на синем фоне: ностальгия по DOS
• Буквица
• Быстрая смена ориентации страниц документа
• Быстрое выделение идущих рядом слов
• Быстрое изменение стиля форматирования текста
• Быстрое перемещение между открытыми документами Word
• Быстрое создание списков в документе
• Быстрое удаление границ у таблицы
• Быстрый доступ к диалоговому окну Параметры страницы
• Быстрый поиск форматированного текста

Как сделать таблицу в колонтитуле word

Добрый вечер, коллеги.

Снова обращаюсь с тупым вопросом по выгрузке в Word. Суть проблемы — имеетеся рабочий код, который создаёт таблицу 3 на 4, после чего объединяет две ячейки
[vba]

Sub export()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

[/vba]
Задача состоит в том, чтобы эту таблицу поместить в верхний колонтитул.
Это я сделал, но не могу сделать объединение ячеек —
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
‘на кусок кода дальше ругается — error 5941 запрашиваемый номер семейства не существует
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

Может кто-нибудь подсказать, как к таблице в колонтитуле обратиться?

Добрый вечер, коллеги.

Снова обращаюсь с тупым вопросом по выгрузке в Word. Суть проблемы — имеетеся рабочий код, который создаёт таблицу 3 на 4, после чего объединяет две ячейки
[vba]

Sub export()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

[/vba]
Задача состоит в том, чтобы эту таблицу поместить в верхний колонтитул.
Это я сделал, но не могу сделать объединение ячеек —
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
‘на кусок кода дальше ругается — error 5941 запрашиваемый номер семейства не существует
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

Может кто-нибудь подсказать, как к таблице в колонтитуле обратиться?

К сообщению приложен файл: 5860712.xlsm (16.7 Kb)

Сообщение Добрый вечер, коллеги.

Снова обращаюсь с тупым вопросом по выгрузке в Word. Суть проблемы — имеетеся рабочий код, который создаёт таблицу 3 на 4, после чего объединяет две ячейки
[vba]

Sub export()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

[/vba]
Задача состоит в том, чтобы эту таблицу поместить в верхний колонтитул.
Это я сделал, но не могу сделать объединение ячеек —
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
‘на кусок кода дальше ругается — error 5941 запрашиваемый номер семейства не существует
.Documents(1).Range( _
.Documents(1).Tables(1).Rows(2).Cells(2).Range.Start, _
.Documents(1).Tables(1).Rows(2).Cells(3).Range.End).Select
.Selection.Cells.Merge
.Activate
End With
End Sub

Может кто-нибудь подсказать, как к таблице в колонтитуле обратиться?

Заранее признателен Автор — buchlotnik
Дата добавления — 04.08.2016 в 23:25

Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Замечаний: 0% ±

Excel 2010, 2016
Михаил, здравствуйте, у меня вот так получилось:
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.ActiveWindow.ActivePane.View.SeekView = 9
‘сразу диапазон выделить не получилось
.Selection.Tables(1).Cell(2, 2).Select
.Selection.MoveRight Unit:=1, Count:=1, Extend:=1
.Selection.Cells.Merge
.ActiveWindow.ActivePane.View.SeekView = 0
.Activate
End With
End Sub

Михаил, здравствуйте, у меня вот так получилось:
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.ActiveWindow.ActivePane.View.SeekView = 9
‘сразу диапазон выделить не получилось
.Selection.Tables(1).Cell(2, 2).Select
.Selection.MoveRight Unit:=1, Count:=1, Extend:=1
.Selection.Cells.Merge
.ActiveWindow.ActivePane.View.SeekView = 0
.Activate
End With
End Sub

Сообщение Михаил, здравствуйте, у меня вот так получилось:
[vba]

Sub export2()
With CreateObject(«Word.Application»)
.Visible = True
.Documents.Add
.Documents(1).Tables.Add Range:=.Documents(1).Sections(1).Headers(1).Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
.ActiveWindow.ActivePane.View.SeekView = 9
‘сразу диапазон выделить не получилось
.Selection.Tables(1).Cell(2, 2).Select
.Selection.MoveRight Unit:=1, Count:=1, Extend:=1
.Selection.Cells.Merge
.ActiveWindow.ActivePane.View.SeekView = 0
.Activate
End With
End Sub

[/vba] Автор — Manyasha
Дата добавления — 05.08.2016 в 00:35
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте, а у мну вот так
[vba]

Sub export2()
Dim rng
With CreateObject(«Word.Application»)
.Visible = True
With .Documents.Add.Sections(1).Headers(1)
With .Range.document.tables.Add(Range:=.Range, NumRows:=3, _
NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
Set rng = .Cell(2, 2).Range
rng.End = .Cell(2, 3).Range.End
rng.Cells.Merge
End With
End With
.Activate
End With
End Sub

Здравствуйте, а у мну вот так
[vba]

Sub export2()
Dim rng
With CreateObject(«Word.Application»)
.Visible = True
With .Documents.Add.Sections(1).Headers(1)
With .Range.document.tables.Add(Range:=.Range, NumRows:=3, _
NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
Set rng = .Cell(2, 2).Range
rng.End = .Cell(2, 3).Range.End
rng.Cells.Merge
End With
End With
.Activate
End With
End Sub

Сообщение Здравствуйте, а у мну вот так
[vba]

Sub export2()
Dim rng
With CreateObject(«Word.Application»)
.Visible = True
With .Documents.Add.Sections(1).Headers(1)
With .Range.document.tables.Add(Range:=.Range, NumRows:=3, _
NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
Set rng = .Cell(2, 2).Range
rng.End = .Cell(2, 3).Range.End
rng.Cells.Merge
End With
End With
.Activate
End With
End Sub

[/vba] Автор — krosav4ig
Дата добавления — 05.08.2016 в 01:00
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Ух ты! Спасибо девчата (и ребята)
Пашет и так, и так на ура — пошёл объектную модель Ворда штудировать (ведь крутил .ActivePane да недокрутил)
Спасибо!

Ух ты! Спасибо девчата (и ребята)
Пашет и так, и так на ура — пошёл объектную модель Ворда штудировать (ведь крутил .ActivePane да недокрутил)
Спасибо! buchlotnik

Сообщение Ух ты! Спасибо девчата (и ребята)
Пашет и так, и так на ура — пошёл объектную модель Ворда штудировать (ведь крутил .ActivePane да недокрутил)
Спасибо! Автор — buchlotnik
Дата добавления — 05.08.2016 в 01:17

Как вставить таблицу в колонтитулы

Колонтитул – это информация, которая записана на верхнем или нижнем поле страницы. Обычно в колонтитулы помещают информацию об организации, например: факс, телефон, юридический и фактический адрес и т.д.

Колонтитул – это информация, которая записана на верхнем или нижнем поле страницы. Обычно в колонтитулы помещают информацию об организации, например: факс, телефон, юридический и фактический адрес и т.д. Иногда на полях размещают различные изображения и картинки, чтобы придать документу неформальный вид. Колонтитулы могут отдельно отображаться на четных и нечетных листах. Также они могут быть применимы ко всему документу, исключая первую страницу. На поле также можно поместить таблицу с определенными данными.

1. Чтобы вставить таблицу в колонтитул, следует сначала найти его. Самый простой и верный способ – двойной щелчок по верхнему или нижнему пустому полю. Вы сразу переходите в раздел «работа с колонтитулами» > «конструктор».

2. Второй способ добавить колонтитул: открываете вкладку «вставка» на главной панели задач. Далее находите раздел «колонтитулы» (пятый слева — направо). И выбираете, какой колонтитул вам нужен: верхний или нижний.

3. После того как вы открыли пустое поле, из раздела «конструктор» следует перейти на вкладку «вставка». Находите иконку «таблица» и кликаете по ней. Перед вами появляется поле маленьких квадратиков 10х10. Мышкой «хватаете» первый квадратик и тянете вниз и вправо одновременно. Так вы выберете себе необходимое количество строк и столбцов в таблице.

4. Если вам неудобно «хватать и тянуть» мышкой квадратики. То значения можно ввести вручную. Для этого щелкаете по иконке «таблица», выбираете пункт «вставить таблицу» и в специальных полях вводите количество строк и столбцов.

5. Таблицу также можно и нарисовать. Следует выбрать пункт «нарисовать таблицу». После чего мышка «превращается в карандаш». Здесь вы сами определяете размер строк, столбиков, ячеек.

6. После того как вы создали таблицу в колонтитуле можно ее отформатировать. Например, покрасить. Щелкаете по табличке, переходите в раздел «работа с таблицами». В подразделе «стили таблиц» вы можете выбрать наиболее вам понравившееся оформление. Если вы хотите изменить цвет отдельных ячеек (то есть выделить их), то вам необходимо кликнуть по ячейке и выбрать цвет.

7. Далее можно определить границы таблицы: «работа с таблицами» > «конструктор» > «стили таблиц» > «граница». Здесь можно определить внутренние, внешние границы объекта. Также выделить диагональные границы внутри ячейки.