// sModele_tmp est mon document
// Sélectionne uniquement le premier trouvé

// Je recherche l'mplacement où je veux mettre mon tableau
tabFragments = DocRecherche(sModele_tmp, "$TABDEVIS$")

// Si $TABDEVIS$ trouvé
SI tabFragments..Occurrence > 0 ALORS
// Positionnement du curseur au début du premier mot trouvé
nPos est un entier = tabFragments[1]..PositionDébut
DocRemplace(sModele_tmp,"$TABDEVIS$","")


MonDoc est un Document = sModele_tmp
cTable est un Champ <- TABLE_devis
pCol est un Champ


FragmentDeb est un docFragment(MonDoc,1)
FragmentDeb..MiseEnForme..PoliceTaille = 12
FragmentDeb..MiseEnForme..CouleurTexte = RougeFoncé
FragmentDeb..Texte = ""

// Insertion du tableau dans le document en mémoire ...
DocInsèreTableau(sModele_tmp, nPos, TableOccurrence(cTable, toColonne), cTable..Occurrence + 1)


POUR TOUT para de sModele_tmp..Paragraphe
SI para..Tableau <> Null ALORS

// Est ce bien ce tableau trouvé où l'on écrit les données
SI para..PositionDébut = nPos + 1 ALORS
// Pour toutes les colonnes du champ table ...
POUR nColonne = 1 _A_ TableOccurrence(cTable, toColonne)

// Première ligne du tableau contient le titre des colonnes
pCol <- TableEnumèreColonne(cTable, nColonne)
para..Tableau..Cellules[1, nColonne]..Contenu..Texte = pCol..Libellé

// Remplissage de toutes les lignes de cette colonne
POUR nLigne = 1 _A_ cTable..Occurrence
para..Tableau..Cellules[nLigne+1, nColonne]..Contenu..Texte = pCol[nLigne]
FIN
FIN
SORTIR
FIN
FIN
FIN
FIN