Mathew17 steam : matosman | 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 :
- 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 :
- 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 Message édité par Mathew17 le 30-03-2012 à 10:01:34
|