Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/46: Рейтинг темы: голосов - 46, средняя оценка - 4.76
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
1

Как перобразовать файлы Визио в pdf

03.03.2014, 14:40. Просмотров 8443. Ответов 14
Метки нет (Все метки)

Собственно нужно следующее:
есть файлы Визио. Нужно их перобразовать в pdf. Сейчас это делается так: Открываем, Сохранить как... выбираем формат pdf.

Можно ли это как-то автоматизировать посредством батника? Или смотреть в другую сторону? Если в другую, то куда?

Спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2014, 14:40
Ответы с готовыми решениями:

Как разместить PDF файлы в PDF файле
Есть PDF документ с одной страницей размера 700х500мм, и несколько PDF файлов. Нужно разместить...

Переименовать файлы с nr.01-_Part_3.pdf на nr.01-_Part_03.pdf
Добрый день, У меня есть список файлов: nr.01-_Part_1.pdf nr.01-_Part_2.pdf nr.01-_Part_3.pdf...

Как перевести PDF-файлы в Word
Помогите советом, как перевести PDF-файлы в текстовые, желательно в Word.

Как редактировать pdf файлы (текст)
Подскажите, пожалуйста, в какой программе можно отредактировать текст pdf файла ? Смотрел прогу...

14
Эксперт WindowsАвтор FAQ
17461 / 7313 / 872
Регистрация: 25.12.2011
Сообщений: 11,095
Записей в блоге: 16
03.03.2014, 18:55 2
Borodа, Visio поддерживает язык VBA.
Можешь попробовать сам записать код макроса. Делаешь как в статье: http://office.microsoft.com/ru... 30564.aspx
После запуска записи, имитируешь сохранение, как описано тобою выше.
Останавливаешь запись макроса.
Затем левый ALT + F11.
Слева в окне Project активируешь модуль (Module1) и смотришь какой код получился.
Выкладываешь сюда. Посмотрим.
0
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
03.03.2014, 19:04  [ТС] 3
Цитата Сообщение от Dragokas Посмотреть сообщение
Выкладываешь сюда. Посмотрим.
Visual Basic
1
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "T:\Drawing1.pdf", visDocExIntentPrint, visPrintAll, 1, 1, False, True, True, True, False
0
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
03.03.2014, 19:23 4
недавно была тема

Добавлено через 30 секунд
там раскрывалось несколько способов перегонки в pdf
0
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
03.03.2014, 20:37  [ТС] 5
Surrogate, я там не увидел ни одного способа.
Склеивание пдф-ов -- да. Хотя для меня это вообще не проблема (основная деятельность -- полиграфия). Но не об этом щас. Нужно конвертировать Визио в ПДФ.
0
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
04.03.2014, 10:31 6
Borodа, извиняюсь действительно ничего нет. я в тоже время писал макрос который открывал все визио файлы в папке и к ним в конце добавлял несколько листов. что-то никак не найду заветную флешку где был записан тот код

если я правильно понял нужно все файлы, в папке перегнать в PDF ? у меня например стоит Adobe Acrobat X Professional выделяю в проводнике все файлы, щелкаю правой кнопкой мыши. В выпавшем меню у меня почему то этот пункт называется Share (см. картинку слева)? А справа как выглядит меню при открытии через ТоталКоммандер

при этом варианте будут выскакивать окошки где будет предлагаться сохранить файл в пдф под именем…
По скорости он значительно дольше чем
Visual Basic
1
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "T:\Drawing1.pdf", visDocExIntentPrint, visPrintAll, 1, 1, False, True, True, True, False
1
Миниатюры
Как перобразовать файлы Визио в pdf   Как перобразовать файлы Визио в pdf  
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
04.03.2014, 10:48 7
ну или кодом
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ExportDocumentsDoPDF()
Dim FSO As Object
Dim Folder As Object
Dim iFile As Object
Dim af As Document
Dim afn As String ' Visio
Dim pfn As String ' PDF
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("c:\ololo\") ' цепляемся к папке и исходными файлами
For Each iFile In Folder.Files
'If Right(iFile.Name, 3) = "pdf" Then
Documents.Open iFile.Path
Set af = ActiveDocument
vfn = ActiveDocument.FullName
pfn = Replace(vfn, "vsd", "pdf")
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, pfn, visDocExIntentPrint, visPrintAll, 1, 1, False, True, True, True, False
af.Save
af.Close
Next
Set iFiles = Nothing
Set Folder = Nothing
Set FSO = Nothing
End Sub
1
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
04.03.2014, 11:40  [ТС] 8
Почему собственно возникла эта необходимость:
1. У нас весь софт лицензионный.
2. Покупать на компы девочек-операторов-приемщиц Визио только для того, чтобы они могли открыть файл и послать на печать -- жаба душит.
3. На одном из компов есть лицензионный Визио, но комп находится в другом помещении.

Вот и возникла идея: создать папку, наличие файлов в которой будет отслеживать скрипт и при появлении в ней Визио файлов будет делать из них ПДФки. Т.е. девчонкам достаточно будет бросить в папочку Визио файл и тут же получить там ПДФ, который можно отправлять в печать.

Не по теме:

Сейчас пока ковыряю AutoIt. Не особо успешно :) Пока не получается запустить визио с передачей ему сразу файла для открытия.

