Kilka minut temu też znalazłem ten sposób. Jest OK, ale muszę poeksperymentować z makrem, bo lubię wygodę...

Prawda ci to, ale makrami zabawiam się po amatorsku i nie znałem tego sposobu na usunięcie pól z listowaniem. Zresztą przerabiam tylko literaturę, więc kursywa czy pogrubienia nie były wielką stratą... Teraz dopracuję to makro i będzie OK.

Makro dopracowane. Okazało się, że wystarczy dodać do mojego ogólnego makra jak następuje:

Sub ConvertNumbersToText()
ActiveDocument.ConvertNumbersToText
End Sub

Można by zrobić jakiś poradnik, bo te wszystkie nasze wzajemne rady są porozrzucane po całym forum a pytania ciągle są podobne...

Trzeba by było stworzyć jedno dobre makro, uwzględniające maksymalną liczbę błędów po OCR i po konwersji z PDF i udostępnić je tutaj. Może pomyślę o tym w wolnych (około)świątecznych chwilach...

To nie jest dobry pomysł. Teksty po OCR są różne, lepiej stosować pewne makra po kolei. Kiedyś też robiłam hurtowo korektę, ale teraz wolę robić pewne rzeczy ostrożniej.

Myślałem oczywiście o kilku, dokładnie nazwanych i opisanych. Przyzwyczaiłem się mówić jak o jednym makro, bo w edytorze VBS, gdy w nich grzebię, wyświetlają się inline jako całość

Napisałeś "teksty po OCR są różna" - żywa prawda, jednak dla potrzeb dyskusji ustalmy, że piszemy o plikach PDF, które zostały przepuszczone przez ABBYY PDF Transformera i mamy wynikowy plik RTF. Transformer sporo poprawia i usuwa sporo błędów prostych aplikacji OCR.

Oczywiście bywają czasami potężnie skopane PDF, ale to raczej rzadkie zjawisko.

witam,naprawdę dziękuję za aż takie zainteresowanie tematem,ale czy moglibyście rozpisać kilka takich właśnie makr np do łamania wierszy jak w moim przypadku itp?myślę że wielu osobom by się to bardzo przydało.i druga sprawa ,czasem uda natrafić mi się na juz gotowy plik w formacie epub,lecz również nie są one zbyt dobrze przygotowane,i czy gdy są w takim formacie da się cos z nimi jeszcze zrobić?jeszcze jedna rzecz,w niektórych e-książkach gdy już mam je na nooku po prostu nie da rady zmienić wielkości czcionki,czym to może być spowodowane?

Najprościej będzie skonwertować w Calibre do RTF, zrobić w Wordzie poprawki i ponownie zamienić na EPUB.

Trochę czasu, trochę poszukiwań i okazuje się, że pola tekstowe można łatwo zamienić na tekst lub po prostu zlikwidować.
Otóż bardzo często, po konwrsjii przy pomocy ABBYY PDF Converter, w plikach RTF pojawiają się pola tekstowe z numerami stron, które zostały po skanach. Jeżeli chcemy zostawić te numery i zamienić je na tekst to: Ctrl+A, a następnie Ctrl+Shift+F9. Jeżeli chcemy je całkowicie usunąć - co jest najlepszym rozwiązaniem - to: wciskamy kombinację Alt+F9, w tym momencie mamy pokazane pola tekstowe, następnie idziemy do Edycja/Zamień, klikamy na "Znajdź", w Specjalnych wybieramy "Pole" (^d) a "Zamień" zostawiamy puste.
W ten sposób nie mammy pól tekstowych z numerami stron, ale mamy podwójny odstęp (dwa znaki akapitu), ich zamiana na jeden będzie możliwa, gdy Edycja/Zamień/Specjalne usuniemy najpierw podział sekcji, a następnie w "Znajdź" wstawiamy dwa razy znak akapitu, zaś w "Zamień" jeden znak akapitu.

Oczywiście to wszystko można zrobić za pomocą makro:
Sub Usuwanie_numerow_stron()
'
' Usuwanie_numerow_stron Makro
'
'
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^d"
.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 = "^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 = "^p^p"
.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

witam,no i jak tam,dałoby rade stworzyc kilka makr i wrzucic na forum?mysle ze wielu osobom by sie to przydalo.nie mam pojecia jak stworzyc dobre makro

aha i takie jeszcze jedno pytanko,czy da sie zrobic podglad ebooka na kompie,ale tak zeby dokladnie odzwierciedlalo jak on bedzie wygladal na czytniku?chodzi mi o to ze meczace jest np przerobka ebooka ,nastepnie wgrywanie na czytnik i dopiero wtedy widac jak on tak naprawde wyglada

W calibre masz podgląd książki.

no tak,ale czy bedzie to identyczny wyglad tekstu jak na czytniku?wlacznie z lamaniem wierszy ,jakimis niepotrzebnymi enterami itd ?

No tak. Właśnie te rzeczy widać najlepiej - jak jest łamany tekst.