Программа для создания форматок, Для текстовых документов А4 и А3 (вер. 1.0.1.12) Опции

[-BuTeK-]

Часто вижу в чужых проектах, как ужасно оформлены форматы - таблицы и текст скачут, текст вылезает за пределы ячеек, размеры отступов и ячеек основной надписи не верных размеров.
Решил написать программу, которая создает форматы в соответствии с ГОСТ 21.1101-2009.
Программа из разряда "вроде не очень надо, но вдруг пригодится".
На данном этапе программа умеет:
1. Экспортировать формат в MS Word 2000-2010. Тестировал на 2003 и 2007, если у кого есть другие версии - проверьте пожалуйста.
2. Делает сокращенный боковой штамп.
3. Листы А4, А3 горизонтальный, А3 вертикальный.
4. Сохранение настроек.
5. Использовать несколько популярных шрифтов для основных надписей. Данная версия корректно отрабатывает только шрифт ISOCPEUR, на остальных шрифтах текст вылезает за пределы ячеек.

В планах:
1. Экспорт в OpenOffice.org Writer.
2. Корректное использование других шрифтов.

Примечание.
Верхний и нижний отступ взял по 0,6 см, т.к. при отступе 0,5 попадаем на ограничение принтера. Но эти значения исправляются под себя.
 stampcreator1.png ( 20,64 килобайт ) Кол-во скачиваний: 176

Версия 1.0.0.8 -  shtampcreator.zip ( 509,71 килобайт ) Кол-во скачиваний: 312

Версия 1.0.1.12 (описание) -  shtampcreator_1.0.1.12.zip ( 503,65 килобайт ) Кол-во скачиваний: 798

Пример созданного файла -  Primep_A3_horiz.doc ( 53 килобайт ) Кол-во скачиваний: 515


Сообщение отредактировал -BuTeK- - 11.11.2010, 2:52

[-BuTeK-]

Часто вижу в чужых проектах, как ужасно оформлены форматы - таблицы и текст скачут, текст вылезает за пределы ячеек, размеры отступов и ячеек основной надписи не верных размеров.
Решил написать программу, которая создает форматы в соответствии с ГОСТ 21.1101-2009.
Программа из разряда "вроде не очень надо, но вдруг пригодится".
На данном этапе программа умеет:
1. Экспортировать формат в MS Word 2000-2010. Тестировал на 2003 и 2007, если у кого есть другие версии - проверьте пожалуйста.
2. Делает сокращенный боковой штамп.
3. Листы А4, А3 горизонтальный, А3 вертикальный.
4. Сохранение настроек.
5. Использовать несколько популярных шрифтов для основных надписей. Данная версия корректно отрабатывает только шрифт ISOCPEUR, на остальных шрифтах текст вылезает за пределы ячеек.

В планах:
1. Экспорт в OpenOffice.org Writer.
2. Корректное использование других шрифтов.

Примечание.
Верхний и нижний отступ взял по 0,6 см, т.к. при отступе 0,5 попадаем на ограничение принтера. Но эти значения исправляются под себя.
 stampcreator1.png ( 20,64 килобайт ) Кол-во скачиваний: 176

Версия 1.0.0.8 -  shtampcreator.zip ( 509,71 килобайт ) Кол-во скачиваний: 312

Версия 1.0.1.12 (описание) -  shtampcreator_1.0.1.12.zip ( 503,65 килобайт ) Кол-во скачиваний: 798

Пример созданного файла -  Primep_A3_horiz.doc ( 53 килобайт ) Кол-во скачиваний: 515


Сообщение отредактировал -BuTeK- - 11.11.2010, 2:52

[Гость_ame-n_*]

Часто вижу в чужых проектах, как ужасно оформлены форматы - таблицы и текст скачут, текст вылезает за пределы ячеек, размеры отступов и ячеек основной надписи не верных размеров.
Решил написать программу, которая создает форматы в соответствии с ГОСТ 21.1101-2009.........

