[VBA-W] Selectionner du texte dans Word XP [Résolu]

[tintin101]

Bonjour (euh bonsoir) à 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 à 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 à tout le monde a l'avance et bonne soirée

[ouskel'n'or]

Bref, tu veux retrouver la ligne à laquel tu t'es arrêté.
Si c'est ça, tu dis

A+

[tintin101]

Bonjour,

Ben en fait oui, j'aimerai savoir ce que j'ai deja lu et quand je re ouvre le document qu'il revienne de suite la ou j'etais

Merci

[ouskel'n'or]

Bien, tu fais ça en deux temps. D'abord tu places ces macros dans un module

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub MarquerLeTexte()
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Suite"
    End With
End Sub
 
Sub TrouverLeTexte()
    Selection.GoTo What:=wdGoToBookmark, Name:="Suite"
End Sub

Ensuite, le mieux est de leur affecter des touches de fonction
Menu Outils -> Personnaliser -> Onglet Commandes -> Macros -> MarquerLeTexte
là, tu sélectionnes ctrl + une touche non encore utilisée
Idem pour trouverLetexte
Comme de nombreuses touches de fonctions sont déjà utilisées par Word, tu peux associer Alt + Ctrl + La touche

Quand tu t'arrêtes, tu sélectionnes la ligne et tu frappes sur les touches insérant un signet sur la ligne
Quand tu veux reprendre, tu frappes sur les touches te plaçant sur le signet

Tu dis

A+

[tintin101]

C'est génial, c'est ce qu'il me fallais, merci beaucoup,... mais dis moi si j'abuse y vraiment pas moyen d'ajouter dans la macros Marquer le texte, que word mette en vert le texte entre le début du doc et le signet?
Ce serait vraiment le pied avec ca.

Mais merci encore une fois pour ton aide.

[ouskel'n'or]

Si ! Y'a moyen en sélectionnant le texte du début au signet et en faisant la mise en forme désirée.
Je dois avoir ça...

A+

[tintin101]

Arg.... tu dois avoir ca??? c'est génial, j'en fais des bonds sur place

merci de me consacrer tout ce temps.

J'attend avec impatience

[ouskel'n'or]

Voilà

Code :

1
2
3
4
5
6
7
8
9
 
Sub MarquerLeTexte()
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Suite"
    End With
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    Selection.Font.ColorIndex = wdTeal
    Selection.EndKey Unit:=wdStory
End Sub

Tu remplaces la macro que je t'ai passée par celle-ci

A+ et à demain...

[tintin101]

c'est parfait merci bcp