Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 06:05

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 50 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 14:29 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Назрела необходимость в утилите, для нумерации/перенумерации листов внутри альбома. Кого либо тема иентересует? Возьмемся вместе?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 14:32 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
а в чем заключается предложение ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 14:41 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Это я был. Вот нарыл http://stackoverflow.com/questions/8885 ... nd-or-tiff
А предложение совместными силами макрос написать.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 14:47 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
иными словами макрос должен в готовом файле PDF (независимо от файла исходника) менять нумерацию?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 14:58 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Да в PDF файле. Менять, можно не менять, а делать в сторону. Если менять, то затирать поле, в которое падает цифра. Ну и две линии дорисовать.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: 30 мар 2015, 16:07 
Не в сети
Ветеран

Зарегистрирован: 06 май 2013, 13:01
Сообщений: 746
Откуда: Россия
Использую Visio c: 2013
Очков репутации: 18

Добавить очки репутацииУменьшить очки репутации
Добавление колонтитулов к pdf'у мне бы пригодилось отдельно от Visio :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 16:19 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Robink писал(а):
Да в PDF файле. Менять, можно не менять, а делать в сторону. Если менять, то затирать поле, в которое падает цифра. Ну и две линии дорисовать.
были мысли сделать подобное в Adobe Acrobat Pro (у меня на работе стоит лицензионный). Но руки не дошли еще

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 18:53 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
В той ссылке, котору я привел, есть порядок действий.
1. создать файл pdf колонтитула.
2. наложить колонтитул на оригинаьный файл.
Через коммандную строку получилось создать файл. viewtopic.php?p=4362#p4362 как тут не вышло запустить.


