Pb Script ( export writer en pdf)
Bonjour,
Tout d'abord, ce que je souhaite faire :
Créer un script dans un fichier, double-cliquer sur ce fichier afin de générer un PDF à partir d'un document Open office.( le but final sera d'automatiser ce fonctionnement)
J'ai fait u peu de recherche sur internet pour arriver à ce petit script pour pouvoir effectuer un test :
Code:
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
| Dim appOOServiceManager
Dim appOODesktop
Dim objDocument
Dim argt()
Dim args(1)
Dim Fichier
Dim Fichier2
'Transformation du chemin pour l'ouvrir au format URL
Fichier="file:///C:/Documents and Settings/grzfr/Desktop/toto.odt"
Fichier=Replace(Fichier,"\","/")
Fichier2="file:///C:/Documents and Settings/grzfr/Desktop/toto.pdf"
Fichier2=Replace(Fichier2,"\","/")
Set appOOServiceManager=CreateObject("com.sun.star.serviceManager")
Set appOODesktop=appOOServiceManager.CreateInstance("com.sun.star.frame.Desktop")
Set objDocument=appOODesktop.loadComponentFromURL(Fichier,"_blank", 0, argt)
'Tableau pour les paramètres de conversion
Set args(0) = appOOServiceManager.Bridge_getStruct("com.sun.star.beans.PropertyValue")
'Arguments Open Office pour convertir un document Writer en PDF
args(0).Name = "FilterName" 'nom de l'argument
args(0).Value = "writer_pdf_Export" 'valeur de l'argument
objDocument.storeToURL Fichier2, args()
objDocument.Close(True)
Set objDocument=Nothing |
mais j'ai l'erreur suivante :
Citation:
Script : C:\Documents and Settings\grzfr\Desktop\test.vbs
ligne : 24 (objDocument.storeToURL Fichier2, args())
Caract. : 1
Erreur : Subscript of range
Code : 800A0009
Source : Microsoft VBSCripts runtime error
Quelqu'un pourrait-il me dépanner ?
Merci.
