[Iska]

Gowdin, так, ну, кода-то там всего ничего будет. Примерная болванка:

Код:

    If objFSO.FolderExists(strFolder) Then
        With ActiveDocument.Tables.Item(1)
            For Each objFile In objFSO.GetFolder(strFolder).Files
                .Rows.Add
                .Cell(.Rows.Count, 1).Range.Text = .Rows.Count - 2
                .Cell(.Rows.Count, 2).Range.InlineShapes.AddPicture FileName:=objFSO.BuildPath(strFolder, objFile.Name), LinkToFile:=False, SaveWithDocument:=True
            Next
        End With
    End If

Основной вопрос — как лучше и удобнее будет организовать исполнение?! То есть, как сделать, например, выбор: выбор каталога с файлами, выбор файлов из одного каталога, выбор файлов с любого места? Как быть с документом: заполнять уже открытый существующий документ, делать на основе шаблона, создавать программно? В общем, опишите, как Вы сие видите.