Exporte un document ou une plage au format PDF ou XPS
#include <Word.au3>
_Word_DocExport ( $oDoc, $sFilename [, $iFormat = $WdExportFormatPDF [, $iRange = $WdExportAllDocument [, $iFrom = Default [, $iTo = Default [, $bOpenAfterExport = False [, $bIncludeProperties = True [, $iCreateBookmarks = Default [, $bUseISO19005 = False]]]]]]]] )
$oDoc | Objet Document Word � exporter |
$sFilename | Chemin et nom du fichier export� |
$iFormat | [optionnel] Format � utiliser pour l'exportation. Peut prendre toute valeur de l'�num�ration WdExportFormat (par d�faut = $WdExportFormatPDF) |
$iRange | [optionnel] Sp�cifie ce qu'il faut exporter. Peut prendre toute valeur de l'�num�ration WdExportRange (par d�faut = $WdExportAllDocument) |
$iFrom | [optionnel] Le num�ro de la page � laquelle commencer la publication (par d�faut = commence au d�but) |
$iTo | [optionnel] Le num�ro de la page � laquelle terminer la publication (par d�faut = fin � la derni�re page) |
$bOpenAfterExport | [optionnel] True affiche le fichier dans un visualisateur apr�s sa publication (par d�faut = False) |
$bIncludeProperties | [optionnel] True indique que les propri�t�s du document devraient �tre inclus (par d�faut = True) |
$iCreateBookmarks | [optionnel] Sp�cifie s'il faut exporter les signets et le type de signets � exporter. Peut prendre toute valeur de l'�num�ration WdExportCreateBookmarks �num�ration (par d�faut) |
$bUseISO19005 | [optionnel] Indique si l'exportation doit �tre cr�� au format PDF/A (PDF autonome) (valeur par d�faut = False) |
Succ�s: | Retourne 1. |
�chec: | Retourne 0 et d�finit @error <> 0. |
@error: | 1 - $oDoc n'est pas un objet 2 - $sFilename est vide 3 - Erreur retourn�e lors de l'exportation de l'objet. @extended contient le code d'erreur COM |
#include <MsgBoxConstants.au3> #include <Word.au3> ; Cr�e un objet application Local $oWord = _Word_Create() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre un document test Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; ; Exporte le document complet avec les valeurs par d�faut ; Local $sFileName = @TempDir & "\Test1.pdf" _Word_DocExport($oDoc, $sFileName) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ShellExecute($sFileName) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "The whole document has successfully been exported to: " & $sFileName)
#include <MsgBoxConstants.au3> #include <Word.au3> ; Cr�e un objet application Local $oWord = _Word_Create() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre un document test Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; ; Exporte une plage en PDF/A et affiche le fichier export� ; ; D�finit la partie form�e des lignes 2 et 3 Local $oRange = _Word_DocRangeSet($oDoc, -1, $wdParagraph, 1, $wdParagraph, 2) Local $sFileName = @TempDir & "\Test2.pdf" _Word_DocExport($oRange, $sFileName, Default, $wdExportFromTo, Default, Default, True, Default, Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", "Error exporting the document." & _ @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "The specified range has successfully been exported to: " & $sFileName)
#include <MsgBoxConstants.au3> #include <Word.au3> ; Cr�e un objet application Local $oWord = _Word_Create() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre un document test Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocPrint Example", _ "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; ; Exporte la page courante ; Local $sFileName = @TempDir & "\Test3.pdf" _Word_DocExport($oDoc, $sFileName, Default, $wdExportCurrentPage) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "The current page has successfully been exported to: " & $sFileName) ShellExecuteWait($sFileName)