none
[VBS] Word 2010, ouvrir un fichier .doc et l'enregistrer en .pdf

    Question

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

    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 :

    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

    lundi 26 mars 2012 09:04

Réponses

  • Bonjour,

    En creusant un peu, vous n'étiez pas loin de la solution...

    Voici un exemple :

    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False
    Const wdExportFormatPDF = 17
    Const wdExportOptimizeForPrint = 0
    Const wdExportAllDocument = 0
    Const wdExportDocumentContent = 0
    Const wdExportCreateNoBookmarks = 0
    strDocPath = "C:\Users\Public\MyDoc.docm"
    strDocPDF = "C:\Users\Public\MyDoc.pdf"
    Set wordDoc = wordApp.Documents.Open(strDocPath)
    wordDoc.ExportAsFixedFormat strDocPDF, wdExportFormatPDF, True, wdExportOptimizeForPrint, wdExportAllDocument, 1, 1, wdExportDocumentContent, True, True, wdExportCreateNoBookmarks, True, True, False
    Bonne journée

    Argy

    jeudi 29 mars 2012 12:39

Toutes les réponses

  • Bonjour,

    En creusant un peu, vous n'étiez pas loin de la solution...

    Voici un exemple :

    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False
    Const wdExportFormatPDF = 17
    Const wdExportOptimizeForPrint = 0
    Const wdExportAllDocument = 0
    Const wdExportDocumentContent = 0
    Const wdExportCreateNoBookmarks = 0
    strDocPath = "C:\Users\Public\MyDoc.docm"
    strDocPDF = "C:\Users\Public\MyDoc.pdf"
    Set wordDoc = wordApp.Documents.Open(strDocPath)
    wordDoc.ExportAsFixedFormat strDocPDF, wdExportFormatPDF, True, wdExportOptimizeForPrint, wdExportAllDocument, 1, 1, wdExportDocumentContent, True, True, wdExportCreateNoBookmarks, True, True, False
    Bonne journée

    Argy

    jeudi 29 mars 2012 12:39
  • Merci c'est exactement ça.


    • Modifié Matosman jeudi 29 mars 2012 16:24
    jeudi 29 mars 2012 16:24