Teraz jest 21 sty 2021 12:31:37




Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 44 ]  Przejdź na stronę 1, 2, 3  Następna strona
Konwersja pdf na epub 
Autor Wiadomość
Użytkownik

Dołączył(a): 15 gru 2013 20:25:36
Posty: 13
eCzytnik: Nook ST
Post Konwersja pdf na epub
Witam,jak w temacie prosiłbym o podanie najlepszego sposobu aby książkę dało się sprawnie czytać.obecnie używam programu calibre,ale nie do końca jestem zadowolony,może po prostu mam go źle skonfigurowanego?
a mianowicie po konwersji występują polskie litery ale tekst wygląda tak że jedna linia tekstu jest normalna,następna ma już tylko pół długości,a kolejna jest pusta.i tak w kółko.prosił bym o różne propozycje


15 gru 2013 20:31:33
Zobacz profil
Użytkownik

Dołączył(a): 04 cze 2011 10:52:37
Posty: 2457
Lokalizacja: Kraków
eCzytnik: Kindle PocketBook Kobo Tolino
Post Re: Konwersja pdf na epub
Hej!
Calibre nieźle powinien sobie poradzić jeśli ma dobrze przygotowany plik tekstowy (np. ODF). A dobre przygotowanie dokumentu to najpierw potraktowanie PDFa programem typu OCR a następnie mniej lub bardziej ręczne usunięcie wymuszonych zakończeń linii (enterów) i ogólne sformatowanie (nadanie stylów odpowiednim fragmentom jak tytuły i akapity).
U mnie to wygląda tak:
1. PDF-->OCR-->DOC;
2. DOC-->kilka godzin (ręcznej pracy)--->ODF;
3. ODF-->calibre-->MOBI/EPUB (czytanie bez zgrzytania zębów na błędy formatowania).

_________________
Pozdrawiam,
Cyfranek
http://cyfranek.booklikes.com | https://www.facebook.com/cyfranekblog


15 gru 2013 22:47:39
Zobacz profil WWW
Użytkownik

Dołączył(a): 03 kwi 2010 16:43:21
Posty: 96
Post Re: Konwersja pdf na epub
Napisałem taki mikropradniczek chwilę temu, jest tutaj: calibre-f164/calibre-a-pdf-proste-rozwiazanie-t12242.html

Stosuję tę metodę przez cały czas, zadowolenie w górnej strefie stanów wysokich.
Pytajcie śmiało, podzielę się doświadczeniami.

_________________
PocketBook Inkpad 3
PocketBook TouchLux 3
Samsung Galaxy Tab S2


17 gru 2013 21:53:01
Zobacz profil
Użytkownik

Dołączył(a): 15 gru 2013 20:25:36
Posty: 13
eCzytnik: Nook ST
Post Re: Konwersja pdf na epub
witam,i dziękuję za zainteresowanie.

Cyfranek napisał(a):
Hej!

2. DOC-->kilka godzin (ręcznej pracy)--->ODF;


kurczę,to jak dla mnie zdecydowanie za długo żeby ręcznie tyle czasu poświęcic na jedną książkę,mimo iż pomysł dobry.



Kirek50 napisał(a):
Napisałem taki mikropradniczek chwilę temu...


o super,na pewno się przyda,zaraz go przejrzę.
dzięki za pomoc


18 gru 2013 16:52:24
Zobacz profil
Użytkownik

Dołączył(a): 04 cze 2011 10:52:37
Posty: 2457
Lokalizacja: Kraków
eCzytnik: Kindle PocketBook Kobo Tolino
Post Re: Konwersja pdf na epub
Kirek50 robi dokładnie to samo, co ja opisałem. Cały problem sprowadza się do oczyszczenia pliku tekstowego po konwersji z PDF. Czy jest to RTF, czy DOC nie ma specjalnego znaczenia. Ja akurat nie jestem w stanie zrobić np. sensownego makra, które rozpozna wstawiony w tekście elektronicznym numer strony (ze stopki strony papierowej) i go usunie, albo rozpozna, że wstawiony enter trzeba usunąć, bo akurat koniec linijki nie jest potrzebny.
Kirek50, czy mógłbyś napisać o jakich makrach przyspieszających redakcję RTFa myślałeś? Co one robią? Jak działają?

_________________
Pozdrawiam,
Cyfranek
http://cyfranek.booklikes.com | https://www.facebook.com/cyfranekblog


18 gru 2013 17:51:36
Zobacz profil WWW
Użytkownik

Dołączył(a): 15 gru 2013 20:25:36
Posty: 13
eCzytnik: Nook ST
Post Re: Konwersja pdf na epub
Kirek50 napisał(a):
Oczywiście męczące byłoby zamienianie za każdym razem "na piechotę", więc najlepiej zarejestrować sobie w Wordzie kilka makropoleceń z najczęściej koniecznymi poprawkami. Po uruchomieniu takiego makra otrzymujemy prawie idealny plik RTF, który konwertujemy do potrzebnego formatu w Calibre.



