Masovna konverzija iz DOCX u PDF

[ sheff @ 21.05.2008. 15:24 ] @

Dakle, da li mi neko moze preporuciti freeware komad softvera koji bi mogao vrsiti konverziju veceg broja Word-ovih .docx fajlova u Adobe-ov .pdf ali u jednom koraku?
Svaka sugestija je dobrodosla.

[ rgdrajko @ 21.05.2008. 19:21 ] @

Pa sam Word 2007 ti vrsi konverziju(export) u pdf fajl. Napravi makro koji bi ti preko Do... Loop ili For petlje(ako ti je lakse) otvarao npr. sve docx fajlove iz nekog odabranog foldera i preko Save As snimao u pdf fajl. To je veoma lako, samo malo poznavanja Visual basica, tj. VBA.

[ sheff @ 22.05.2008. 07:50 ] @

Da, ali kako - nisam programer :(

[ drvlada75 @ 22.05.2008. 09:30 ] @

Skini najnoviji Open Office 3 (beta)...
Otvara docx i veoma jednostavno, iz File menija, exportuje u PDF...
Mislim da je ovo dosta dobro i pre svega potpuno besplatno resenje...

[ Miroslav Jeftić @ 22.05.2008. 09:37 ] @

Zašto bi to radio? Word 2007 može da snima fajlove u PDF.

http://www.microsoft.com/downl...2E79ED87041&displaylang=en

Doduše, nisam siguran da postoji način da se fajlovi automatski konvertuju bez otvaranja.

[ sheff @ 22.05.2008. 15:14 ] @

mah niste shvatili - nije u tome problem nego u tome da imam nekih par hiljada fajlova u .docx koje trebam pretvoriti u .pdf - ne pada mi na pamet da sad otvaram jedan po jedan dokument i tako sve jedan po jedan exportujem u .pdf.
da li je sad jasnije!?
@Miroslav: pretpostavljam da je ipak potrebno otvoriti fajl da bi se mogao pretvoriti, ali bar da to cini automatski, bez da moram klikat fajl po fajl... ne bih do godine tako...

[ Catch 22 @ 22.05.2008. 16:41 ] @

^ Mislim da je glavni problem sa upotrebom Worda ili njegove zamene u ovome:

Citat:

sheff: Da, ali kako - nisam programer :(

?
A ti valda tražiš nekakav posebni "one click" program, u kom bi prostim drag 'n' drop sve te silne fajlove automatski konvertovao?

Zamzar - free online file conversion

WordML/Ddocx to pdf

Convert docx to pdf

DOCX Convert Office 2007

Convert Word 2007 and OpenOffice files (DOCX, DOTX, SXW, and ODT) to rich text files (RTF) with Docx2Rtf

_{[Ovu poruku je menjao Catch 22 dana 22.05.2008. u 17:59 GMT+1]}

[ rgdrajko @ 22.05.2008. 17:14 ] @

Posto sada trenutno na ovom racunaru nemam word 2007 dacu ti primer za konverziju 1000 doc fajlova u xml fajlove, a ti posle xml zameni u pdf, ako ne budes znao ja cu to sutra da uradim.

U nekom fajlu npr: DIR.TXT treba da budu sva imena i ekstenzije doc fajlova jedno ispod drugog iz tog foldera.
Da ih ne bi rucno ukucavao postupi ovako:

Iz dos-prompta u tom folderu otkucaj:

dir/b>dir.txt za sve fajlove

ili

dir *.doc/b>dir.txt samo za doc

Svi fajlovi iz tog foldera ce biti upisani u tekstualnom fajlu DIR.TXT sa sve ekstenzijom, i na taj nacin ne moras da prekucavas imena i ekstenzije posto si rekao da ih ima na hiljadu.

Code:
Sub MasovnaKonverzija()
'
' MasovnaKonverzija Macro
' Macro recorded 5/22/2008 by RAJKO
' Autor: Rajko Kuzmanovic   [email protected]

    Dim ImenaDocXfajlova(1 To 1000) As String

    On Error GoTo greska

    Open "c:\proba\dir.txt" For Input As #1
        brojac = 1
        Do While Not EOF(1)
            Line Input #1, OcitanoIzFajla
            ImenaDocXfajlova(brojac) = OcitanoIzFajla
            brojac = brojac + 1
        Loop
    Close #1

For n = 1 To 1000
    ChangeFileOpenDirectory "C:\proba\"
    Documents.Open FileName:=ImenaDocXfajlova(n), _
         ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    With ActiveDocument
        .XMLSaveDataOnly = False
        .XMLUseXSLTWhenSaving = False
        .XMLSaveThroughXSLT = ""
        .XMLHideNamespaces = False
        .XMLShowAdvancedErrors = False
        .XMLSchemaReferences.HideValidationErrors = False
        .XMLSchemaReferences.AutomaticValidation = True
        .XMLSchemaReferences.IgnoreMixedContent = False
        .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = True
        .XMLSchemaReferences.ShowPlaceholderText = False
    End With
    ActiveDocument.SaveAs FileName:= _
       ImenaDocXfajlova(n) & ".xml", FileFormat:=wdFormatXML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
Next n

greska:
End

_{[Ovu poruku je menjao rgdrajko dana 22.05.2008. u 18:24 GMT+1]}

[ cvelele @ 26.11.2008. 14:54 ] @

Postovani,

rgdrajko. Zamolio bih Vas da, ako imate vremena i volje, prepravite ovaj macro u macro za masovnu konverziju iz doc u txt. Pokusao sam sam da resim, ali mi prijavljuje "Compile error: Named argument not found". Vama je ovo sigurno smesno, a ja nemam poima o cemu se radi, bio bih Vam zahvalan na novom macro-u.

[ cvelele @ 27.11.2008. 11:42 ] @

Za one koji ce imati slican problem kao ja preporucujem All.Office.Converter.Pro.v4.0. Odlican program sa kvalitetnim, jednostavnim resenjem za konverziju u mnogo formata. Pozdrav