Успешно отсканировал одну полезную книгу в PDF-формате. Вот только работать с таким документом, страницы которого выглядят так, мне показалось некрасиво.

Тогда решил сделать прямо  в Acrobat Adobe Reader снапшоты (Edit -> Take a Snapshot) и сохранить их в MS Word и довольно быстро с этим справился. Осталось каждый снапшот в MS Word-документе оформить как отдельную страницу, у которой:

• Все поля страницы равны нулю
• Соотношение сторон снапшота можно и нужно не соблюдать
• Размер снапшота равен размеру страницы

С полями просто: Layout -> Margins -> Custom Margins:

Но устанавливать соотношение сторон и размеры для каждого снапшота…

Мой мозг быстро помножил три параметра на количество страниц и отказался работать.

Пришлось опять придумывать VBA-скрипт. Быстро разобрался, что снапшоты в MS Word относятся к объектам InlineShape. Далее написал простейший скрипт:

Sub SetPicAttr()

    Dim picture As InlineShape

    For Each picture In ActiveDocument.InlineShapes

        picture.LockAspectRatio = msoFalse

        picture.Width = InchesToPoints(5.82)

        picture.Height = InchesToPoints(8.25)

    Next

    Beep

End Sub

Выполнение заняло более минуты, но в результате всё получилось.

Теперь снова сохранил MS Word-документ в PDF-формате.

 Считаю, что с таким документом работать - это красиво!