Posted By: Keson (Keson) on 'CZunix'
Title:     Re: prevod do pdf
Date:      Mon Apr 11 15:56:18 2005

> 
> Potrebuju nejakym zpusobem automatizovat prevod wordovych dokumentu do pdf. 
> Wordove dokumenty jsou ulozeny na unixovem serveru. Pouzit open office 
> nepripada v uvahu, firemni dokumenty bohuzel nezvlada. 
> Mam k dispozici linux a windows s vmware, nainstlaovany M$ office - prevod
> do 
> pdf se provadi tiskem na pdf "tiskarnu" ve win. Pripadne normalni win 
> workstation s officama. 
> 
> Nenapada vas nahodou, jak to oskriptovat? Jestli trebas neexistuje nejaky 
> projekt, ktery by to umoznoval....
> 
> Dikec,
> Jet.
>  
>  

zkus treba tohle
 - zpristupni si dokumenty do widli (samba?)
 - udelej si seznam (perl?) a pastni do skriptu
        (programovat search ve VB se ti doufam nechce)
 - nastav si default tiskarnu na PDF

a ve wordu pust:

Sub Quork()
'
' Quork Makro
' Print files to file (using default printer)
'

    Dim files As Variant
    files = Array( _
        "D:b.doc", _
        "D:c.doc" _
        )

    For Each file In files
    
        file_out = Mid(file, 1, Len(file) - 3) & "pdf"
        
        
        ' print file
        Application.PrintOut FileName:=file, _
            Range:=wdPrintAllDocument, _
            Item:=wdPrintDocumentContent, _
            Copies:=1, _
            Pages:="", _
            PageType:=wdPrintAllPages, _
            ManualDuplexPrint:=False, _
            Collate:=True, _
            Background:=True, _
            PrintToFile:=True, _
            PrintZoomColumn:=0, _
            PrintZoomRow:=0, _
            PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0, _
            OutputFileName:=file_out, _
            Append:=False
            
    Next
End Sub

                                              Keson
* * * * * * * * * * * * * 
  a stejne je hezky :-)
* * * * * * * * * * * * *