Спасибо.

Сообщение отредактировал EJIEHA - 8.11.2010, 13:59

Причина редактирования: Излишнее цитирование

[Elekosha на рабо...]

Спасибо, добрый человек!

[LordN]

совет, просьба, пожелание

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

[Wizlock]

Вопрос к автору, на чем ведется разработка?

[-BuTeK-]

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

Для этого можно воспользоваться принтером NovaPDF - он позволяет вставить подготовленный pdf-файл в качестве подложки. Конечно не бесплатно.

Теперь по моей программе.
Имеется ввиду текст или чертеж в AutoCAD?
Если текст или графика, выполненная в текстовом или табличном редакторе, то это реализуемо. Например, указываете программе файл, а программа сама в нем создаст форматку.
Если имеется ввиду печать из AutoCAD или установка принтера типа Adobe PDF, то это пока выше моих знаний.

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

Вопрос к автору, на чем ведется разработка?

Разработка ведется на Delphi.

Сообщение отредактировал -BuTeK- - 8.11.2010, 14:49

[vik74]

Часто вижу в чужих проектах, как ужасно оформлены форматы - таблицы и текст скачут, текст вылезает за пределы ячеек, размеры отступов и ячеек основной надписи не верных размеров.
Решил написать программу, которая создает форматы в соответствии с ГОСТ 21.1101-2009.
Программа из разряда "вроде не очень надо, но вдруг пригодится".
На данном этапе программа умеет: ...

Спасибо!
Как всегда твои программы очень нужные и вполне привлекательные. Стандартизация ой как нужна. Что ни чертеж все как попало.
Мне кажется надо внедрить эти форматки на сайте http://gabrin.net/, там люди сделали хорошие рамки и много чего полезного. Так вашими общими силами может и появится элементарная стандартизация в рамках России.
Я для виртуальной печати использую Bullzip, программа бесплатная возможности большие и установка фона, и объединение файлов и много другого, после нее можно и на физический принтер вывести.
А почему шрифт ISOCPEUR, вроде как рекомендуемый шрифт по ГОСТ ARIAL, или я ошибаюсь?

[-BuTeK-]

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

Спасибо за наводку - посмотрю. Я из бесплатных doPdf использую. А BullZip умеет сохранять нестандартные размеры (например, А3х4)?

А почему шрифт ISOCPEUR, вроде как рекомендуемый шрифт по ГОСТ ARIAL, или я ошибаюсь?

1. Подскажите, если не сложно, в каком ГОСТе и где это написано?
2. Не стал пользователей ограничивать выбором - Arial, Gost, Times New Roman, СПДС, ISOCPEUR. Если кто-то еще какие использует, то я добавлю.
3. В нашей конторе используют этот шрифт, он очень похож на старый гостовский.
4. С остальными шрифтами программа тоже запускается, только я не настроил их вывод пока - часть текста вылезает за рамки ячеек.

Мне кажется надо внедрить эти форматки на сайте http://gabrin.net/, там люди сделали хорошие рамки и много чего полезного.

О чем сайт-то был, а то он на реконструкции сейчас?

Сообщение отредактировал -BuTeK- - 8.11.2010, 18:29

[-BuTeK-]

Если у кого есть возможность - распечатайте форматы на виртуальных pdf-принтерах и обычных и скажите нормально или нет. А то, например, pdfFactory выдает такую бяку:
 stampcreator2.png ( 57,14 килобайт ) Кол-во скачиваний: 134

DoPdf и обычный принтер печатают нормально.

Сообщение отредактировал -BuTeK- - 8.11.2010, 18:34

[MMM]

отличная вещь ! В 2007 офисе все нормально работает, а вот в 10 на 2 листе рамку не рисует, штамп есть а рамки нет!

1. Подскажите, если не сложно, в каком ГОСТе и где это написано?

Смотри п. 5.1.3

