OVH Cloud OVH Cloud

Style et zone de texte

7 réponses
Avatar
jpm
Bonjour,
Dans Word 2003, on a 2 documents volumineux et conçus par des personnes
différentes. On veut copier le contenu du 1er dans le 2ème. Chacun des
documents utilisent des styles et certains de ces styles portent le même nom
(mais sont différents). Après le copier/coller, si l'on choisit l'option
"Conserver la mise en forme source" proposé par la balise active, les styles
en double sont renommés (donc parfait) MAIS PAS S'ILS ETAIENT APPLIQUES A
DES ZONES DE TEXTE.
Existe-t-il un moyen pour contourner ce problème (sachant qu'il y a
plusieurs centaines de zones de texte et qu'un style utilisé dans une zone
de texte peut également être appliqué à du texte standard.
Merci

Jean-Pierre

7 réponses

Avatar
Geo

Bonjour,
Dans Word 2003, on a 2 documents volumineux et conçus par des personnes
différentes. On veut copier le contenu du 1er dans le 2ème. Chacun des
documents utilisent des styles et certains de ces styles portent le même nom
(mais sont différents). Après le copier/coller, si l'on choisit l'option
"Conserver la mise en forme source" proposé par la balise active, les styles
en double sont renommés (donc parfait) MAIS PAS S'ILS ETAIENT APPLIQUES A
DES ZONES DE TEXTE.
Existe-t-il un moyen pour contourner ce problème (sachant qu'il y a
plusieurs centaines de zones de texte et qu'un style utilisé dans une zone
de texte peut également être appliqué à du texte standard.
Merci


Est-ce qu'on aurait la chance qu'il n'y ait qu'un seul style appliqué
dans les boites de style ?

--
A+

Avatar
jpm
Je ne comprend pas très bien
Est-ce qu'on aurait la chance qu'il n'y ait qu'un seul style appliqué
dans les boites de style ?


mais pour les zones de textes, certaines sont basées sur le style Normal et
d'autres sur Corps de texte, voire Corps de texte2, ...
et ces styles sont également utilisés dans le document.

Merci.

Avatar
Geo

Est-ce qu'on aurait la chance qu'il n'y ait qu'un seul style appliqué
dans les boites de style ?


Je ne comprend pas très bien


S'il y avait un seul style utilisé dans les boites de texte on aurait
pu imaginer une petite macro pour appliquer le nouveau style.

mais pour les zones de textes, certaines sont basées sur le style Normal et
d'autres sur Corps de texte, voire Corps de texte2, ...
et ces styles sont également utilisés dans le document.


Et il y avait des zones de texte dans l'ancien et dans le nouveau ?
Je vais poser ma question autrement :
Pourrait-on établir une règle simple du genre :
Si le texte est de style a, lui appliquer le style b
Si le texte est de style c, lui appliquer le style d
etc

c'est juste pour essayer de trouver un palliatif.

--
A+


Avatar
jpm
Re,

S'il y avait un seul style utilisé dans les boites de texte on aurait
pu imaginer une petite macro pour appliquer le nouveau style.


oui ok, je comprends, on fait une macro qui traite le document à copier
(avant la copie). dans cette macro, on fait un traitement qui remplace le
style x par le style y mais uniquement sur les zones de texte.
oui, cela me semble une excellente idée, je vais essayer et te tenir au
courant !
je te remercie beaucoup

[par contre, cela n'enlève pas le problème de Word sur les zones de textes :
à savoir qu'après avoir choisit "Conserver la mise en forme source", la mise
en forme source ne soit pas conservée ! étrange et anormal !]

Merci encore,

Jean-Pierre

Avatar
Geo


[par contre, cela n'enlève pas le problème de Word sur les zones de textes :
à savoir qu'après avoir choisit "Conserver la mise en forme source", la mise
en forme source ne soit pas conservée ! étrange et anormal !]


J'avoue avoir eu la flemme de tester sur le cas présenté et je ne suis
pas spécialiste des mises en forme.
Donc j'ai pensé à une solution de contournement, mais par défaut.

Bon courage

--
A+

Avatar
jpm
Comme prévu voila le bout de code que j'ai utilisé:

Sub ZoneTxtStyle()
Dim s As Shape
For Each s In ActiveDocument.Shapes
s.Select
If Selection.Style = "Toto" Then
Selection.Style = ActiveDocument.Styles("Titi")
End If
Next
End Sub

J'avoue avoir eu la flemme de tester sur le cas présenté et je ne suis
pas spécialiste des mises en forme.
Donc j'ai pensé à une solution de contournement, mais par défaut.


Non, mais y'a pas de problème!
C'est déjà très sympa de s'être penché sur MON problème
Merci encore et au plaisir

Jean-Pierre

Avatar
Geo

Comme prévu voila le bout de code que j'ai utilisé:

Sub ZoneTxtStyle()
Dim s As Shape
For Each s In ActiveDocument.Shapes
s.Select
If Selection.Style = "Toto" Then
Selection.Style = ActiveDocument.Styles("Titi")
End If
Next
End Sub


Je suggère une petite amélioration, je suis un fana du select case:

select case Selection.Style
case "Toto"
Selection.Style = ActiveDocument.Styles("Titi")
case "Tata"
Selection.Style = ActiveDocument.Styles("Tonton")
case else
msgbox "Style sans correspondant " & Selection.Style
end select

Comme ça on est alerté si un style a été loupé, et on est positionné
sur la boite en question (select).

PS : j'ai tellement été aidé par les forums que je ne fais que rendre
la pareille quand je peux :-)

--
A+