При запуске макроса выскакивает ошибка неверно указан путь файла.
Проблема в том что путь в строке указан верно, но не могу ActiveDocument.Paragraphs(1).Range.Text преобразовать в String
Как это можно сделать?
Sub Макрос1()
Dim FOS As String
FOS = ActiveDocument.Paragraphs(1).Range.Text
MsgBox FOS
Selection.InlineShapes.AddPicture FOS, LinkToFile:=False, SaveWithDocument:=True
ActiveWindow.ActivePane.VerticalPercentScrolled = -116
End Sub
Devlin_Smith, в программе "Word" на конце абзаца есть символ "Конец абзаца" (или как-то по-другому он называется). Поэтому, прежде чем подставлять данные, нужно изменить данные.
Sub Procedure1()
Dim strFN As String
' Копирование абзаца из Word в переменную.
strFN = ActiveDocument.Paragraphs(1).Range.Text
' Удаление с конца символа "Конец абзаца".
strFN = Left(strFN, Len(strFN) - 1)
' Теперь можно подставлять переменную в нужное место.
End Sub
Огромное спасибо!
Как я про это забыл?