Работа с файлом

[Devlin_Smith]

При запуске макроса выскакивает ошибка неверно указан путь файла.
Проблема в том что путь в строке указан верно, но не могу 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

[Devlin_Smith]

Огромное спасибо!
Как я про это забыл?