1. #1
    Membre à l'essai
    Homme Profil pro
    ingénieur
    Inscrit en
    janvier 2017
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2017
    Messages : 16
    Points : 17
    Points
    17

    Par défaut Macro Word - Etendre la sélection à plusieurs paragraphes

    Bonjour,

    Avec VBA, je cherche une méthode pour sélectionner plusieurs paragraphes dont je connais les numéros.
    La méthode d'extension à partir d'un mot ne semble marcher que pour le paragraphe du mot contenu dans celui-ci.

    Sub EtendreSelection()
    With Selection
    ' Collapse current selection.
    .Collapse
    ' Expand selection to current sentence.
    .Expand Unit:=wdParagraph
    End With
    End Sub

    Je souhaite, soit étendre la sélection à "N" paragraphes en aval de celui sélectionné, ou encore une autre manière de faire
    comme ActiveDocument.Paragraphs("N").Range.Select mais qui ne s'applique à priori qu'à un seul paragraphe.

    Merci pour votre aide.

  2. #2
    Expert confirmé

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    1 819
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 1 819
    Points : 5 015
    Points
    5 015
    Billets dans le blog
    17

    Par défaut

    Citation Envoyé par Jeannot91 Voir le message
    Bonjour,

    Essayez ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Sub EtendreSelection(ByVal ParagrapheDebut As Integer, ByVal ParagrapheFin As Integer)
     
    Dim MesParagraphes As Range
     
        Set MesParagraphes = ActiveDocument.Paragraphs(ParagrapheDebut).Range
        MesParagraphes.SetRange Start:=MesParagraphes.Start, End:=ActiveDocument.Paragraphs(ParagrapheFin).Range.End
        MesParagraphes.Select
        Set MesParagraphes = Nothing
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
     
    Sub Test()
     
       EtendreSelection 2, 3
       MsgBox Selection.Paragraphs.Count
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Membre à l'essai
    Homme Profil pro
    ingénieur
    Inscrit en
    janvier 2017
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2017
    Messages : 16
    Points : 17
    Points
    17

    Par défaut

    Eric, merci une nouvelle fois pour cette réponse parfaite.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Macro word pour récupérer le numéro d'un titre
    Par casolaro dans le forum VBA Word
    Réponses: 2
    Dernier message: 30/11/2005, 07h57
  2. Macro Word Ouffff
    Par Annie dans le forum VBA Word
    Réponses: 9
    Dernier message: 12/11/2005, 23h01
  3. macros word et lecture dans un fichier excel
    Par antrax2013 dans le forum Windows
    Réponses: 2
    Dernier message: 01/10/2005, 19h05
  4. date macro word 2000
    Par cmgirondins dans le forum VBA Word
    Réponses: 14
    Dernier message: 07/09/2005, 11h09
  5. [MACRO][WORD] lancer macro word
    Par jcarre dans le forum Documents
    Réponses: 3
    Dernier message: 02/12/2004, 09h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo