W dniu 2015-05-15 o 21:15, Radosław Sokół pisze:
W dniu 15.05.2015 o 12:44, Stregor pisze:
Jest jakiś program pod Windows, którym bym taką operację - jednorazowo - szybko
i sprawnie wykonał? Najchętniej w wyniku widziałbym .pdf, ale jakiś .doc czy
.odt też mógłby być.
Napisać skrypt, który wygeneruje automatycznie dokument LaTeXa
i potem pdflatex-em zbudować PDFa.
Albo - prościej, ale mniej "zarządzalnie", zrobić to samo,
ale za pomocą PHP, generując HTMLa z prostą galerią obrazków
i wydrukować do PDFa.
Gotowca bym się raczej nie spodziewał. Jak chcesz cokolwiek
ponad ręczną edycję w Wordzie, to już musisz jednak umieć
troszeczkę programować -- choćby i napisać makro w Wordzie.
U siebie mam coś takiego:
@Echo Off
::
:: Automatyczna konwersja CBR, CBZ, CB7 do PDF
:: W archiwach CBx mogą znajdować się pliki .jpg lub .jpeg
:: Pliki do konwersji muszą sie znajdować w katalogu (%OutDir%)
::
Set Rename=0
Set OutDir=PdfOut
Set IsCBX=
Cd %OutDir%
::
:: CBR -> RAR
:: CB7 -> 7Z
::
For %%x In (*.cbr,*.cb7) Do Call :Convert "%%x"
::
:: CBZ -> ZIP
::
Set Rename=1
For %%x In (*.cbz) Do Call :Convert "%%x"
Cd ..
If "%IsCBX%"=="" GoTo NoCBX
Echo.
Echo.KONWERSJA ZAKONCZONA.
Echo.
Echo.
Echo.wcisnij spacje...
Pause > NUL
GoTo End
:NoCBX
Echo.
Echo.Brak plikow CBR, CBR, CB7 w katalogu %OutDir%!
GoTo End
::
:: Sub Convert
::
:Convert
Set IsCBX=%IsCBX%.
Echo.
Echo.==========================================================================
Echo. %1
Echo.==========================================================================
::
:: Konieczna zmiana nazwy .cbz na .zip inaczej nie umie rozpakować
::
Set CBX="%1"
If "%Rename%"=="0" GoTo :Unpack
Copy /Y "%CBX%" "%CBX%.zip" > NUL
Set CBX=%CBX%.zip
:Unpack
Echo.wypakowanie z archiwum: %CBX%
..\7z.exe e -y -r "%CBX%" *.jp* > NUL
Echo.konwersja do pdf: %1
::
:: -m - margines
:: -p - rozmiar strony: A0..A10, Letter, .., auto
:: -n - orientacja: portrait, lanscape, auto
:: -z - skalowanie
:: -r - przycinanie
::
..\jpeg2pdf.exe -m 10mm -o %1.pdf *.jp* > NUL
del /Q *.jp*
If "%Rename%"=="1" Del /Q "%CBX%"
GoTo :Eof
:End
*****************
Nie jest to o co mu chodzi, ale wystarczy oskryptować żeby kapało po 2 pliki
na jednego pdf'a
--
Artur
1 week 0 days 15 hours 49 minutes 59 seconds and 525 milliseconds.
"pl.comp.os.ms-windows.winnt"
|