Автоматизация сохранения docx в PDF

@apple_apple · Регистрация: 13.05.2009

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

Доброго времени суток. Есть скрипт конвертации массива документов в папке из docx в doc. Выглядит он так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DocxToDoc()
'
'
sPath = ActiveDocument.Path + "\"
sFile = Dir(sPath & "*.docx")
While sFile <> ""
With Documents.Open(sPath & sFile)
.SaveAs FileName:=sPath & Replace(sFile, "docx", "doc"), FileFormat:=0
.Close
End With
sFile = Dir
Wend
 
End Sub

Понадобилось автоматизировать такой же процесс для сохранения docx в PDF. Ну я ж думал все просто заменил (sFile, "docx", "doc") на (sFile, "docx", "pdf"), но не тут то было. Процесс идет, все конвертируется, создаются PDF варианты документов, но они не открываются. Reader пишет следующую ошибку:
Could not open file "example.pdf" beacause it is either not a supported file.
Мне кажется тут дело в переменной FileFormat и ее значении 0, значение наверно должно быть другое (пробовал от 1 до 5

). Помогите плиз, может кто знает.

shanemac51 · 22.03.2011, 11:09

я получала PDF печатью на виртуальном принтере doPDFv7

@apple_apple · 22.03.2011, 11:15 **[ТС]**

Это понятно. Можно сделать и "Сохранить как pdf" в Микрософт Ворд.
Необходимо автоматизировать процесс. У меня 200 доков и для каждого делать такую операцию как то не очень.

shanemac51 · 22.03.2011, 12:14

макрос написала, но он нечетко сработал

надо смотреть ......

@Busine2009 · 22.03.2011, 15:52

apple_apple,
вкладка Вид - группа Макрос - там одна кнопка; надо жать на низ кнопки, где стрелка, - Запись макроса - OK - Круглая кнопка - Сохранить как - PDF (*.pdf) - та же вкладка и группа Остановить запись.
Та же вкладка и группа: теперь жмём по верху кнопки (где рисунок) - Изменить. Ищем в Normal NewMacros. Там содержится код.

@Slamzor · 11.10.2013, 08:01

Добавил значения с помощью макрорекодера для конвертации *.docx и *.doc:

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

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DocxToPDF()
'
'
sPath = ActiveDocument.Path + "\"
sFile = Dir(sPath & "*.docx")
  While sFile <> ""
     With Documents.Open(sPath & sFile)
     .SaveAs FileName:=sPath & Replace(sFile, "docx", "pdf"), FileFormat:=wdExportFormatPDF
     .Close
     End With
  sFile = Dir
  Wend
 
End Sub

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DocToPDF()
'
'
sPath = ActiveDocument.Path + "\"
sFile = Dir(sPath & "*.doc")
  While sFile <> ""
     With Documents.Open(sPath & sFile)
     .SaveAs FileName:=sPath & Replace(sFile, "doc", "pdf"), FileFormat:=wdExportFormatPDF
     .Close
     End With
   sFile = Dir
   Wend
 
End Sub

Можно их доработать в следующем плане:
- объединить их в один код, чтобы единый код обрабатывал и *.docx и *.doc в папке;
- добавить в код возможность обрабатывать подпапки директории.

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

shanemac51 Модератор 12163 / 5015 / 803 Регистрация: 07.08.2010 Сообщений: 14,784 Записей в блоге: 4
	22.03.2011, 11:09
	я получала PDF печатью на виртуальном принтере doPDFv7 0

@apple_apple 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 7
	22.03.2011, 11:15 [ТС]
	Это понятно. Можно сделать и "Сохранить как pdf" в Микрософт Ворд. Необходимо автоматизировать процесс. У меня 200 доков и для каждого делать такую операцию как то не очень. 0

shanemac51 Модератор 12163 / 5015 / 803 Регистрация: 07.08.2010 Сообщений: 14,784 Записей в блоге: 4
	22.03.2011, 12:14
	макрос написала, но он нечетко сработал надо смотреть ...... 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	22.03.2011, 15:52
	apple_apple, вкладка Вид - группа Макрос - там одна кнопка; надо жать на низ кнопки, где стрелка, - Запись макроса - OK - Круглая кнопка - Сохранить как - *PDF (.pdf) - та же вкладка и группа Остановить запись. Та же вкладка и группа: теперь жмём по верху кнопки (где рисунок) - Изменить. Ищем в Normal NewMacros**. Там содержится код. 0

Опции темы