Автор Тема: Работа с файлом  (Прочитано 1084 раз)

Devlin_Smith

  • Гость
Работа с файлом
« : 28 Июнь 2015, 10:25 »
При запуске макроса выскакивает ошибка неверно указан путь файла.
Проблема в том что путь в строке указан верно, но не могу 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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
Re: Работа с файлом
« Ответ #1 : 28 Июнь 2015, 10:34 »
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

  • Гость
Re: Работа с файлом
« Ответ #2 : 28 Июнь 2015, 11:08 »
Огромное спасибо!
Как я про это забыл?