Вопрос : Автоматически введите изображения/фотоих в слово

Я имею шаблон что я ввожу фотоих от места в и интересовал если будет дорога сделать это автоматически путем добавлять некоторый вид соединения?? была apreciated любая консультация!! Regards class=

Ответ : Автоматически введите изображения/фотоих в слово

Это будет макрос слова VBA:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:

Sub InsertPictures () Тусклое strFolder как шнур Тусклое strFile как шнур Тусклое ilsh как InlineShape strFolder = «C:\MyFolder» strFile = Dir$ (strFolder & «\ *.jpg») Не сделать до strFile = "" Установите ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder & «\» & strFile, ложно, поистине, ActiveDocument.Bookmarks («\ EndOfDoc»). Ряд) strFle = Dir$ () Петля Подводная лодка конца