Bonjour !
'Sylvie' nous a écrit ...A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Bonjour !
'Sylvie' nous a écrit ...
A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Bonjour !
'Sylvie' nous a écrit ...A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Bonjour !
'Sylvie' nous a écrit ...A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Bonjour !
'Sylvie' nous a écrit ...
A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Bonjour !
'Sylvie' nous a écrit ...A la finalle donc, tout mot rouge se retrouve remplacé par une série
de "." telle que la nouvelle longueur du mot composé de ces "."
approxime au mieux l'ancienne.
Remplacez votre texte rouge par du texte blanc souligné pointillé rouge
Format / Police : couleur police + soulignement + couleur soulignement
et votre mise en page ne sera pas modifiée !!!!
Anacoluthe
« La boue cache un rubis mais ne le tache pas. »
- Proverbe chinois
Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Bonjour Sylvie. Oui très bien et vous ?
'sylvie' nous a écrit ...Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Oui. L'enregistreur de macro a de nombreuses lacunes.
Vous venez d'en expérimenter une très classique :-(
Je ne vais pas revenir là dessus : l'enregistreur de macro
c'est comme les pizzas surgelées ... etc... etc
Votre macro c'est dans le genre :
Sub ChangeRougeEnBlancSoulignéRougePointillé()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Pour le dégroupage des formes, je suis désolé mais
ça ne va pas aller non plus avec la pizza surgelée
il faut absolument se mettre à la cuisine vba :-[
Bon courage !
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonjour Sylvie. Oui très bien et vous ?
'sylvie' nous a écrit ...
Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Oui. L'enregistreur de macro a de nombreuses lacunes.
Vous venez d'en expérimenter une très classique :-(
Je ne vais pas revenir là dessus : l'enregistreur de macro
c'est comme les pizzas surgelées ... etc... etc
Votre macro c'est dans le genre :
Sub ChangeRougeEnBlancSoulignéRougePointillé()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Pour le dégroupage des formes, je suis désolé mais
ça ne va pas aller non plus avec la pizza surgelée
il faut absolument se mettre à la cuisine vba :-[
Bon courage !
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonjour Sylvie. Oui très bien et vous ?
'sylvie' nous a écrit ...Je rencontre un pb que je ne sais pas analyser, quand je
veux produire la partie de la macro qui remplace le texte
rouge par du texte blanc souligné en pointillé, je procède comme
suit: je lance l'enrrgistreur de macro et je procède au remplacement
du texte avec la fenêtre remplacement et ça marche, j'obtiens bien
le remplacement du texte rouge en texte blanc souligné.
J'arrête la macro et j'ouvre l'éditeur et j'obtiens ça:
Oui. L'enregistreur de macro a de nombreuses lacunes.
Vous venez d'en expérimenter une très classique :-(
Je ne vais pas revenir là dessus : l'enregistreur de macro
c'est comme les pizzas surgelées ... etc... etc
Votre macro c'est dans le genre :
Sub ChangeRougeEnBlancSoulignéRougePointillé()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Pour le dégroupage des formes, je suis désolé mais
ça ne va pas aller non plus avec la pizza surgelée
il faut absolument se mettre à la cuisine vba :-[
Bon courage !
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonsoir Analocuthe
Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Bonsoir Analocuthe
Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Bonsoir Analocuthe
Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Bonjour !
'sylvie' nous a écrit ...Bonsoir Analocuthe
Hum hum hum :-[ Anacoluthe s'il vous plaît
ou je me sens devenir Anaconda .............Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Coupons-là en deux pour pouvoir l'utiliser en plusieurs fois:
Private Sub SelectionChangeRouge()
' Change dans la sélection texte rouge en blanc souligné rouge
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Utilisons cette sous-macro pour le texte et les ZDT :
Sub ChangeToutRougeEnBlancSoulignéRouge()
Dim Forme As Shape
ActiveDocument.Content.Select
SelectionChangeRouge
For Each Forme In ActiveDocument.Shapes
If Forme.Type = msoTextBox Then
Forme.TextFrame.TextRange.Select
SelectionChangeRouge
End If
Next Forme
End Sub
à suivre ... ?
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonjour !
'sylvie' nous a écrit ...
Bonsoir Analocuthe
Hum hum hum :-[ Anacoluthe s'il vous plaît
ou je me sens devenir Anaconda .............
Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Coupons-là en deux pour pouvoir l'utiliser en plusieurs fois:
Private Sub SelectionChangeRouge()
' Change dans la sélection texte rouge en blanc souligné rouge
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Utilisons cette sous-macro pour le texte et les ZDT :
Sub ChangeToutRougeEnBlancSoulignéRouge()
Dim Forme As Shape
ActiveDocument.Content.Select
SelectionChangeRouge
For Each Forme In ActiveDocument.Shapes
If Forme.Type = msoTextBox Then
Forme.TextFrame.TextRange.Select
SelectionChangeRouge
End If
Next Forme
End Sub
à suivre ... ?
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonjour !
'sylvie' nous a écrit ...Bonsoir Analocuthe
Hum hum hum :-[ Anacoluthe s'il vous plaît
ou je me sens devenir Anaconda .............Parfois je mets du texte dans des "Text box" en rouge.
Notre macro ne change pas le texte dans ces boites
alors qu'elle marche bien pour le texte normal.
savez-vous comment faire ?
Coupons-là en deux pour pouvoir l'utiliser en plusieurs fois:
Private Sub SelectionChangeRouge()
' Change dans la sélection texte rouge en blanc souligné rouge
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Font.Color = wdColorRed
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Replacement.Font.Underline = wdUnderlineDottedHeavy
.Replacement.Font.UnderlineColor = wdColorRed
.Forward = True
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Utilisons cette sous-macro pour le texte et les ZDT :
Sub ChangeToutRougeEnBlancSoulignéRouge()
Dim Forme As Shape
ActiveDocument.Content.Select
SelectionChangeRouge
For Each Forme In ActiveDocument.Shapes
If Forme.Type = msoTextBox Then
Forme.TextFrame.TextRange.Select
SelectionChangeRouge
End If
Next Forme
End Sub
à suivre ... ?
Anacoluthe
« Une fois que l'on a commencé à voir,
nous ne pouvons que chercher le courage
de voir plus. »
- Arthur MILLER
Bonsoir Anacoluthe, comment allez-vous ?
J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Bonsoir Anacoluthe, comment allez-vous ?
J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Bonsoir Anacoluthe, comment allez-vous ?
J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Bonjour !
'sylvie' nous a écrit ...Bonsoir Anacoluthe, comment allez-vous ?
Très bien hi hi hi ! Je me disais : déjà bouclée bigmacro ? :-)J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Puisque la taille du document ne change pas, mémorisez
en début de macro le point d'insertion par exemple :
Dim Ici as Long
Ici = Selection.Start
et retournez à ce point à la fin de la macro
ActiveDocument.Range(Ici,Ici).Select
Anacoluthe
« Finir n'est rien qu'achever de devenir. »
- MANILIUS
Bonjour !
'sylvie' nous a écrit ...
Bonsoir Anacoluthe, comment allez-vous ?
Très bien hi hi hi ! Je me disais : déjà bouclée bigmacro ? :-)
J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Puisque la taille du document ne change pas, mémorisez
en début de macro le point d'insertion par exemple :
Dim Ici as Long
Ici = Selection.Start
et retournez à ce point à la fin de la macro
ActiveDocument.Range(Ici,Ici).Select
Anacoluthe
« Finir n'est rien qu'achever de devenir. »
- MANILIUS
Bonjour !
'sylvie' nous a écrit ...Bonsoir Anacoluthe, comment allez-vous ?
Très bien hi hi hi ! Je me disais : déjà bouclée bigmacro ? :-)J'ai quand même une autre question. La macro fonctionne bien
mais il y a un petit truc que j'aimerais améliorer.
Quand je veux voir ce que donnera en version élève
la page que j'ai devant les yeux, je lance la macro.
Elle fait le boulot mais le pb est qu'elle me place
en fin de document. Il faut donc que je revienne
à la page d'origine ce qui me fait perdre pas mal
de temps. L'idéal serait qu'elle fasse le remplacement
sans changer le positionnement du texte sur l'écran.
Puisque la taille du document ne change pas, mémorisez
en début de macro le point d'insertion par exemple :
Dim Ici as Long
Ici = Selection.Start
et retournez à ce point à la fin de la macro
ActiveDocument.Range(Ici,Ici).Select
Anacoluthe
« Finir n'est rien qu'achever de devenir. »
- MANILIUS
