Discussion :

[FredGr]

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 :

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
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 :

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.

[FredGr]

Auto-réponse

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
Dim appOOServiceManager
Dim appOODesktop
Dim objDocument
Dim argt()
Dim args(0)
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

[FredGr]

Bonjour ,
Je voudrais améliorer ce script afin d'utiliser les options d'export de PDF d'Open office.
C'est à dire pouvoir empêcher l'impression et la copie du contenu du document PDF généré.

Je ne sais pas comment pas faire ??

J'ai bien trouvé des "options" à mettre à jour en utilisant l'argument FilterData mais je n'arrive pas les utiliser

EncryptFile Boolean False
DocumentOpenPassword String
RestrictPermissions True
PermissionPassword MotPePasse
Printing 0: Not permitted ou 1: Low resolution (150 DPI) ou2: High resolution
EnableCopyingOfContent False

Si quelqu'un peut m'aider ... merci