Автоматическое форматирование простых текстовых файлов в Word

Question

У нас есть устаревшая система, которая выплевывает текстовые файлы, которые раньше печатались на 132-колоночном принтере. Некоторые файлы имеют еще более длинные строки, например, 169 символов. По какой-то причине.Расширение файла DOC прикреплено, поэтому файлы открываются в Microsoft Word, даже если они не являются документами Word, а представляют собой просто текст.

Очевидно, в какой-то момент на машинах людей был макрос Word, который переформатировал документ так, чтобы он поместился на странице - насколько я могу судить, выделив весь текст и уменьшив размер шрифта до 6pt, это достигается с помощью Courier New. или шрифты Consolas.

Ненавижу заставлять что-то подобное для ВСЕХ текстовых файлов, которые открываются в Word, и идеальным решением было бы преобразовать эти файлы в PDF (что также решает проблему просмотра их в виде вложения в сообщения электронной почты на iPhone), но я ' У меня заканчиваются идеи.

Какие-либо предложения?

DATE 02-15-14                                          LISTING OF HIRED AND TERMINATED EMPLOYEES FOR 01/01/14 - 01/31/14                                          PAGE 1

EMPNO.....    AGENT NAME..........    Employee Name............    HIRE DATE    TERM DT.    LOGIN ID............    EMAIL NAME..............................

30594         ABC-NEWYORK            JOE SMITH               01/06/14                NEWYORK.JOE             JOE SMITH

Answer 1

Я взял ваш файл и сделал для вас макрос:

Sub LongWidth()
'
' LongWidth Macro
'
'
    With Selection.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = InchesToPoints(0.5)
        .BottomMargin = InchesToPoints(0.5)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(8.5)
        .PageHeight = InchesToPoints(11)
        .GutterPos = wdGutterPosLeft
    End With
    Selection.WholeStory
    Selection.Font.Size = 7
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Path\To\Folder\foo.pdf", ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False
End Sub

Итак, для этого сначала нужно перевести страницу в ландшафтный режим с узкими полями. Затем я выделил весь текст и установил шрифт 7. Затем я экспортировал документ в формате PDF.

Если у вас есть пользователи, желающие просмотреть это на iPhone или чем-то еще, я бы хотел автоматизировать Word, чтобы преобразовать все эти файлы в PDF в автоматическом режиме. Джоэл Спольски давно написал статью об этом процессе. Многое изменилось, но эти концепции остаются в силе.

Answer 2

Для конвертации в PDF я нашел http://www.adultpdf.com/products/txttopdf/ отличным. Это дало мне файл PDF, в котором отлично сохранились разрывы строк. Он также предоставляет интерфейс командной строки, который поддерживает выбор различных типов шрифтов и позволит вам конвертировать все файлы в папке. Команда сделать это для всех файлов в текущей папке:

@echo off
for /r %%F in (*) do TXTtoPDF "%%~nF"

Замените TXTtoPDF расположением TXTtoPDF.exe.