АВТОМАТИЗАЦИЯ

[TOLYA1122]

Добрый вечер прошу помощи у вас , суть вот в чем : нужно автоматизировать процесс загрузки фото в word , т.е. для создание фото отчета нужно огромное количество фотографий загружать в word по 4 фото (при этом нужно чтоб фотографии сами меняли заданный размер)на страницу каждая фотография должно нумероваться . Загрузка каждой фотографии вручную занимает очень большое количество времени , так как фотографий обычно более 500 штук , и раза 2 в неделю приходится создавать отчеты , может кто сможет помочь , или натолкнуть на мысль как это можно сделать , буду очень признателен , за раннее благодарю !!!

[OLOSO]

xstarter _http://www.xstarter.com/rus/index.html

[Z1000000]

Начни так...

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("E:\MyDocuments\My Pictures\")
Set fc = folder.files
for Each fl in fc
 objSelection.InlineShapes.AddPicture fl.path, False,True
 objSelection.TypeParagraph
next
ObjDoc.SaveAs("1.doc")