Считаю, что тема закрыта. Разобрался сам. Можно заменить слово рисунок на какое угодно, предварительно зайдя во вкладку ССЫЛКИ-->НАЗВАНИЯ-->Вставить название и создать там новое название, которое нужно получить в итоге

Добрый день! Столкнулся со следующей проблемой.
Необходимо автоматически вставлять изображения из папки в Word с подписью фото снизу. На данном форуме нашел интересный пост который решил мою проблему, однако не могу разобраться с одной мелочью....Надпись под фото "Рисунок 1,2..и.тд. а необходимо фото 1,2...и.т.д. Ниже приведен макрос, который я нашел на форуме. Попытка заменить текст в трочке Selection.InsertCaption Label:="Рисунок", выдает ошибку: 4198. помогите пожалуйста разобраться...

Код: (vb)

Sub Перебор_всех_файлов_в_папке()
    Dim sFolder As String, sFiles As String, li As Long
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & Application.PathSeparator & "*.jpg")
    Do While sFiles <> ""
        li = li + 1
        Selection.InlineShapes.AddPicture FileName:=sFolder & "\" & sFiles, LinkToFile:=False, SaveWithDocument:=True
        Selection.InsertCaption Label:="Рисунок", TitleAutoText:="InsertCaption1", Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Спасибо большое за ответ!

Добрый день!

Помогите пожалуйста решить задачу.
На Листе 1 заполняются данными несколько строк, некоторые из них могут быть пустыми. Необходимо чтобы при каждом нажатии кнопки, данные из нескольких строк (исключая пустые) копировались в сводную накапливаемую таблицу ниже уже добавленных ранее строк. Пример прилагается. В листе "Сводная" показан конечный результат. на различных форумах находил  макросы для переноса только одной строки. Заранее спасибо

The_Prist, Спасибо, ПОЛУЧИЛОСЬ! Просто рядом со столбцом с названием фирмы в первой таблице, создал еще один с указанием пути!!!!!

А если делать гиперссылки через формулу ГИПЕРССЫЛКА(), тоже не получится?

Добрый день! Прошу помощи в следующем вопросе:
Имеется таблица с данными о объектах строительства (подрядчик, телефоны и.т.д) с гиперссылками на сканы документов. Объектов много и данных тоже(в примере сократил)
Для удобства просмотра создан второй лист где из списка выбираем объект и получаем необходимые данные....
Но функция ВПР показывает только соответствующие данные, без рабочих гиперссылок. На форумах прочитал, что можно по формуле: ГИПЕРССЫЛКА(ВПР(...)), НО ОНА НЕ РАБОТАЕТ.(пишет "не удается открыть указанный файл"
Может быть, подскажете иное решение данной задачи...

Господа, ГУРУ екселя, помогите пожалуйста! Пример прилагается ("Лист 1" С15 нужно открыть гиперссылку с "Текущие объекты" D3)