[Déplacé .NET -> VBA] Macro word : Extraction de tableaux dans un fichier word

Question

[Déplacé .NET -> VBA] Macro word : Extraction de tableaux dans un fichier word

Signaler

baygonjaune - 5 oct. 2012 à 11:31
baygonjaune - 8 oct. 2012 à 13:59

Bonjour,

Je patoge un peu beaucoup dans la réalisation d'une macro word. Voici mon besoin :

J'ai une liste de fichiers word avec une liste de tableaux dedans. Tous ces tableaux ont la chaîne "ID" dedans.

Je cherche à réaliser une macro qui pour chaque document, fais une recherche sur la chaîne "ID", puis sélectionne le tableau et copie dans un nouveau fichier word vierge le tableau sélectionné.

Avez-vous des idées de code svp ?

Par avance, merci.

Loïc

A voir également:

[Déplacé .NET -> VBA] Macro word : Extraction de tableaux dans un fichier word
[Déplacé .NET -> VBA]Macro excel pour envoi de mail avec une partie de la feuill ✓ - Forum - Visual Basic 6
[Déplacé .NET -> VBA]Macro pour Copier une zone d'une feuille de calcule X fois ✓ - Forum - Visual Basic 6
[Déplacé .Net --> VBA] Vba Excel une seule macro executee à la fois ✓ - Forum - Visual Basic 6
[Déplacé .Net --> VBA] simplification d'une macro ✓ - Forum - Visual Basic 6
[Déplacé .Net --> VBA] VBA word , récupération de l'arboressence d'une table de ✓ - Forum - Visual Basic 6

4 réponses

Répondre Posez votre question

ucfoutu · Answer 1 · 2012-10-05T11:47:57+0200

Bonjour,
Une "macro Word" ne risque pas d'être du :

Forum > VB.NET et VB 2005

Une section "langages dérivés < VBA" existe
Cette discussion sera probablement déplacée par un administrateur bienveillant.
En attendant : montre donc ce que tu as au moins tenté d'écrire pour y parvenir.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

baygonjaune · Answer 2 · 2012-10-05T12:16:16+0200

Voici mon bloubiboulga de code ... Désolé, pour les puriste ... ;-)

---------------
Sub Extracteur_Exigences()

Set doc = Documents.Open("c:\CDC_rattrapage V2.0.doc")
Set Doc1 = Documents.Add(Template:="Normal")

doc.Activate

With ActiveDocument.Content.Find
.ClearFormatting
.Text = "ID"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute(Forward:=True, Format:=True) = True

If Selection.Find.Execute = True Then

Selection.Tables(1).Select

Selection.Copy
Doc1.Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeParagraph
Selection.TypeParagraph
doc.Activate

Selection.Find.ClearFormatting
Selection.MoveDown Unit:=wdScreen, Count:=1

Else

Exit Do

End If

Loop

End With

End Sub
---------------

bigfish_le vrai · Answer 3 · 2012-10-08T11:29:42+0200

Réponse 3 / 4

bigfish_le vrai

Messages postés: 1835
Date d'inscription: vendredi 13 mai 2005
Statut: Membre
Dernière intervention: 20 novembre 2013

9
8 oct. 2012 à 11:29

Salut,

pour ma part je ferai plutôt une recherche de tableau et pour chaque tableau je regarderai l'ID. Mais tu ne nous dit pas ou ce trouve cette ID !
Dans une cellule du tableau ?
Dans une chaine extérieur au tableau ?

A+

baygonjaune · Answer 4 · 2012-10-08T13:59:50+0200

Réponse 4 / 4

baygonjaune
8 oct. 2012 à 13:59

La chaîne "ID" est une cellule du tableau. SI je trouve la chaîne ID, alors je sélectionne tout le tableau (donc avec la cellule ID), je le copie, puis je le colle dans un document vierge. Même mode de fonctionnement pour la chaîne suivante "ID".

a+

Votre réponse