traitement de .doc

Question

Bonjour &#224; tous,

Je recherche a ajouter, via vb6 une ligne dans un tableau d'un document word.
Je sais modifier un champ, le lire et tout et tout, mais ajouter une cellule je n'y arrive pas.

comment faire?

Dev Null

michelxld · Answer

bonjour

j'espere que cet exemple r&#233;pondra &#224; ta demande

Sub ajoutLigneTableauWord()
'n&#233;c&#233;ssite d'activer la r&#233;f&#233;rence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String


'le document Word est suppos&#233; ferm&#233; avant le lancement de la macro
'adapter le chemin
Fichier = "C:\Documents and Settings\michel\monDocument.doc"
Set WordApp = CreateObject("Word.Application") 'creation session Word
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word


'ajoute une ligne dans le 1er tableau d'un document Word
WordDoc.Tables(1).Rows.Add


'inserer une ligne en 2eme position dans le 1er tableau du document Word
'WordDoc.Tables(1).Rows.Add beforeRow:=WordDoc.Tables(1).Rows(2)
End Sub

bonne soiree
michel

muche62 · Answer

ben je veux bien, mais j'ai une erreur de type "(424) Un objet est requis"
lorque je fais:
wDocWord.Tables(1).Rows.Add beforeRow:=WordDoc.Tables(1).Rows(nbLigneInit)
avec nbLigneInit = au nombre de lignes dans le tableau avant l'ajout
tu es sur de ton code ? 
Dev Null

michelxld · Answer

bonjour 

Oui , je suis sur de la procedure 

par contre , toi , es tu sur de ta variable ?
au debut tu l'apelles wDocWord et ensuite
 WordDoc

wDocWord.Tables(1).Rows.Add beforeRow:=  WordDoc .Tables(1).Rows(nbLigneInit)

......

'ajoute une ligne &#224; la suite dans le 1er tableau d'un document Word
WordDoc.Tables(1).Rows.Add


'inserer une ligne en 2eme position dans le 1er tableau du document Word
'WordDoc.Tables(1).Rows.Add beforeRow: =WordDoc.Tables(1).Rows(2)

.....

bonne soiree
michel

Traitement de .doc

3 réponses

Discussions similaires