[Iska]

Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета. »

1. Макросом.
2. Только все картинки зараз, ибо нет способа программно отделить «отсканированные фотографии» от не отсканированных не фотографий.
3. Какой размер и какая «насыщенность цвета»?

P.S. не могу загрузить сам документ, так как весит около 20мб. »

На вменяемый обменник выложите.

[Ser0216]

1. Ага, ясно, значит нужно прописать алгоритм.
2. Да все картинки разом, в этом документе только отсканированные фотографии
3. Размеры: высота: 29,47 см, ширина: 22 см; резкость (пардон, а не насыщенность): повысить до 50%.

P.S. так как формат изображений png, размер оказался довольно большим - 516мб.
Ccылка на документ: https://mega.dp.ua/ru/VPSXY (срок хранения до 16.06.20)

После поправок, пожалуйста, если Вас не затруднит, сохраните в формате Pdf.

[Iska]

Двадцать мегабайт превратились в пятьсот. Затруднит.

Пойдём другим путём: оставьте в документе штук пять изображений, и выложите его.

[Ser0216]

Сделал, как вы и просили.
вот ссылка: https://mega.dp.ua/ru/EMAy26

[Iska]

Ser0216, вставьте в модуль ThisDocument Вашего документа и выполните следующий код:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim objInlineShape As InlineShape
    
    For Each objInlineShape In ThisDocument.InlineShapes
        With objInlineShape
            .Height = MillimetersToPoints(294.7)
            .Width = MillimetersToPoints(220)
        End With
    Next objInlineShape
End Sub

Резкости в моей версии нет, увы. Только яркость и контрастность.

[Ser0216]

Вставил этот код, прикрепил скрин того что у меня вышло.
Загуглид данную ошибку, вот что выдало:
https://docs.microsoft.com/ru-ru/off...mediate-window

[Iska]

Вставил этот код, »

…не туда. См.:

в модуль ThisDocument Вашего документа »

а не в окно Immediate. Сделайте двойной щелчок на ThisDocument.

[Iska]

Ser0216, Вы можете в своей версии, где есть настройки:

резкость (пардон, а не насыщенность): повысить до 50%. »

записать макрос на изменение сего, найти в записанном макросе потребный код и, взяв из него искомое, добавить у себя в выложенный мною.