1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
'aller début document
Selection.HomeKey unit:=wdStory, Extend:=wdExtend
'tant que sélection active= retour charriot <cr> ou espace ou tabulation
While (((Selection.Text) = Chr(13)) Or ((Selection.Text) = Chr(32)) Or ((Selection.Text) = Chr(9)))
Select Case (Selection.Text)
' si tabulation
Case (Chr(9))
'méthode Microsoft pour selectionner jusqu'au retour charriot vbCr
With Selection
.MoveEndUntil Cset:=vbCr, Count:=wdForward
.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With
' methode personnelle ! pour supprimer la selection et
' aller au début ligne suivante
Selection.Delete unit:=wdItem
Selection.MoveDown wdLine, 1, wdMove
Selection.HomeKey wdLine, wdMove
Case (Chr(32))
With Selection
.MoveEndUntil Cset:=vbCr, Count:=wdForward
.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete unit:=wdItem
Selection.MoveDown wdLine, 1, wdMove
Selection.HomeKey wdLine, wdMove
End With
' recopié depuis ce forum même
Case (Chr(13))
Selection.Delete unit:=wdCharacter, Count:=1
Selection.MoveDown wdLine, 1, wdMove
Selection.HomeKey wdLine, wdMove
End Select
Wend |
Partager