UDF > Word >


_Word_DocTableRead

Lit un tableau Word et retourne le contenu dans une variable array � deux dimensions

#include <Word.au3>
_Word_DocTableRead ( $oDoc, $vTable [, $iIndexBase = Default [, $sDelimiter = Default]] )

Param�tres

$oDoc Objet document Word
$vTable Objet Table ou index de la table dans la collection de table
$iIndexBase [optionnel] Peut prendre la valeur 0 ou 1 et indique si le tableau commence avec la ligne 0 ou 1 (par d�faut = 1)
$sDelimiter [optionnel] Sp�cifie le caract�re utilis� pour s�parer le texte dans les cellules (par d�faut = @TAB)

Valeur de retour

Succ�s: Retourne un tableau � deux dimensions avec le contenu du tableau Word.
�chec: Retourne "" et d�finit @error <> 0.
@error: 1 - $oDoc n'est pas un objet
2 - Une erreur s'est produite lors de l'acc�s � l'index sp�cifi� dans la collection de tableau. @extended contient le code d'erreur COM
3 - Une erreur s'est produite lors de l'acc�s au tableau 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

Les tableaux imbriqu�es sont ignor�s.
Si $iIndexBase est d�fini � 1, alors la ligne 0 du tableau contient le nombre de lignes et de colonnes.

En relation

_Word_DocTableWrite

Exemple

#include <Array.au3>
#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_DocTableRead 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_DocTableRead Example", _
        "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Cr�e un tableau Wors � partir d'un array
Local $asArray[3][3] = [[1, 2, 3], ["a", "b", "c"], ["x", "y", "z"]]
Local $oRange = _Word_DocRangeSet($oDoc, -2)
Local $oTable = _Word_DocTableWrite($oRange, $asArray, 0)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocTableRead Example", _
        "Error creating the table." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

;
; Lit le premier tableau du document et retourne le contenu
;
Local $asResult = _Word_DocTableRead($oDoc, 1, 1)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocTableRead Example", _
        "Error reading the table to an array." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($asResult, "Word UDF: _Word_DocTableRead Example")