Вложения:
header.pdf [2.51 Кб]
Скачиваний: 239
cmd1.jpg
cmd1.jpg [ 40.28 Кб | Просмотров: 3804 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 21:08 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Что то я никак не могу выполнить создание файла колонтитула через VBA. Нужно есче как то определять исходный формат страницы исходного документа.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 30 мар 2015, 22:21 
я вообще не догоняю как подсунуть параметры в GhostScript :(


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 31 мар 2015, 02:49 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Гость писал(а):
я вообще не догоняю как подсунуть параметры в GhostScript :(
дык Robink же приводил ссылку на использование командной строки
вопрос только какой параметр нужно передать, почитал по-быстрому мануал за Ghostscript?
этот что ли
Цитата:
-dDOPDFMARKS
Causes pdfmark to be called for bookmarks, annotations, links and cropbox when processing PDF files. Normally, pdfmark is only called for these types for PostScript files or when the output device requests it (e.g. pdfwrite device).

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 31 мар 2015, 17:17 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
удалось загнать фиксированный текст Mental Trash в колонтитул многостраничного документа
Код:
Option Explicit
Declare Function OpenProcess Lib "kernel32" _
                             (ByVal dwDesiredAccess As Long, _
                              ByVal bInheritHandle As Long, _
                              ByVal dwProcessId As Long) As Long
Declare Function GetExitCodeProcess Lib "kernel32" _
                                    (ByVal hProcess As Long, _
                                     lpExitCode As Long) As Long
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STILL_ACTIVE = &H103
Public Sub ShellAndWait(ByVal PathName As String, Optional WindowState)
    Dim hProg As Long
    Dim hProcess As Long, ExitCode As Long
    'fill in the missing parameter and execute the program
    If IsMissing(WindowState) Then WindowState = 1
    hProg = Shell(PathName, WindowState)
    'hProg is a "process ID under Win32. To get the process handle:
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
    Do
        'populate Exitcode variable
        GetExitCodeProcess hProcess, ExitCode
        DoEvents
    Loop While ExitCode = STILL_ACTIVE
End Sub
'procedure
Sub MergePDF()
Dim str1$, str2$
' создаем надпись в верхнем колонтитуле - файл c:\GS_test\Header.pdf
str1 = "c:\GS\64\gs9.10\bin\gswin64c.exe"
str1 = str1 & " -o c:\GS_test\Header.pdf"
str1 = str1 & " -sDEVICE=pdfwrite"
str1 = str1 & " -c "
str1 = str1 & """" & "/Courier findfont 12 scalefont setfont" & """"
str1 = str1 & " -c " & """" & "250 765 moveto (Mental Trash) show showpage" & """"
ShellAndWait str1, vbHide
' сливаем заголовок и существующий файл c:\GS_test\Body.pdf
str2 = "pdftk.exe c:\GS_test\Body.pdf multistamp c:\GS_test\Header.pdf output c:\GS_test\output_test.pdf"
ShellAndWait str2, vbHide
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 31 мар 2015, 18:01 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Спасибо. Тут, как определить формат:
http://stackoverflow.com/questions/2943 ... -page-size
https://ghostscriptnet.codeplex.com/discussions/484031
Вот файл pdf_info.ps стащил отсюда http://git.ghostscript.com/?p=ghostpdl. ... 23b978d8ee
Результат выводится в командную строку. Интересно можно ли его вытащить используя VBA, или уже консольное приложение писать.
Док формата (cmd2) А3 горизонтальный. Второй (cmd3) A2 горизонтальный.


Вложения:
cmd3.jpg
cmd3.jpg [ 39.72 Кб | Просмотров: 3618 ]
cmd2.jpg
cmd2.jpg [ 43.84 Кб | Просмотров: 3631 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 11:29 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Robink,
что-то у меня папки \toolbin нет ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 11:35 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
Robink,
что-то у меня папки \toolbin нет ?

Надо самому создать и положить туда файл ps, ссылку я дал, где его взять.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 11:36 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Запуск команды с перехватом сообщения
http://stackoverflow.com/questions/2784 ... and-in-vba
Пример кода
Код:
str3 = "C:\gs\gs9.16\bin\gswin32c.exe "
str3 = str3 & "-dNODISPLAY "
str3 = str3 & "-q "
str3 = str3 & "-sFile=c:\temp\11.pdf "
str3 = str3 & "-dDumpMediaSizes "
str3 = str3 & "C:\gs\gs9.16\toolbin\pdf_info.ps"

'ShellAndWait str3, vbMaximizedFocus

Dim objShell As Object
Dim objWshScriptExec As Object
Dim objStdOut As Object

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec(str3)
Set objStdOut = objWshScriptExec.StdOut

Dim rline As String
Dim strline As String

While Not objStdOut.AtEndOfStream
    rline = objStdOut.ReadLine
    If rline <> "" Then strline = strline & vbCrLf & CStr(Now) & ":" & Chr(9) & rline
   ' you can handle the results as they are written to and subsequently read from the StdOut object
Wend

MsgBox strline


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 12:18 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
по ходу у меня руки кривые
1. начинал вводить комманды в cmd.exe, долго и муторно. при опечатке попадаешь в какой-то сакральный режим
2. продолжил ввод в Far manager, ввод более удобен чем в cmd.exe
3. наконец увидел предыдущий пост от Robink. но запуск кода дает ошибку
Изображение

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 12:30 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 12:43 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Разделение на файлы по стрпнично
http://stackoverflow.com/questions/1022 ... hostscript
Получилось разбить


Вложения:
md4.jpg
md4.jpg [ 37.39 Кб | Просмотров: 3579 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Вставка колонтитулов в PDF с помощью ghostscript
СообщениеДобавлено: 01 апр 2015, 13:03 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
первый раз я создал папку \toolbin и в ней с помощью блокнота и копипасты с указаного тобой сайта создал файл pdf_info.ps
потом скачал в папку \toolbin файл с указаного тобой сайта, запустил твой код уже другое сообщение выводится
Изображение
c:\GS\gs9.16\bin\gswin64c.exe -dNODISPLAY -q -sFile=c:\GS_test\output_test0.pdf-dDumpMediaSizes C:\gs\gs9.16\toolbin\pdf_info.ps нашел ! у меня пробел был пропущен между именем файла и -dDumpMediaSizes!

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 50 ]  На страницу 1, 2, 3  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB