Discussion :

[lejert]

Bonjour,

Je n'y connais pas grand chose en Word mais j'aimerais faire la chose suivante (je rame depuis hier et ne trouve pas de solution !!!)

J'ai une collection d'objets avec diverses propriétés que j'aimerais mettre en forme, en remplacant une balise

Donc par exemple remplacer <MaBalise> (du texte) par :

Prop1enGras, Prop2EnItalique, Prop3Normal, Prop4Souligné
Prop1enGras, Prop2EnItalique, Prop3Normal, Prop4Souligné
Prop1enGras, Prop2EnItalique, Prop3Normal, Prop4Souligné
Prop1enGras, Prop2EnItalique, Prop3Normal, Prop4Souligné
Prop1enGras, Prop2EnItalique, Prop3Normal, Prop4Souligné

Ici pour une collection de taille 5, mais la taille est bien entendu variable.

J'ai essayé de jouer avec les propriétés selection ect, mais cela ne fonctionne pas...

Merci d'avance pour votre aide

[lejert]

... bon j'ai trouvé une piste.

Faire un premier passage dans lequel on inclut les données par remplacement de la balise avec des balises spécifiques pour la mise en forme.

ex :

<B>Prop1enGras</B>, <I>Prop2EnItalique</I>, Prop3Normal, <U>Prop4Souligné</U>
<B>Prop1enGras</B>, <I>Prop2EnItalique</I>, Prop3Normal, <U>Prop4Souligné</U>
<B>Prop1enGras</B>, <I>Prop2EnItalique</I>, Prop3Normal, <U>Prop4Souligné</U>
<B>Prop1enGras</B>, <I>Prop2EnItalique</I>, Prop3Normal, <U>Prop4Souligné</U>
<B>Prop1enGras</B>, <I>Prop2EnItalique</I>, Prop3Normal, <U>Prop4Souligné</U>


Faire un deuxième passage où l'on met en forme ce qu'il y a à l'intérieur de chacunes de ces balises.

Je rame (encore ! ) pour ce second passage, j'ai trouvé des exemples grâce à google mais rien n'est vraiment concluant... Si quelqu'un a déjà fait ça ... ?

[carden752]

Bonjour,

Il suffit de faire une recherche un peu spéciale avec utilisation des caractères génériques.
rechercher \<B\>(*)\</B\> Le problème est de considérer les caractères < et > comme des simples caractères et pas des débuts et fin de mots d'où l'ajout de \ devant chacun.
Ensuite il suffit dans la zone remplacer de définir le format qui va bien, ici du gras puis \1 dans la zone de recherche qui veut dire le premier élément de la zone rechercher encomptant que ceux entre parenthèses.

Tu enregistres une macro avec ces paramètres et tu verras l'utilisation de la méthode find. Il ne te restera plus qu'à adapter ton problème aux autres balises.

[Heureux-oli]

Salut,

Peut-être une piste un peu différente.

Si toutes lesvaleurs sont séparées par une ponctuation, transformer le tout en tableau et on applique ce que l'on veut à chaque colonne.


On peut faire l'opération dans l'autre sens ensuite.

Le tout sans VBA.

[lejert]

Merci à vous, j'ai résolu le problème.

A vrai dire, j'ai plutôt utilisé la solution avec les balises car il pourrait y avoir de la ponctuation dans les chaînes.

J'utilise des balises faites uniquement avec des caractères simples (lettres) pour éviter les problèmes de wildcards et autres caractères spéciaux.

Donc, en premier lieu : je remplace la balise par des données séparées par des balises personnalisées, puis je mets en forme le texte entre ces balises.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'1 - Les balises BOLDXXX et XXXBOLD permettent de mettre "Name" en gras
For i = 0 To MyColl.Count - 1
    buf = buf & "- BOLDXXX" & MyColl.Items(i).Name & ": XXXBOLD" & (MyColl.Items(i).ID)
Next i
 
'2 - Remplacement des balises de mise en forme et application du style
Selection.HomeKey Unit:=wdStory
ScreenUpdating = False
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Italic = False
    .Replacement.Font.Bold = True
    .MatchWildcards = True
    .Text = "BOLDXXX(*)XXXBOLD"
    .Replacement.Text = "\1"
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With

[MatMagik]

bonjour

voici une autre solution en macro pour modifier la mise en forme du texte entre des caractères particuliers < ou [ ou autres...
(ici on ne joue que sur la mise en forme et pas le contenu : la macro passe le texte en rouge et en gras)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub mise_en_forme_entre_crochets()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.Find
    .ClearFormatting
    .MatchWildcards = True
    .Text = "(\^091*\^093)"
    With .Replacement
            .ClearFormatting
           '.Font.Italic = True
            .Font.ColorIndex = wdRed 'wdGreen
            .Font.Bold = True
            .Text = "\1"
     End With
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With
End Sub

on sélectionne le texte avec l'étoile * entre les deux caractères de délimitation tapés en code ASCII

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Text = "(\^091*\^093)"

le ^091 est le code ascii du crochet ouvrant [
le ^093 est le code ascii du crochet fermant ]
le \ avant est utilisé pour ne pas interpréter le crochet (qui est un caractère wildcard)

pour des séparateurs guillemets ^034 " il n'est pas nécessaire d'ajouter l'antislash \ avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Text = "(^034*^034)"

et on remplace le texte recherché par lui-même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Replacement.Text = "\1"

et voilà...