Пригодится тем, кто хочет вытащить текстовую информацию из PDF - файла.
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.Фильтр = НСтр("ru = ""Текст""; en = ""Text""")+"(*.pdf)|*.pdf";
ДиалогОткрытияФайла.Заголовок = "Выберите файл";
ДиалогОткрытияФайла.ПроверятьСуществованиеФайла = Истина;
Если Не ДиалогОткрытияФайла.Выбрать() Тогда
Возврат;
КонецЕсли;
ФайлPDF = ДиалогОткрытияФайла.ПолноеИмяФайла;
КаталогВременныхФайлов = КаталогВременныхФайлов();
МакетУтилиты = ОбработкаОбъект.ПолучитьМакет("pdftotext");
Адрес = ПоместитьВоВременноеХранилище(МакетУтилиты, Новый УникальныйИдентификатор);
ФайлУтилиты1 = КаталогВременныхФайлов + "pdftotext.exe";
ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
УдалитьИзВременногоХранилища(Адрес);
ДанныеХранилища.Записать(ФайлУтилиты1);
МакетУтилиты = ОбработкаОбъект.ПолучитьМакет("xpdfrc");
Адрес = ПоместитьВоВременноеХранилище(МакетУтилиты, Новый УникальныйИдентификатор);
ФайлУтилиты3 = КаталогВременныхФайлов + "xpdfrc";
ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
УдалитьИзВременногоХранилища(Адрес);
ДанныеХранилища.Записать(ФайлУтилиты3);
Текст = Новый ТекстовыйДокумент();
Текст.Записать(КаталогВременныхФайлов +"temp.txt") ;
pdf = ФайлPDF;
txt = КаталогВременныхФайлов + "temp.txt";
Команд = КаталогВременныхФайлов+"pdftotext.exe " + pdf + " " + txt;
ЗапуститьПриложение(Команд,,Истина);
Текст = Новый ЧтениеТекста(КаталогВременныхФайлов+"temp.txt", КодировкаТекста.UTF8);
Стр = Текст.ПрочитатьСтроку();
Пока Стр <> Неопределено Цикл
Сообщить(Стр);
Стр = Текст.ПрочитатьСтроку();
КонецЦикла;
Текст.Закрыть();
УдалитьФайлы(КаталогВременныхФайлов + "temp.txt");
УдалитьФайлы(КаталогВременныхФайлов + "pdftotext.exe");
УдалитьФайлы(КаталогВременныхФайлов + "xpdfrc");