Создание документа Microsoft Word нередко предполагает вставку в него изображений, которые могут быть как подготовленными, так и неподготовлеными, в смысле имеющими разный размер. Чтобы документ выглядел опрятно, вставляемые в него картинки желательно привести к некоему общему знаменателю, например, отмасштабировать или изменить размер по ширине. Если изображений много и задавать им нужный размер в графическом редакторе нет особого желания, вставляйте их в Word в исходном виде.
А остальную работу перепоручите скрипту.
Да, масштабировать изображения и подгонять их под нужный размер можно с помощью макросов на языке VBS, причем за один раз можно обработать сколько угодно картинок, сэкономив таким образом массу времени.
Предположим, вы хотите, чтобы все вставленные в документ картинки имели размер 300 пикселей по ширине.
Откройте ваш Word-документ и нажмите Alt + F11, чтобы вызвать окно редактора Microsoft Visual Basic for Applications и выберите в меню «Insert» -> «Module».
В открывшемся окошке вставьте код из приложенного в конце инструкции текстового файла, смотрите блок «Изменение размера». Измените значение переменной .Width на 300, а строку .Height уберите вовсе, так как при изменении ширины высота будет изменена автоматически пропорционально.
Запустите скрипт на исполнение нажатием кнопки Run или клавиши F5.
Следующий скрипт позволяет масштабировать вставленные изображения: точно так же замените в нем значение параметра .ScaleWidth на свое, что же касается параметра .ScaleHeight , то его можно удалить.
Похожую работу выполняет этот скрипт, позволяющий установить масштабирование в диалоговом окошке, появляющемся сразу после запуска на исполнение.
Файл с кодом макросов:
Macros