mógłbyś dokładnie opisać jak to robisz,bo nie mam zielonego pojęcia jak to się robi


18 gru 2013 19:20:34
Zobacz profil
Użytkownik

Dołączył(a): 03 kwi 2010 16:43:21
Posty: 96
Post Re: Konwersja pdf na epub
Makra w największym skrócie. Wczytujemy sobie do Worda "zanieczyszczony" tekst, w menu Narzędzia/Makro włączamy "Zarejestruj Makro", nadajemy nazwę, krótko sobie opisujemy i działamy. Podstawowa sprawa to skorzystanie z Edycja/Zamień. Klikamy w pole "Znajdź", na dole w "Specjalne" wybieramy np. łącznik nierozdzielający (podstawowa paskuda po OCR), pole "Zamień" zostawiamy puste i zatwierdzamy "Zamień wszystko" - w tym momencie wszystkie tego typu błędy znikają. Oczywiście nie musimy stosować tylko opcji umieszczonych w "Specjalnych", bo możemy zamienić dowolny znak na inny dowolny lub usunąć, gdy pole "Zamień" zostawimy puste, możemy w ten sposób zamieniać na pojedynczą podwójne i potrójne spacje itp. itd. Gdy już wyczerpiemy wszystkie pomysły i możliwości to kończymy rejestrację makro.
Następnym razem, gdy wczytamy "zanieczyszczony" tekst po OCR, sięgamy tylko do Narzędzia/Makro/Makra i wybieramy to, które nam akurat jest potrzebne. Oczywiście tych makr możemy stworzyć dowolną liczbę, według potrzeb.

Ważne: w Wordzie musimy mieć włączony widok wszystkich znaków, również niedrukowalnych.

Nie wiem czy to jasno napisałem, ale zawsze wujek Google pomoże :)
----------------------------------------------------------
Poniżej proste makro a właściwie dwa do podstawowego czyszczenia:

Sub Ksiazka1()
'
' Ksiazka1 Makro
' Do poprawiania na epub1
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^-"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ".^p^b"
.Replacement.Text = ".^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "?^p^b"
.Replacement.Text = "?^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "!^p^b"
.Replacement.Text = "!^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "-^p^b"
.Replacement.Text = "- "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ",^p^b"
.Replacement.Text = ", "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^b"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Ksiazka2()
'
' Ksiazka2 Makro
' Z numeracją stron
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^-"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^b"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

_________________
PocketBook Inkpad 3
PocketBook TouchLux 3
Samsung Galaxy Tab S2


18 gru 2013 20:05:43
Zobacz profil
Użytkownik

Dołączył(a): 03 kwi 2010 16:43:21
Posty: 96
Post Re: Konwersja pdf na epub
Cyfranek napisał(a):
nie jestem w stanie zrobić np. sensownego makra, które rozpozna wstawiony w tekście elektronicznym numer strony (ze stopki strony papierowej) i go usunie, albo rozpozna, że wstawiony enter trzeba usunąć, bo akurat koniec linijki nie jest potrzebny.


Jeżeli chodzi o PDF Convertera, o którym pisałem, to z reguły problemy te nie występują w pliku wynikowym, bo raczej nie wstawia niepotrzebnych enterów, a gdy są, to z reguły entery "twarde" (shift+enter), które usuwa mi makro. Zwykłe entery, które niepotrzebnie przełamują wiersz można sobie usunąć w opcji Edycja/Zamień taką kombinacją: w "Znajdź" dajesz spację i wybrany ze "Specjalnych" "znak akapitu", w "Zamień" tylko spację. Czasem jest to ręczny podział wiersza, co też można usunąć przy pomocy "Specjalnych".

Z numerami strony bywa różnie, bo mogą być też polem tekstowym - to dłuższy wywód. W największym skrócie - pól tekstowych można się pozbyć przerzucając tekst np. do Notepada++ i z powrotem do Worda.

_________________
PocketBook Inkpad 3
PocketBook TouchLux 3
Samsung Galaxy Tab S2


18 gru 2013 20:22:16
Zobacz profil
Użytkownik

Dołączył(a): 04 cze 2011 10:52:37
Posty: 2457
Lokalizacja: Kraków
eCzytnik: Kindle PocketBook Kobo Tolino
Post Re: Konwersja pdf na epub
Piękne dzięki za odpowiedź. Potestuję przy najbliższej okazji :)
Ja jeszcze mam problem z dialogami, które mój program OCR zamienia często na listy wypunktowania (jak numerowanie). Czy z tym udało Ci się to jakoś automagicznie zwalczyć? Bo ja jedyną receptę jaką znalazłem to ręczne wyszukanie takiego "wypunktowania" i uruchomienie makro, które:
- usuwa formatowanie wypunktowania;
- skacze na początek linijki;
- wstawia myślnik i spację.
Ale mam problem jak wyszukać automatycznie takie miejsca...

_________________
Pozdrawiam,
Cyfranek
http://cyfranek.booklikes.com | https://www.facebook.com/cyfranekblog


