Вставка в колонтитулы объектов "штамп+рамка" (для документов типа ТЗ, ПЗ.)

@legion_slov · Регистрация: 23.03.2013

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

Ув. гуру !
1. Если вставлять в колонтитул "большой" (по площади) объект, к примеру, рамку листа, или изображение во весь лист, то к какому колонтитулу (верхнему или нижнему) он оказывается привязан? К тому, в который объект вставлялся или к тому, в котором оказался якорек объекта?

2. Чтоб создать колонтитул рамки листа с заполняемым штампом (для документов типа ТЗ, ПЗ...), какой лучше использовать объект:
- рисунок jpg + вставки надписи ?
- таблицу + текст ?
- линии Word сгруппированные + вставки надписи?

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

@ViterAlex · 24.03.2013, 11:48

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

в который объект вставлялся или к тому, в котором оказался якорек объекта?

У вас получилось вставить в один колонтитул, а якорь оказался в другом?
Привязывается к тому колонтитулу, в который вставлен.
Я вставлял рамки через рисованные объекты. С редактированием через свойства документа, т.е. в каждое поле рамки было помещено поле, связанное со свойством документа. Редактируя свойство, я менял содержимое рамки не заходя в неё. Это, как мне кажется, самый дуракоустойчивый метод.
А чтобы не тормозило, на время интенсивной работы включить показ рамок рисунков вместо самих рисунков. Ведь при редактировании текста, вам совсем не обязательно постоянно лицезреть колонтитулы

@legion_slov · 24.03.2013, 12:41 **[ТС]**

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

Я вставлял рамки через рисованные объекты.

Рисованые объекты - это пиксельные рисунки типа *.jpg?

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

С редактированием через свойства документа, т.е. в каждое поле рамки было помещено поле, связанное со свойством документа.

Пожалуйста поясните, где в ворде "свойства документа"? например, - в графу "разработал" надо вставить фамилию разработчика. Как вы задавали это "свойство документа"?

@ViterAlex · 24.03.2013, 14:49

Это не совсем свойства документа, которые в Word 2010-2013 доступны в меню файл. Это переменные документа, которые вставляются полем { DOCVARIABLE "имя переменной" }. Но поскольку они хранятся в документе, я оговорился и назвал их свойствами.
Приложенный файл добавьте как глобальный шаблон: вкладка "Разработчик" →"Надстройки"→Добавить.
После этого в меню макросов Alt+F8 появится макрос ManageDocVariables, который поможет вам справиться с заполнением переменных документа

@legion_slov · 24.03.2013, 15:35 **[ТС]**

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

@ViterAlex · 24.03.2013, 15:47

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

Наверно самый легкий в редактировании и устойчивый от разбегания способ...

лучше рисовать. К тому же есть уже полностью готовые рамки и я не думаю, что стоит заморачиваться с их рисованием. А в полностью готовые нужно только добавить поля.

Fairuza · 24.03.2013, 16:22

Вы же рамку в колонтитул вставляете, она останется неизменной при редактировании документа.

@legion_slov · 20.04.2013, 09:22 **[ТС]**

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

А в полностью готовые нужно только добавить поля.

Ув. ViterAlex ! при помощи Вашего макроса я создал поле "Шифр".
Как мне теперь вставить его в несколько мест в документе, чтоб потом они менялись одновременно ?

@ViterAlex · 20.04.2013, 09:51

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

Как мне теперь вставить его в несколько мест в документе,

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

переменные документа, которые вставляются полем { DOCVARIABLE "имя переменной" }

Обновляться будет не сразу, а при обновлении полей (Ctrl+A, F9). Если поле расположено не в основном тексте документа, то обновление полей лучше делать таким макросом:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub UpdateAllFields()
    Dim UF As Boolean, CurrentView As WdViewType
    Application.ScreenUpdating = False
    UF = Options.UpdateFieldsAtPrint
    Options.UpdateFieldsAtPrint = True
    CurrentView = ActiveWindow.View
    ActiveWindow.View = wdPrintPreview
    ActiveWindow.View = CurrentView
    Options.UpdateFieldsAtPrint = UF
    Application.ScreenUpdating = True
End Sub

Скрипт · 20.04.2013, 10:05

ViterAlex, а вот это для чего делается?

Visual Basic
1
Options.UpdateFieldsAtPrint = True

@legion_slov · 20.04.2013, 10:18 **[ТС]**

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

Обновляться будет не сразу, а при обновлении полей (Ctrl+A, F9).

Да. получилось. В Вашем макросе есть кнопка "+" добавить, а как удалить ранее добавленную переменную ?

@ViterAlex · 20.04.2013, 10:22

Работа макроса основана на том, что все поля, где бы они не были расположены, обновляются перед печатью. Если эта опция включена, конечно. Поэтому я принудительно её включаю, предварительно запомнив состояние.

Добавлено через 3 минуты

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

как удалить ранее добавленную переменную ?

Нужно добавить эту возможность. А пока её нет, то через окно отладки:

Visual Basic
1
ActiveDocument.Variables("Имя переменной").Delete

@legion_slov · 20.04.2013, 10:29 **[ТС]**

Это надо войти в макросы?

@ViterAlex · 20.04.2013, 11:08

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

Это надо войти в макросы?

