Discussion :

[tostinni]

Bonjour a tous,
Je suis a la recherche d'un composant tout simple qui me permette de convertir des documents words en PDF sans passer par une impression Word.
Je sais qu'il existe un tas d'imprimantes virtuelles PDF (PDF Creator...), cependant, cela implique de les installer sur le poste de mon utilisateur et ensuite faire appel aux fonctions d'impressions de Word en VBA.

J'ai croise un composant payant (dont je ne connais pas encore le prix, mais ca doit pas etre donne ) qui semble faire exactement ce que je veux en qques lignes de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set oPrinter = CreateObject("easyPdfSdk.Printer")
Set oPrintJob = oPrinter.PrintJob
oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"

source
Bref ca semble sympa, sauf que j'aimerai bien trouver la meme chose en gratuit et je n'ai pas eu de succes pour le moment.

L'un d'entre vous aurait une idee ?
Merci d'avance.

[SilkyRoad]

bonjour

ce lien pourra peut etre t'aider

www.pdf995.com

sinon , une autre solution , si la mise ne forme de tes documents Word n'est pas trop complexe , qui consiste à ouvrir le fichier Word avec Open Office . ce dernier possede un utilitaire de conversion au format PDF


bonne journée
michel

[tostinni]

bonjour

ce lien pourra peut etre t'aider

www.pdf995.com

sinon , une autre solution , si la mise ne forme de tes documents Word n'est pas trop complexe , qui consiste à ouvrir le fichier Word avec Open Office . ce dernier possede un utilitaire de conversion au format PDF


bonne journée
michel

Merci pour le lien, mais ca a l'air payant et je vois pas de mention sur un composant VB...
Quant a l'idee de l'ouvrir dans OO, ca ne m'avance pas bcp plus car je voudrais scripter en VB cette conversion...

[SilkyRoad]

rebonsoir

détrompe toi car il est tout a fait possible de piloter Open Office depuis une appli VB ou VBA

par exemple ,cette demo de Didier Alain permet d'ouvrir un document Word dans Open Office et de le convertir en PDF( testé avec VB6 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Command1_Click()
'
'http://www.oooforum.org/forum/viewtopic.phtml?p=85097
'
'didier.alain@kalitech.fr
'
'
Dim oSM, oDesk, oDoc As Object 'OOo objects
Dim OpenParam(1) As Object 'Parameters to open the doc
Dim SaveParam(1) As Object 'Parameters to save the doc
 
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
 
Set OpenParam(0) = MakePropertyValue("Hidden", True)  ' Open the file hidden
Set oDoc = oDesk.loadComponentFromURL("file:///C:/Documents and Settings/michel/dossier/general/excel/test.doc", "_blank", 0, OpenParam())
 
Set SaveParam(0) = MakePropertyValue("FilterName", "writer_pdf_Export")
Call oDoc.storeToURL("file:///C:/Documents and Settings/michel/dossier/general/excel/test.pdf", SaveParam())
 
Set oDesk = Nothing
Set oSM = Nothing
Unload Me
End Sub
 
 
'Automation/UNO bridge can't convert VB struct to UNO struct !
'cf http://api.openoffice.org/docs/DevelopersGuide/ProfUNO/ProfUNO.htm#1+4+4+5+3+Usage+of+Types
'
'Creates a sequence of com.sun.star.beans.PropertyValue s
'
'Original from DannyB
'
Public Function MakePropertyValue(cName, uValue) As Object
Dim oStruct, oServiceManager As Object
    Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
    Set oStruct = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    oStruct.Name = cName
    oStruct.Value = uValue
    Set MakePropertyValue = oStruct
End Function

bonne soiree
michel

[tostinni]

Au temps pour moi, merci pour le code.
Cependant, cela va m'imposer d'installer OO sur le poste client et me semble un peu bcp pour "juste" faire une conversion PDF
Merci tout de meme