Bonjour à tous
 
voila en fait, j'aimerai bien avoir une macro qui me permettrai de selectionner tout le texte se trouvant au dessus de la ligne ou se trouve mon curseur de changer sa couleur (par exemple en vert) afin de marquer le texte que j'ai déja lu. pi je ferme word, je vais au dodo        euh non, je vais travailler a autre chose,(ca fait plus sérieux    ), et puis je rouvre mon document et la une deuxieme macro qui me permet de retourner a la ligne suivant l'arret du texte en vert.
 
J'aime bien jouer dans le code VBa en Excell mais en word, punaise, c'est pas du tout la meme chose.
 
Aidez moi silteplait, j'ai vraiment besoin de ces 2 marco    
 
Merci beaucoup a tout le monde a l'avance et bonne soirée    

[size=2]Bonsoir
[/size]  
Essaie ça. Des fois, c'est nickel mais d'autres fois, non. Je ne sais pas pourquoi. Il manque le code pour mettre en couleur le texte sélectionné.
[size=2]  
[/size][size=2]Sub MacroSélectionnerletexteaudessusducurseur()
'Cette macro permet de sélectionner le texte qui se trouve au-dessus du curseur
    Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdExtend
End Sub
[/size][size=2]  
[/size][size=2]Sub MacroArriveraucurseurinitial()
[/size][size=2]    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdScreen, Count:=1
End Sub[/size]

Re
 
Oh là!!!!! Mille excuses
 
Essaie ça. Des fois, c'est nickel mais d'autres fois, non. Je ne sais pas pourquoi. Il manque le code pour mettre en couleur le texte sélectionné.  
 
Sub MacroSélectionnerletexteaudessusducurseur()
'Cette macro permet de sélectionner le texte qui se trouve au-dessus du curseur
    Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdExtend
End Sub
 
Sub MacroArriveraucurseurinitial()
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdScreen, Count:=1
End Sub