3

У меня есть пакетный командный файл, который ежедневно выполняет преобразование файлов извлечения данных в форматы .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 в командный файл? Я бы предпочел не загружать и устанавливать дополнительное программное обеспечение для этого.

Заранее спасибо!

0