Posez votre question Signaler

VBA Word :Pointer sur un titre puis Récupèrer un paragraphe!!! [Résolu]

Messages postés
8
Date d'inscription
samedi 12 novembre 2005
Dernière intervention
23 avril 2010
 - - Dernière réponse : NS_INSAT
Messages postés
8
Date d'inscription
samedi 12 novembre 2005
Dernière intervention
23 avril 2010
 - 23 avril 2010 à 11:59
VB.NET Posez votre question Signaler
Bonjour le forum,

Ma macro permet de récupérer la table des matières d'un doc actif et l'affiche dans une liste.
Je récupère le titre (ou sous titre)

Voila mon problème maintenant :

Comment je pourrais pointer sur le titre dans le document et surtout comment sélectionner le paragraphe qui suit pour le copier vers un autre doc ???

j'ai vu avec ?ActiveDocument.GoTo goto Heading .... ?
Mais puisque je ne suis trop nulle en VBA,

Si vous avez des idées
Merci d'avance
Afficher la suite 

Votre réponse

Répondre au sujet

5 réponses

Meilleure réponse
Signaler Commenter la réponse de NS_INSAT
Messages postés
8
Date d'inscription
samedi 12 novembre 2005
Dernière intervention
23 avril 2010
3
Merci
Salut bigfish_le vrai,

Merci pour ton aide,

Voila j'ai bidouillé un peu ton code pour pouvoir sélectionner plusieurs paragraphes entre deux titres successives.

ça marche super bien


Voila le code 

Public Sub SelPara(Titre As String)

Selection.HomeKey Unit:=wdStory

   Dim txte As String
    Dim still As String
    Dim klk As String
    Dim klk2 As String
    Dim titretrouve As Boolean
    titretrouve = True
    
    With Selection.Find
        .Forward = True
        .ClearFormatting
        .MatchWholeWord = False
        .MatchCase = False
        .Wrap = wdFindContinue
        .Text = Titre
        
              
        Do
            .Execute
            If .Found = True Then 'si on a trouvé quelque chose
                'Pour eviter de selectionner le titre du sommaire
                  If Selection.InRange(ActiveDocument.TablesOfContents(1).Range) = False Then
                     still = Selection.Paragraphs.Last.Style
                     klk = Left(still, 5)
                     
                        If klk = "Titre" Then
                           Selection.GoToNext what:=wdGoToLine 'pour ne pas selectionner le titre
                             Debug.Print Selection.MoveDown(Unit:=wdParagraph, Count:=2, Extend:=wdExtend)
                             
                              Exit Do 'on à trouvé ce que l'on cherchait donc on sort
                        End If
                                       
                    End If
                    
                    
            Else
                titretrouve = False '
                 MsgBox "vérifier le titre "
                Exit Do 'on à pas trouvé ce que l'on cherchait alors on sort
              
            End If
        
            DoEvents
        Loop
        
        
  
 If titretrouve Then 'pour eviter une boucle infinie
    Do
            still2 = Selection.Paragraphs.Last.Style
               klk2 = Left(still2, 5)
                                      
            If klk2 = "Titre" Then
                Debug.Print "titre suivant trouvé"
                Debug.Print Selection.MoveUp(Unit:=wdParagraph, Count:=1, Extend:=wdExtend) 'pour ne pas sélectionner le titre suivan
                Exit Do
            Else
                    Debug.Print Selection.MoveDown(Unit:=wdParagraph, Count:=1, Extend:=wdExtend)
                    
            End If
      DoEvents
    Loop While klk2 <> "Titre"
  End If
  
  End With

Debug.Print Selection.Text
  
  txte = RetourChariot(Selection.Text)
    Me.Textpara.Text = txte
 
    
    
  
 End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 116 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NS_INSAT
Signaler Commenter la réponse de cs_loulou69
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Dernière intervention
2 juin 2016
 2
0
Merci
Bonjour

Tu peux essayer quelque chose comme cela
enregistré avec l'enregistreur de macro à quelques lignes près

