Bonjour à tous,

Avec Word 2010, on peut enregistrer les documents en pdf.

J'aimerais créer un script .vbs qui ouvre un fichier .doc pour l'enregistrer en pdf.

voici la base (qui ne marche pas, bien entendu) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)
Const wdGoToBookmark = -1
Const wdDoNotSaveChanges = 0
Const ForReading = 1, ForWriting = 2
Const bWaitOnReturn = true
Dim WshShell, wordApp, wordDoc, wordRange, fso, f
Set wordApp = CreateObject("Word.Application" )
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open(path & "Vide.doc" )
'enregistrement
wordDoc.SaveAs(path & "test.pdf" )
wordApp.Quit
Avec word 2010, j'ai fait une macro pour enregistrer un document en .pdf et voici le résultat :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\CV\Vide.pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
J'ai évidemment tester cette macro en .vbs qui n'a pas marcher.

Comment traduire cette macro en .Vbs .

Merci d'avance