Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - 56. Konwerter PDF na TXT | Converter pdf to txt

Marecki · Excel Expert Wersja: Win Office 2021 Posty: 8809

Ostatnimi czasy na forum pojawiło się pytanie "Jak stworzyć w Excelu wyszukiwarkę tekstu w plikach PDF"
Zagadnienie niby proste dla posiadaczy pełnego Acrobat-a, ale.....
No właśnie.
Znalazłem w sieci na stronce http://www.foolabs.com/xpdf/ mały programik o nazwie "pdftotext.exe" (oprócz niego jest też parę innych ciekawych propozycji związanych z PDF-ami ).
Program ten z różnymi parametrami wywołujemy w konsoli CMD z lini komend.
Poniżej jego możliwości:

Cytat:

Copyright 1996-2014 Glyph & Cog, LLC
Usage: pdftotext [options] <PDF-file> [<text-file>]
-f <int> : first page to convert
-l <int> : last page to convert
-layout : maintain original physical layout
-table : similar to -layout, but optimized for tables
-lineprinter : use strict fixed-pitch/height layout
-raw : keep strings in content stream order
-fixed <fp> : assume fixed-pitch (or tabular) text
-linespacing <fp> : fixed line spacing for LinePrinter mode
-clip : separate clipped text
-enc <string> : output text encoding name
-eol <string> : output end-of-line convention (unix, dos, or mac)
-nopgbrk : don't insert page breaks between pages
-opw <string> : owner password (for encrypted files)
-upw <string> : user password (for encrypted files)
-q : don't print any messages or errors
-cfg <string> : configuration file to use in place of .xpdfrc
-v : print copyright and version info
-h : print usage information

Postanowiłem więc ubrać go w "szaty" UserForm-a i upakować tam część przydatnych parametrów .

Nie jest to co prawda wyszukiwarka tekstu , lecz nic nie stoi na przeszkodzie by poniższą aplikację rozbudować do takiej postaci - rozszerzyć jej funkcjonalność.
Mając już przekonwerterowane pliki do postaci TXT możemy z nimi robić cuda wianki :-)

Na razie jest to zwykły konwerter z PDF-a do TXT-ka.

Uwarunkowanie jest takie, że plik "Pdf to txt.xls" lub "Pdf to txt.xlsm" i "pdftotext.exe" muszą znajdować się w jednym katalogu.

Początkowo chciałem zrobić to w formie dodatku, korzystając z instalatora CreateInstall Free, lecz za bardzo nie wiem jak i gdzie umiejscowić plik "pdftotext.exe".
Może Oskar się pokusi o taki dodatek. Niestety nie może on być płatny.

Słowa krytyki i ewentualne sugestie odnośnie działania "aplikacji" mile widziane.

W załączniku "PDF_to_TXT.rar" są2 pliki Excel-owe dla starszej i nowszej wersji i 1 plik exe.

Zrobiłem też to samo ale już w pliku wykonywalnym Exe - Portable.

PDF_to_TXT.rar

Pobierz Plik ściągnięto 1059 raz(y) 412.38 KB

Pdf_to_txt ( Exe Portable ).rar

Pobierz Plik ściągnięto 465 raz(y) 796.9 KB

tkuchta1 · Excel Expert Posty: 2888

Jak odpalisz jakiś plik Excela a następnie Twój program (szacun! :-)

) to:

Kod:

Private Sub Workbook_Open()
Application.Visible = False
...

i po przycisku Wyjście

Kod:

If Application.Workbooks.count = 1 Then Application.Quit Else ThisWorkbook.Close False

Aplikacja pozostanie niewidoczna :-)

Przed zamknięciem skoroszytu przywróć Application.Visible = True

Marecki · Excel Expert Wersja: Win Office 2021 Posty: 8809

Dzięki Tomku.
Poprawione.
Znalazłem jeszcze dwa błędy - w numeracji stron i w kodzie przycisku "Info".
Załącznik podmieniony.

bodek · Wersja: Win Office 2019 Posty: 3187

Jak nie wskaże się nazwy pliku docelowego, to się zawiesza i to totalnie, nic nie można zrobić. Brak dostępu do aplikacji nie jest w takim przypadku zaletą, musiałem zrestartować kompa.
Start i zakończenie to nadal widoczne przez chwilę okno Excela, taka duperela.
Może jakaś nazwa domyślna i co najmniej obsługa w/w zjawiska.
Reszta OK, może się przydać :mrgreen:

Marecki · Excel Expert Wersja: Win Office 2021 Posty: 8809

bodek, u mnie nic takiego się nie dzieje, a w kodzie jest ustawiona nazwa domyślna pliku.

OShon · Wysłany: 19-10-2014, 11:34

Wiemy że Word w wersji 2013 ma wbudowany konwerter PDFów.
Możemy w tedy pobrać dane powołując się na obiekt tej aplikacji.

Marecki · Excel Expert Wersja: Win Office 2021 Posty: 8809

Dobra informacja Oskar.
Duży plus dla M$.
Taka funkcjonalność zapewne przyda się wielu osobom.
Choć dla mnie nic to nie zmienia, bo mam co mam - Ex 2010 :-(

.

Edit:
Zrobiłem apkę wykonywalną, czyli plik exe - portable, do testowania :-)

Pdf_to_txt ( Exe Portable ).rar

Pobierz Plik ściągnięto 524 raz(y) 796.9 KB