0
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
04.03.2014, 12:17 9
у меня на работе лицензионная сетевая версия автокада, как то раз я забрал ноут с собой забыв утащить с собой лицензию. Мне было нужно перегнать файлы из dwg в pdf, прихожу домой и упс документы не открываются !!!

так вот решил на удачу воспользоваться способом печати из под проводника в PDF см. пост #6, и о чудо все получилось !!! причем довольно шустро, на порядок быстрее чем тупо открыть файл и послать на печать.

попробуйте такой вариант с компа девочки, ну если у нее Acrobat Pro установлен
0
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
04.03.2014, 16:49  [ТС] 10
Surrogate, Кробат Про тоже денег стоит. Да и чудес не бывает. Не сможет Акробат сделать преобразование визио-файла без самого визио.
0
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
04.03.2014, 17:14 11
Цитата Сообщение от Borodа Посмотреть сообщение
основная деятельность -- полиграфия
я думал, раз такая область деятельности, то акробат не проблема

сейчас попробую снести визио, попробую проверить чудеса
1
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
04.03.2014, 17:25 12
ага, в этот раз чуда не произошло
1
Миниатюры
Как перобразовать файлы Визио в pdf  
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
04.03.2014, 19:05  [ТС] 13
Цитата Сообщение от Surrogate Посмотреть сообщение
я думал, раз такая область деятельности, то акробат не проблема
Не проблема, но опят таки не на компах операторов-приемщиков. У препресса и печатников есть
0
Ушел с CyberForum совсем!
871 / 180 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
05.03.2014, 11:20 14
а если попробовать добавить такой макрос
Visual Basic
1
2
3
4
5
6
Sub DoItAllDay()
Do While Format(Time, "hh:mm") < "19:00"
For i = 1 To 1200000000: DoEvents: Next
ExportDocumentsDoPDF
Loop
End Sub
он будет приблизительно раз в 10 минут, в течении всего рабочего дня (до 19:00) запускать наш предыдущий макрос. пока решение тупое, по хорошему PDF надо кидать в отдельную папку и обработанные файлы визио перекладывать куда-то, чтоб их сотни раз на дню не конвертировать…

Добавлено через 11 часов 25 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub DoItAllDay()
Do While Format(Time, "hh:mm") < "19:00"
For i = 1 To 1200000000: DoEvents: Next
ExportDocumentsDoPDF
Loop
End Sub
Sub ExportDocumentsDoPDF()
Dim FSO As Object
Dim vd As Object
Dim Folder As Object
Dim iFile As Object
Dim af As Document
Dim afn As String ' Visio
Dim pfn As String ' PDF
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("c:\ololo\") ' цепляемся к папке и исходными файлами
For Each iFile In Folder.Files
Documents.Open iFile.Path
Set af = ActiveDocument
If af.Category = "" Then ' пишем в свойстве Category документа нет 1, генерим PDF
pfn = "C:\pdf\" & ActiveDocument.Name
pfn = Replace(pfn, "vsd", "pdf")
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, pfn, visDocExIntentPrint, visPrintAll, 1, 1, False, True, True, True, False
af.Category = "1" ' пишем в свойство документа 1, чтоб знать что с данного файла сгенерен PDF
af.Save
af.Close
Else
' тупо сохраяем файл и выходим :)
af.Save
af.Close
End If
Next iFile
Set iFiles = Nothing
Set Folder = Nothing
Set FSO = Nothing
End Sub
Добавлено через 1 минуту
теперь сохраняем ПДФ в отдельные папки, по хорошему можно еще прикрутить модуль который будет девочкам письма рассылать, что в pdf перегнали очередные файлы
0
99 / 93 / 8
Регистрация: 07.08.2013
Сообщений: 299
07.03.2014, 13:27  [ТС] 15
Спасибо всем большое.
В итоге решил задачку с использованием AutoIt: Автоматизация открытия файлов с расширением .vsd и сохранения их содержимого в формате PDF
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2014, 13:27

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

Как просматривать pdf и doc файлы?
Здравствуйте. Как в wpf c# сделать просмотр pdf, doc, docx файлов. Как это реализовать? Я нашел...

Как распознать файлы PDF, JPEG, PNG
У меня есть ASP.NET-программа которой на обработку может поступить файл одного из следующих типов:...

Как в диалоге отобразить только .pdf файлы?
OpenFileDialog^ openFileDialog1 = gcnew OpenFileDialog; openFileDialog1-&gt;ShowDialog();...

Как скачать и сохранить pdf-файлы в Knoppix?
Здравствуйте, уважаемые форумчане! Как говориться, &quot;произошло недоразумение&quot;. Поставил на флешку...

Как прикрепить к базе файлы jpg и PDF?
Подскажите, как лучше реализовать данную идею? Нужно создать базу документов отдела. Документы...

Как вытащить из Access PDF-файлы, и открыть их
На данном этапе сойдет и просто кнопка по нажатию которой откроются все файлы PDF вытащенные из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.