2. Не стал пользователей ограничивать выбором - Arial, Gost, Times New Roman, СПДС, ISOCPEUR. Если кто-то еще какие использует, то я добавлю.

Вот и очень правильно. Гост гостом, а свободу творчества еще никто не отменял

P>S. у меня 2 вирт принтера адобовский и PDF Xchanche 4/0 обо печатают нормально

Сообщение отредактировал MMM - 8.11.2010, 21:23

Прикрепленные файлы

 ГОСТ_Р_21.1101_Основ.требования_к_проектной_документации.pdf ( 1,53 мегабайт ) Кол-во скачиваний: 85
 Doc1.rar ( 22,77 килобайт ) Кол-во скачиваний: 55
 pdf_Xchanche.pdf ( 12,28 килобайт ) Кол-во скачиваний: 41
 Adobe.pdf ( 35,85 килобайт ) Кол-во скачиваний: 39

 

[vik74]

то ВиТеК
Печать на виртуальном Bullzip.
Scan печати на физическом HP 1010 (плохой скан)

Прикрепленные файлы

 scan_HP_1010.jpg ( 10,5 килобайт ) Кол-во скачиваний: 73
 Bullzip.pdf ( 31,6 килобайт ) Кол-во скачиваний: 30
 Doc1.doc ( 51,5 килобайт ) Кол-во скачиваний: 44

 

[-BuTeK-]

отличная вещь ! В 2007 офисе все нормально работает, а вот в 10 на 2 листе рамку не рисует, штамп есть а рамки нет!

Наверно в 2010 используются другие команды для вставки рамок на втором листе.
Если не сложно сделайте макрос (на чистом документе) и пришлите мне. Последовательность действий следующая.
1. В настройках указываем "различать колонтитулы для первой страницы".
2. Делаем разрыв - "создать новую страницу".
3. Переходим в верхний колонтитул (в 2003 word'e - меню Вид -> Колонтитулы).
4. Далее вставляем автофигуру "Прямоугольник".
Все. Выкладываем здесь.

Еще заметил один глюк, когда формируется горизонтальный А3 я забыл сменить ориентацию страницы.
В ближайшее время поправлю.

Сообщение отредактировал -BuTeK- - 9.11.2010, 10:46

[MMM]

Вечером сделаю!

[GIPlngh]

А можно попросить боковой штамп на первом листе полностью (ну там с "согласованно")?
Для формы 3 и для формы 5.

А то у меня галочка "сокращеный" не убирается.

[-BuTeK-]

А можно попросить боковой штамп на первом листе полностью (ну там с "согласованно")?
Для формы 3 и для формы 5.

А то у меня галочка "сокращеный" не убирается.

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

[shprot]

Витек, программа очень понравилось, все что нужно есть, даже больше, видно что продумывалось все основательно с учетом возможных потребностей других пользователей, спасибо.
Два пожелания (кроме тех что уже звучали от МММ)
1. Цвет рамки сменить с синего на черный.
2. Для штампов (таблиц) границы ячеек примыкающих к рамке просто убрать. Дело в том что иногда происходит небольшое таблицы относительно рамки (это по моему может быть связано с версией офиса), и в этом месте линия получается толстой.
Вот макрос из 2010 Word:

Макрос()

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.InsertBreak Type:=wdPageBreak
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Сообщение отредактировал shprot - 10.11.2010, 11:50

[GIPlngh]

Спасибо будем ждать.

ЗЫ. На всякий случай прикладываю рамки сделанные в Word.

 рамки.7z ( 35,38 килобайт ) Кол-во скачиваний: 190

[-BuTeK-]

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

1. Цвет рамки не задавал, по умолчанию должен быть черный (у меня так на Word 2003-2007). Видимо у вас так настроен офис, но хорошо я добавлю изменение цвета.
2. Странно. Скачайте файл примера в шапке и удалите рамку - увидите, что у таблиц в месте примыкания не рисуется линия. Попробуйте распечатать. Я когда смотрю на лист - кажется, что все куда-то выезжает и становится толще, а при просмотре на 500% или распечатке все нормально.
Пришлите мне результат экспорта, который вас не устроит и я все поправлю.

Вот макрос из 2010 Word:
Макрос()
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.InsertBreak Type:=wdPageBreak
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Если это макрос для создания рамки - спасибо. Но что-то я не вижу команды на создание прямоугольника.

[Гость_Сфинкс_*]

Непонятно: программа ставит номера страниц и если нет то почему?

[-BuTeK-]

Непонятно: программа ставит номера страниц и если нет то почему?

Программа ставит номер только первого листа.
Так уж устроен Word - не позволяет автоматизировать вставку автотекста (к которому и относится номер страницы).
Но я не теряю надежды найти способ, потому как понимаю, что это необходимо.
Равно как и вставлять сквозную нумерацию в верхнем правом поле листа.

[Гость_Сфинкс_*]

Образец для подражания: 4 независимых листа

Прикрепленные файлы

 образец_для_подражания_4_независимых_листа.pdf ( 51,94 килобайт ) Кол-во скачиваний: 126

 

[-BuTeK-]

Образец для подражания: 4 независимых листа

Смею предположить, что это сделано просто склейкой в pdfFactory, потому как Word 2000-2003 (насчет 2007 и 2010) не позволяют сделать четыре разных колонтитула.
Только 3 - первая страница и четные/нечетные.
Либо штампы и рамки вставлены не в колонтитулы.

[Иванов В.А.]

В разных разделах в одном документе, могут быть разные колонтитулы.

[-BuTeK-]

В разных разделах в одном документе, могут быть разные колонтитулы.

Да вы правы - не знал об этом. Наверно потому, что не пользуюсь разметкой документа на разделы.

[Иванов В.А.]

Я пользуюсь для смены ориентации листа и смены колонтитулов.

[shprot]

Код

1. Цвет рамки не задавал, по умолчанию должен быть черный (у меня так на Word 2003-2007). Видимо у вас так настроен офис, но хорошо я добавлю изменение цвета.

Сразу скажу что у меня 2010-й, вот смотрите прикрепил файл, цвет получился темно синий, возможно это действительно настройки Word, не подскажите где их менять?

Код

2. Странно. Скачайте файл примера в шапке и удалите рамку - увидите, что у таблиц в месте примыкания не рисуется линия.

Да, это касается нижнего штампа, а у бокового штампа все рамки.

Код

Попробуйте распечатать. Я когда смотрю на лист - кажется, что все куда-то выезжает и становится толще, а при просмотре на 500% или распечатке все нормально.
Пришлите мне результат экспорта, который вас не устроит и я все поправлю.

Действительно, Вы правы вопрос снимается.

Код

Так уж устроен Word - не позволяет автоматизировать вставку автотекста (к которому и относится номер страницы).

Ну как-же вот пример с нумерацией (файл Template_Shprotification_A3_форма_3.zip)

Код

Если это макрос для создания рамки - спасибо. Но что-то я не вижу команды на создание прямоугольника.

Да, прямоугольник создавал автофигурой.
Ещё подумал, мелочь но может все таки сделать блокировку обновления экрана на момент создания рамок и штампов?

Сообщение отредактировал shprot - 10.11.2010, 18:13

Прикрепленные файлы

 Doc1.zip ( 10,87 килобайт ) Кол-во скачиваний: 54
 Template_Shprotification_A3_форма_3.zip ( 12,9 килобайт ) Кол-во скачиваний: 54

 

[-BuTeK-]

Сразу скажу что у меня 2010-й, вот смотрите прикрепил файл, цвет получился темно синий, возможно это действительно настройки Word, не подскажите где их менять?

Если вручную, то заходите в колонтитул, дважды щелкаете на рамку - открывается окно редактирования свойств, там и меняете цвет.

Да, это касается нижнего штампа, а у бокового штампа все рамки.

Не вопрос - сделаем.

Код

Так уж устроен Word - не позволяет автоматизировать вставку автотекста (к которому и относится номер страницы).

Ну как-же вот пример с нумерацией (файл Template_Shprotification_A3_форма_3.zip)

Эту нумерацию вы создали непосредственно в Word'e, а рамки из программы строятся командами через OLE-интерфейс. Так вот там не предусмотрено создание автоматической нумерации страниц, ну или я не знаю об этом... пока.

Ещё подумал, мелочь но может все таки сделать блокировку обновления экрана на момент создания рамок и штампов?

Можно сделать так, чтоб Word не было видно вообще, пока не завершится создание форматок. Потом отобразится уже готовый результат.
Добавлю такую возможность.
Мне было важно видеть, что я не так делаю при написании программы, когда рамки разбегались. Теперь эта необходимость отпала.

to Shprot
В приложенном к вашему сообщению файле Template_Shprotification_A3_форма_3.zip вы используете колонтитулы для шапки таблицы.
А не проще задать в свойствах таблицы какие строки повторять на последующих страницах и тогда в колонтитулы вставлять ничего не надо будет?

Сообщение отредактировал -BuTeK- - 10.11.2010, 19:00

[shprot]

Если вручную, то заходите в колонтитул, дважды щелкаете на рамку - открывается окно редактирования свойств, там и меняете цвет.

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

ту нумерацию вы создали непосредственно в Word'e, а рамки из программы строятся командами через OLE-интерфейс.

Понято.

Можно сделать так, чтоб Word не было видно вообще, пока не завершится создание форматок.

Можно и так, можно вообще ещё вывесить какое то сообщение на время создания форматки примерно такого содержания "Подождите происходит создание форматок", ну что-бы пользователь не нервничал.

Мне было важно видеть, что я не так делаю при написании программы, когда рамки разбегались. Теперь эта необходимость отпала.

понимаю, контроль, без него не как что-бы исключить ошибки и сбои.

В приложенном к вашему сообщению файле Template_Shprotification_A3_форма_3.zip вы используете колонтитулы для шапки таблицы.
А не проще задать в свойствах таблицы какие строки повторять на последующих страницах и тогда в колонтитулы вставлять ничего не надо будет?

Этот файл используется для вывода информации из другой программы excel. т.е. в Word копируется таблица из Exel и высота строк всегда бывает разная, по этому такой вариант не удастся применить.

[-BuTeK-]

Новая версия 1.0.1.12 (скачать можно из первого сообщения темы):

Добавилось:
[+] В дополнительных настройках появилась возможность указать "Инвентарный № подлинника" для бокового штампа.
[+] Рамка всегда теперь рисуется черного цвета
[+] Возможность автоматического обновления программы через интернет (пока только автоматическое, ручное только через этот форум).
 update.png ( 19,25 килобайт ) Кол-во скачиваний: 45

Изменено:
[*] Правое поле по-умолчанию теперь 0,65 см, т.к. именно такой размер поля необходим при печати на принтере HP LaserJet.
Исправлено:
[-] При экспорте на каждый лист в боковом штампе помещался инвентарный номер "2202-ПО-10".
[-] При создании горизонтального листа А3 для редактора этот лист считался вертикальным, при приводило к неправильной подготовке листа к печате.
[-] Вместо "1" в ячейке для номера листа на первой странице вставлялось "49".

Известные мне проблемы, которые стараюсь решить:
1. В Word 2010 не отображается рамка на 2-м и последующих листах.
2. Если отображать уже готовый документ скрывая работу программы, то рамка на 1 листе теряется (поэтому не стал пока скрывать работу программы).
3. Боковой штамп пока только урезаной версии.
4. Пока только для шрифтов ISOCPEUR, GOST 2.304 type и GOST type B (90%) оптимизировано вписывание текста в штампе.

[PRINCO]

Спасибо! Вы делаете большое дело! И делаете его хорошо!