Word 2010, ouvrir un fichier .doc et l'enregistrer en .pdf

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