У меня есть пакетный командный файл, который ежедневно выполняет преобразование файлов извлечения данных в форматы .txt, .doc, а затем в форматы .pdf. Я запускаю серию макросов форматирования в Word для файла .txt перед сохранением в файл .doc. Затем я запускаю следующий макрос, найденный здесь:
Пакетная командная строка Windows 7 для сохранения в формате PDF для Word 2013. DOCX файл
' The Word macro for exporting to PDF (the Word window closes after finishing)
Sub ExportToPDFext()
ChangeFileOpenDirectory ThisDocument.Path
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".")) + "pdf", _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
From:=1, _
To:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub
Проблема, с которой я столкнулся, заключается в том, что, в отличие от функциональности MS Word 2010 "Сохранить как PDF", этот макрос, похоже, не сохраняет PDF в формате OCR с возможностью поиска.
Любой совет, как улучшить этот макрос или добавить сегмент OCR в командный файл? Я бы предпочел не загружать и устанавливать дополнительное программное обеспечение для этого.
Заранее спасибо!