UDF > Word >

_Word_DocTableWrite

�crit une variable array � une ou deux dimensions dans un tableau Word

#include <Word.au3>
_Word_DocTableWrite ( $oRange, ByRef $aArray [, $iIndexBase = Default [, $sDelimiter = Default]] )

Param�tres

$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)

Valeur de retour

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

Remarque

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.

En relation

_Word_DocTableRead

Exemple

#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.")