Word doc to pdf

Signaler
Messages postés
13
Date d'inscription
mardi 28 novembre 2000
Statut
Membre
Dernière intervention
25 février 2008
-
Messages postés
13
Date d'inscription
mardi 28 novembre 2000
Statut
Membre
Dernière intervention
25 février 2008
-
Hi from Italy...
Possible to convert .doc to .pdf with free component or using library reident in my PC (in effect have installaed Acrobat reader 7.0 and in the list of component of VB 6.0 heva acroprd32.dll instlled)
Tks.

Note: hope have understnd me.
:-)

4 réponses

Messages postés
206
Date d'inscription
lundi 22 novembre 1999
Statut
Membre
Dernière intervention
3 juillet 2008

PDFCreator is FREE, it's a PDF printer device.
You can then invoke PrintOut method from within your WinWord Application :)

Gérôme GUILLEMIN
Auteur du langage FBSL
Messages postés
326
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
29 avril 2008
2
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
Or you can use OOo !!
Messages postés
13
Date d'inscription
mardi 28 novembre 2000
Statut
Membre
Dernière intervention
25 février 2008

Found this code... work only if in PC is installed OpenOffice....
On other PC have error in:
Set oSM = CreateObject("com.sun.star.ServiceManager")
Peraph i must install OpenOffice also on the new PC or is possible to copy the the dll or activex from the pc where is installed OpenOffice? If yes, wich dll or activex i can copy?
Tks. 

Option Explicit
Sub test_pdf()
    Dim oSM, oDesk, oDoc As Object
    Dim OpenParam(1) As Object
    Dim SaveParam(1) As Object


    Set oSM = CreateObject("com.sun.star.ServiceManager")
    Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")


    Set OpenParam(0) = MakePropertyValue("Hidden", True)
    Set oDoc = oDesk.loadComponentFromURL("[file:///C:/1727-1.doc file:///C:/1727-1.doc]", "_blank", 0, OpenParam())


    Set SaveParam(0) = MakePropertyValue("FilterName", "writer_pdf_Export")
    Call oDoc.storeToURL("[file:///C:/1727-1.pdf file:///C:/1727-1.pdf]", SaveParam())


    Set oDesk = Nothing
    Set oSM = Nothing
End Sub
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