Écrit une variable array à une ou deux dimensions dans un tableau Word
#include <Word.au3>
_Word_DocTableWrite ( $oRange, ByRef $aArray [, $iIndexBase = Default [, $sDelimiter = Default]] )
$oRange | Objet Range de Word où le tableau doit être inséré |
$aArray | Variable array à une ou deux dimensions qui doit être converti en tableau Word. Peut être indexé à partir de 0 ou de 1 |
$iIndexBase | [optionnel] Prend pour valeur 0 ou 1 et indique si la variable array commence avec la ligne 0 ou 1 (par défaut = 1) |
$sDelimiter | [optionnel] Spécifie le caractère utilisé pour séparer le texte en cellules (par défaut = @TAB) |
Succès: | Retourne l'objet tableau Word. |
Échec: | Retourne 0 et définit @error <> 0. |
@error: | 1 - $oRange n'est pas un objet 2 - $aArray n'est pas un tableau ou a plus de 2 dimensions 3 - Une erreur s'est produite lors de l'accès à l'objet Range spécifié. @extended contient le code d'erreur COM 4 - Une erreur s'est produite lors de la conversion du texte en tableau. @extended contient le code d'erreur COM |
Le tableau ne peut pas contenir @CR, @CRLF ou @LF dans une cellule.
Si le tableau contient des caractères @TAB, vous devez définir le paramètre $sDelimiter sur un autre caractère.
#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_DocTableWrite Example", _ "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre le document test Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocTableWrite Example", _ "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; ; Ecrit le contenu d'un tableau à 2 dimensions indexé à partir de 0 dans un tableau Word ; Local $asArray[3][3] = [[1, 2, 3], ["a", "b", "c"], ["x", "y", "z"]] Local $oRange = _Word_DocRangeSet($oDoc, -2) _Word_DocTableWrite($oRange, $asArray, 0) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocTableWrite Example", _ "Error creating the table." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocTableWrite Example", _ "Table successfully added to the end of the document.")