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

Автор Devlin_Smith, 28 июня 2015, 10:25

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

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