Comment, avec une macro, sélectionner du texte entre deux saut de page ?
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le mardi 18 octobre 2011 18:42
- Affichages : 2968
Public Sub SelectionPages()
'macro écrite par Guy Moncomble
Dim NbPages As Integer, iBoucle As Integer, PosTab() As Long
NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ReDim PosTab(NbPages - 1, 1)
For iBoucle = 1 To NbPages
Selection.GoTo wdGoToPage, wdGoToAbsolute, iBoucle
PosTab(iBoucle - 1, 0) = Selection.Range.Start
Next iBoucle
'On peut aussi utiliser
'Application.Browser.Target = wdBrowsePage
'For iBoucle = 1 To NbPages - 1
' Application.Browser.Next
'Next iBoucle
For iBoucle = 1 To NbPages - 1
PosTab(iBoucle - 1, 1) = PosTab(iBoucle, 0) - 1
Next iBoucle
PosTab(NbPages - 1, 1) = ActiveDocument.Range.End
For iBoucle = 1 To NbPages
ActiveDocument.Range(PosTab(iBoucle - 1, 0), _
PosTab(iBoucle - 1,1)).Select
Next iBoucle
End Sub