Да. Alt+F11 откроет окно редактора VBA. В этом окне Ctrl+G активирует окно отладки (Immediate Window), которое обычно находится под основным окном редактора VBA. В это окно отладки и ввести предложенную команду.
Ну а я тем временем, добавил возможность удалять переменные документа. Чтобы удалить переменную документа, нужно поставить курсор в соответствующее текстовое поле на форме и нажать Ctrl+Delete, а затем кнопку "Обновить форму"

@legion_slov · 27.04.2013, 07:12 **[ТС]**

.....

@legion_slov · 27.04.2013, 07:32 **[ТС]**

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

В это окно отладки и ввести предложенную команду.

Я поместил в окно отладки Ваш скрипт по обновлению полей. Что нажать чтоб он выполнился ?

@ViterAlex · 27.04.2013, 14:15

Макрос нужно вставлять не в ImmediateWindow. Это сообщение относилось только к удалению переменной документа вручную. Макрос нужно же вставить обычным образом, а затем

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

Что нажать чтоб он выполнился ?

Alt+F8 и выбрать макрос с нужным именем

@legion_slov · 28.04.2013, 11:24 **[ТС]**

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

Макрос нужно же вставить обычным образом

Мне очень стыдно... а как вставлять макорс обычным способом?
И еще, если Ctrl+Del в Вашем макросе удаляет переменную, то не могли бы Вы где ньть на его поле написать "Ctrl+Del"-удалить"
и две кнопки "обновить" чуть добавить толкование.

@ViterAlex · 28.04.2013, 18:09

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

как вставлять макорс обычным способом?

Нажать Alt+F11. Откроется редактор VBA. Слева расположен Обозреватель проекта:
Название: 2013-04-28_095837.png
Просмотров: 2543

Размер: 5.7 Кб

Выделите мышкой пункт Normal. Он содержит в себе макросы шаблона Normal.dotm, который доступен всем документам.
Меню Insert→Module. В шаблон Normal будет добавлен новый модуль для макросов, который сразу же откроется в правой самой большой части экрана.
Вставьте код макроса в открывшееся поле.
Нажмите Ctrl+S, чтобы сохранить изменения.

После проделанных действий макрос будет доступен в окне по Alt+F8. Так же его можно будет поместить на ленту, панель быстрого доступа или назначить сочетание клавиш.

@Sta1917 · 22.02.2014, 15:02

Можно ли сделать подобную форму для просмотра и редактирования пользовательских свойств? Заменой Variable на CustomDocumentProperties не получилось. Редактирование через панель свойств неудобно, т.к. не поддерживает неразрывный пробел и неразрывный дефис.
нашел только:

вывод пользовательских свойств для просмотра

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Show_CustomDocumentProperties()
    ' выводит список всех пользовательских свойств в книге, из которой запускается макрос
    ' [url]http://excelvba.ru/code/CustomDocumentProperties[/url]
   If ActiveDocument.CustomDocumentProperties.Count > 0 Then
        For Each cdp In ActiveDocument.CustomDocumentProperties
            txt = txt & cdp.Name & ":" & vbTab & cdp.value & vbNewLine
        Next
        MsgBox txt, vbInformation, "Список пользовательских свойств в книге"
    End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@legion_slov 5 / 3 / 0 Регистрация: 23.03.2013 Сообщений: 53

	Вставка в колонтитулы объектов "штамп+рамка" (для документов типа ТЗ, ПЗ.) 24.03.2013, 11:22. Показов 34212. Ответов 19 Метки нет (Все метки) Ув. гуру ! 1. Если вставлять в колонтитул "большой" (по площади) объект, к примеру, рамку листа, или изображение во весь лист, то к какому колонтитулу (верхнему или нижнему) он оказывается привязан? К тому, в который объект вставлялся или к тому, в котором оказался якорек объекта? 2. Чтоб создать колонтитул рамки листа с заполняемым штампом (для документов типа ТЗ, ПЗ...), какой лучше использовать объект: - рисунок jpg + вставки надписи ? - таблицу + текст ? - линии Word сгруппированные + вставки надписи? Лучше - с точки зрения, чтоб ворд меньше тормозил, чтоб редактировать легче, а главное чтоб был усточивей к разным редактированиям, реже разбегался и портился... 0

@legion_slov 5 / 3 / 0 Регистрация: 23.03.2013 Сообщений: 53
	24.03.2013, 15:35 [ТС]
	Да. Макрос замечательный. Но для моих задач (создание строго структурированы документов типа ТЗ, ПЗ ...) это пока не требуется. Повторяющихся надписей практически нет. Пока буду вводить надписи в штамп в явном виде. Но мне оч. нравится идея. А вот как делать штамп... Рисунком, Линиями Ворд или Таблицей.... Похоже лучше таблицей.... Наверно самый легкий в редактировании и устойчивый от разбегания способ... 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	24.03.2013, 16:22
	Вы же рамку в колонтитул вставляете, она останется неизменной при редактировании документа. 0

@legion_slov 5 / 3 / 0 Регистрация: 23.03.2013 Сообщений: 53
	20.04.2013, 10:29 [ТС]
	Это надо войти в макросы? 0

@legion_slov 5 / 3 / 0 Регистрация: 23.03.2013 Сообщений: 53
	27.04.2013, 07:12 [ТС]
	..... 0