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) :
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
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
J'ai évidemment tester cette macro en .vbs qui n'a pas marcher.
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
Comment traduire cette macro en .Vbs .
Merci d'avance
Partager