19 gru 2013 10:41:10
Zobacz profil WWW
Post Re: Konwersja pdf na epub
Cyfranek napisał(a):
Piękne dzięki za odpowiedź. Potestuję przy najbliższej okazji :)
Ja jeszcze mam problem z dialogami, które mój program OCR zamienia często na listy wypunktowania (jak numerowanie). Czy z tym udało Ci się to jakoś automagicznie zwalczyć? Bo ja jedyną receptę jaką znalazłem to ręczne wyszukanie takiego "wypunktowania" i uruchomienie makro, które:
- usuwa formatowanie wypunktowania;
- skacze na początek linijki;
- wstawia myślnik i spację.
Ale mam problem jak wyszukać automatycznie takie miejsca...



Listy wypunktowania można usunąć makrem "ActiveDocument.ConvertNumbersToText". Punktor zostaje zamieniony na tekst w całym dokumencie.


19 gru 2013 13:14:16
Użytkownik

Dołączył(a): 03 kwi 2010 16:43:21
Posty: 96
Post Re: Konwersja pdf na epub
Cyfranek napisał(a):
Ja jeszcze mam problem z dialogami, które mój program OCR zamienia często na listy wypunktowania (jak numerowanie). .


Z reguły są to pola tekstowe, więc trzeba przerzucić do Notepada++ (lub dowolnego innego tego typu edytora), tenże zamieni je znaki, znaki zamieniamy w Wordzie opcją "Zamień" na dowolne przeddialogowe np. tabulator-pauza-spacja.

Po edycji:
Zapomniałem dodać, że zamiany dokonać można także w Notepadzie++, bowiem ma taką opcję.

_________________
PocketBook Inkpad 3
PocketBook TouchLux 3
Samsung Galaxy Tab S2


Ostatnio edytowano 19 gru 2013 21:30:25 przez Kirek50, łącznie edytowano 1 raz



19 gru 2013 20:51:14
Zobacz profil
Użytkownik

Dołączył(a): 14 wrz 2013 14:21:50
Posty: 92
eCzytnik: Pocketbook 623
Post Re: Konwersja pdf na epub
Akurat tabulator nie jest najlepszym pomysłem.
Pauza 0150 (lub lepiej półpauza 0151) odstęp.
Wcięcie ustaw w "akapit\wcięcia\specjalne\pierwszy wiersz\parametr w pt


19 gru 2013 20:57:37
Zobacz profil
Użytkownik

Dołączył(a): 03 kwi 2010 16:43:21
Posty: 96
Post Re: Konwersja pdf na epub
Khouri napisał(a):
Listy wypunktowania można usunąć makrem "ActiveDocument.ConvertNumbersToText". Punktor zostaje zamieniony na tekst w całym dokumencie.


Hmmm... Sprawdziłem, bo nie znalem, ale wywala mi błąd następującej linii kodu: .Style = ActiveDocument.Styles("List Paragraph")
Możesz wrzucić swoje makro tutaj?

_________________
PocketBook Inkpad 3
PocketBook TouchLux 3
Samsung Galaxy Tab S2


19 gru 2013 21:04:14
Zobacz profil
Post Re: Konwersja pdf na epub
Kirek50 napisał(a):
Khouri napisał(a):
Listy wypunktowania można usunąć makrem "ActiveDocument.ConvertNumbersToText". Punktor zostaje zamieniony na tekst w całym dokumencie.


Hmmm... Sprawdziłem, bo nie znalem, ale wywala mi błąd następującej linii kodu: .Style = ActiveDocument.Styles("List Paragraph")
Możesz wrzucić swoje makro tutaj?



Mając otwarty do edycji dokument w wordzie naciskasz alt+f11. W pole "Immediate" wklejasz polecenie
"ActiveDocument.ConvertNumbersToText" i naciskasz enter. Wracasz do dokumetu i wszystkie punktory powinny być już tekstem. U mnie działa to bezbłędnie.


19 gru 2013 21:17:52
Post Re: Konwersja pdf na epub
Kirek50 napisał(a):
Cyfranek napisał(a):
Ja jeszcze mam problem z dialogami, które mój program OCR zamienia często na listy wypunktowania (jak numerowanie). .


Z reguły są to pola tekstowe, więc trzeba przerzucić do Notepada++ (lub dowolnego innego tego typu edytora), tenże zamieni je znaki, znaki zamieniamy w Wordzie opcją "Zamień" na dowolne przeddialogowe np. tabulator-pauza-spacja.


Po konwersji w notatniku, wszystko zostanie zamienione na plain text więc moim zdaniem bez sensu - zostaną utracone wszystkie atrybuty tekstu (boldy, kursywa).


19 gru 2013 21:31:20
Wyświetl posty nie starsze niż:  Sortuj wg  
Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 44 ]  Przejdź na stronę 1, 2, 3  Następna strona


Kto przegląda forum

Użytkownicy przeglądający to forum: Brak zalogowanych użytkowników i 1 gość


Nie możesz rozpoczynać nowych wątków
Nie możesz odpowiadać w wątkach
Nie możesz edytować swoich postów
Nie możesz usuwać swoich postów

Skocz do:  
cron