Il suffit d'appeler la fonction ci-après et ensuite récupérer dans l'objet Selection le pragraphe qui suit le titre.

Sub ChercherTitreEtLireParagraphe(MonTitre as string)
' revenir en haut du document (sauf si TM existe) il faudrait alors se positionner après la table des matières Goto Tables des matiere suivi d'un selection.MoveRight ...

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = MonTitre
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
' Selection du titre
Selection.MoveRight Unit:=wdParagraph, Count:=1, Extend:=wdExtend
' Selection du paragraphe qui suit le titre
Selection.MoveRight Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Copy
End Function
Commenter la réponse de cs_loulou69
Signaler Commenter la réponse de bigfish_le vrai
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Dernière intervention
20 novembre 2013
 8
0
Merci
Salut,

une autre methode: 

Sub test()
    Dim Titre As String
    Titre = "mon titre"
    With Selection.Find
        .Forward = True
        .ClearFormatting
        .MatchWholeWord = False
        .MatchCase = False
        .Wrap = wdFindContinue
        .Text = Titre
        Do
            .Execute
            If .Found = True Then 'si on a trouvé quelque chose
                'Pour eviter de selectionner le titre du sommaire
                If Selection.InRange(ActiveDocument.TablesOfContents(1).Range) = False Then
                    With .Parentraph
                        'on etend la selection au paragraphe
                        .Expand Unit:=wdParagraph
                        .Copy
                        Exit Do 'on à trouvé ce que l'on cherchait donc on sort
                    End With
                End If
            Else
                Exit Do 'on à pas trouvé ce que l'on cherchait alors on sort
            End If
            DoEvents
        Loop
    End With
End Sub


A+
Commenter la réponse de bigfish_le vrai
Signaler Commenter la réponse de NS_INSAT
Messages postés
8
Date d'inscription
samedi 12 novembre 2005
Dernière intervention
23 avril 2010
0
Merci
Bonjour bigfish_le vrai,
Merci pour t'a réponse,
Ton code m'a l'air très intéressent mais ca me renvois cette erreur au niveau en rouge :

Erreur de compilation
Membres de méthode ou de données introuvables

Public Sub test()
Dim Titre As String
Titre = "Actualisation du document et de ses annexes"
With Selection.Find
.Forward = True
.ClearFormatting
.MatchWholeWord = False
.MatchCase = False
.Wrap = wdFindContinue
.Text = Titre
Do
.Execute
If .Found = True Then 'si on a trouvé quelque chose
'Pour eviter de selectionner le titre du sommaire
If Selection.InRange(ActiveDocument.TablesOfContents(1).Range) = False Then
With .Parentraph
'on etend la selection au paragraphe
.Expand Unit:=wdParagraph
.Copy
Exit Do 'on à trouvé ce que l'on cherchait donc on sort
End With
End If
Else
Exit Do 'on à pas trouvé ce que l'on cherchait alors on sort
End If
DoEvents

Loop
End With

End Sub
Commenter la réponse de NS_INSAT
Signaler Commenter la réponse de bigfish_le vrai
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Dernière intervention
20 novembre 2013
 8
0
Merci
Oups une mauvaise manipe ! 

Sub test()
    Dim Titre As String
    Titre = "mon titre"
    With Selection.Find
        .Forward = True
        .ClearFormatting
        .MatchWholeWord = False
        .MatchCase = False
        .Wrap = wdFindContinue
        .Text = Titre
        Do
            .Execute
            If .Found = True Then 'si on a trouvé quelque chose
                'Pour eviter de selectionner le titre du sommaire
                If Selection.InRange(ActiveDocument.TablesOfContents(1).Range) = False Then
                    With .Parent
                        'on etend la selection au paragraphe
                        .Expand Unit:=wdParagraph
                        .Copy
                        Exit Do 'on à trouvé ce que l'on cherchait donc on sort
                    End With
                End If
            Else
                Exit Do 'on à pas trouvé ce que l'on cherchait alors on sort
            End If
            DoEvents
        Loop
    End With
End Sub


A+
Commenter la réponse de bigfish_le vrai

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.