Selection d'un texte sur MSword
Bonjour,
J'ai un petit soucis de sélection sur word : J'ai un paragraphe qui a cette forme :
Clio-Moteur-Bougie-0104-009-1 La clio 4 est .... (description )
Rationel: TBD
Suppositions: 02.04.07
Additional info.: 18.20.20
Author: M. Jacques
Creation date (dd/mm/yyyy): 06/01/2006
Stakeholder: EOLE
Source: TBD
Link to: Clio-Moteur-Bougie-0104-019-4, Clio-Moteur-Bougie-0104-029-1
Level: Moteur
Maturity: Red
Ce que je voudrais faire cette mettre en forme dans chaque ligne les valeurs de chaques variables sachant que les valeurs: Rationnel, Suppositions, Level ... seront toujours les mêmes :
Par exemple mettre en forme :
-La clio 4 est .... (description )
-TBD
-02.04.07
-18.20.20
- ...
Donc mon idée était de sélectionner les lignes intéressantes ( par exemple dans mon code la ligne contenant Suppositions) et ensuite sélectionner ce qui suit, mais je n'y arrive pas si quelqu'un a une solution, ça ne semble pourtant pas compliqué mais tout est plus simple sur excel....
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub select_line()
Dim test As String
Selection.Find.Text = "Suppositions:"
Selection.Find.Execute
'Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Find.Text = "^#" ' Je pense qu'il faut sélectionner de cette manière mais avec ça je sélectionne seulement le premier chiffre
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Find.Execute
End Sub |
Par avance merci à tous