IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Word Discussion :

Macro Word - Etendre la sélection à plusieurs paragraphes


Sujet :

Word

  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
    Invité
    Invité(e)
    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

  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, 08h57
  2. Macro Word Ouffff
    Par Annie dans le forum VBA Word
    Réponses: 9
    Dernier message: 13/11/2005, 00h01
  3. macros word et lecture dans un fichier excel
    Par antrax2013 dans le forum Windows
    Réponses: 2
    Dernier message: 01/10/2005, 20h05
  4. date macro word 2000
    Par cmgirondins dans le forum VBA Word
    Réponses: 14
    Dernier message: 07/09/2005, 12h09
  5. [MACRO][WORD] lancer macro word
    Par jcarre dans le forum Documents
    Réponses: 3
    Dernier message: 02/12/2004, 10h01

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