Автоматическая загрузка подписанных изображений на листы

[agn89]

Добрый день! Столкнулся со следующей проблемой.
Необходимо автоматически вставлять изображения из папки в 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

[agn89]

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