Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 54722
Главная » Готовые решения » VBA » Полезные приёмы

Получить текст из файла pdf в Excel
21.09.2018, 17:28
[ Файл-пример (29.7 Kb) ]

Только для Office 2013 и выше.

Sub IntoExcelThroughWord() 'with reference MS Word 15.0 Object Library & MS Forms 2.0 Object Library
Dim fNm$, oWrd As Word.Application
Dim oData As DataObject

fNm = Application.GetOpenFilename(FileFilter:="PDF Files (*.pdf), *.pdf", MultiSelect:=False)
If fNm = "False" Then Exit Sub
Application.ScreenUpdating = False

Sheets("Sheet1").UsedRange.ClearContents
Set oWrd = New Word.Application
Set oData = New DataObject

With oWrd.Documents.Open(fNm, ConfirmConversions:=False)
 DoEvents
 .Range.Copy
 Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
 oData.SetText ""
 oData.PutInClipboard
 .Close 0
End With

oWrd.Quit
Set oWrd = Nothing
Application.ScreenUpdating = True

MsgBox "Ok", 64
End Sub
Добавил: nilem |
Просмотров: 2626 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!