jean202
Messages postés13Date d'inscriptionlundi 21 mai 2007StatutMembreDernière intervention30 septembre 2020
-
25 juil. 2007 à 16:32
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
26 juil. 2007 à 18:21
bonjour
dans un répertoire tous mes fichiers
.doc contiennent un tableau word unique.
j'aimerais faire une macro prenant
la derniere ligne de chaque .doc pour en faire un nouveau tableau dans un
(nouveau si possible) document.
exemple:
fic1.doc contient ligne11 et
ligne 21
fic2.doc contient ligne12, ligne22 et ligne 32
et j'aimerais faire par macro un fic3.doc
contenant ligne 21 et ligne
32
J'ai essayé avec l'enregistreur de macro mais je n'arrive pas à
selectionner une ligne de tableau quand l'enregistreur est lancé.
j'utilise xp et le vb associé au word 2002 correspondant
Merci pour
vos idées
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 25 juil. 2007 à 16:45
Bonjour
Ceci n'est pas une réponse en vb6, mais la synthaxe est presque similaire.
Elle te montre comment sélectionner colonnes et lignes.
Dim objWord, objDoc
Set objWord = CreateObject("Word.Application")
objWord.DisplayAlerts = wdAlertsNone
Set objDoc = objWord.Documents.Open(strFile, True)
'MsgBox objDoc.Tables.Count ' Nbre de Tableau dans le fichier
'MsgBox objDoc.Tables(3).Rows.Count ' Nbre de lignes dans le 3ème Tableau
'MsgBox objDoc.Tables(3).Columns.Count ' Nbre de colonnes dans le 3ème Tableau
For i=3 To objDoc.Tables(2).Rows.Count
objDoc.Tables(2).Cell(i, 4).Range.Font.ColorIndex = 2 ' 2=Bleu,6=Rouge
objDoc.Tables(2).Cell(i, 4).Range.Font.Bold = True
objDoc.Tables(2).Cell(i, 4).Range.Text = "OK"
Next
jean202
Messages postés13Date d'inscriptionlundi 21 mai 2007StatutMembreDernière intervention30 septembre 2020 26 juil. 2007 à 09:11
merci jean marc
mais je me suis mal exprimé:
dans mon cas j'ai un tableau word par document et je veux mettre toutes les dernieres lignes ce ces tableaux dans un nouveau tableau d'un nouveau document
A+