Discussion :

[hermes6236]

Bonjour,

Je cherche le code VBA qui me permettrait de récupérer le numéro de la ligne soit

- "d'un groupe de mots spécifiques" déclaré dans une variable

- d'un signet déjà existant dans le document Word

https://docs.microsoft.com/fr-fr/off...word.bookmarks
https://docs.microsoft.com/fr-fr/off....linenumbering

merci

[Invité]

Bonjour,

Sauf erreur de ma part, linenumbering ne devrait pas être de grande utilité.

Le code ci-dessous dont le numéro de ligne dans la page courante d'une sélection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub TestLigneSelection()
 
    With ActiveDocument
         .Bookmarks("Signet1").Select
         Debug.Print LigneSelection(Selection)
    End With
 
End Sub
 
 
Function LigneSelection(ByVal MaSelection As Selection) As Long
 
    With MaSelection
         LigneSelection = .Range.Information(wdFirstCharacterLineNumber)
    End With
 
End Function

[hermes6236]

yes !!! ça marche

merci ERIC KERGRESSE you are the


Debug.Print LigneSelection(Selection) <===> MsgBox (LigneSelection(Selection)).


Pour information et pour ceux que ça intéresse,

ceci destiné au lecteur permet dans un document Word / PDF de faire un renvoie très précis vers une partie du document, particulièrement si le document est imprimer et où il faudra utiliser l'option affichage des lignes http://www.finalclap.com/faq/331-word-numero-ligne ,



personnellement je vais exploiter cette fonction / macro avec les signets,

mais est-ce possible d'obtenir le même résultat cette fois non pas à partir de signet mais à partir d'une expression précise qui sera donné en argument à la fonction / Macro tel que par exemple "string toto tata" ?

Ensuite, une fois le numéro de la ligne récupéré, comment faire pour réutiliser le numéro de ligne dans le document Word sous forme de "insertion" ?

Ou bien alors est-ce possible directement de faire basculer en un "champ code" où je fournirai soit "signet1" soit "string toto tata", autrement dit travailler directement sur le document Word sans avoir besoin de ré ouvrir l'interface VBA développeur ?

https://heureuxoli.developpez.com/office/word/champs/


j'imagine une utilisation du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
{ Hyperlink TestLigneSelection("signet1")  }
{ Hyperlink TestLigneSelection("string toto tata")  }

merci