Discussion :

[aurel_igs]

Bonjour,

Je développe un complément COM Addin pour Word 2007/2007 qui aide les utilisateurs à poser des styles "Custom" dans un flux de texte.

Je n'ai aucun problème pour appliquer mes styles sur le paragraphe placé sous un curseur unique, ou sur toute une sélection de texte même si elle s'étend sur plusieurs paragraphes consécutifs.

En revanche, lors que mon développement essai d'appliquer mes styles sur des sélection de textes non consécutifs (fait en sélectionnant différent morceaux de textes dans le document à l'aide de la touche 'Ctrl'), mon selection.Range.Style = myStyle n'impacte que le dernier style sélectionné à l'aide de la touche Ctrl.

Comment est-il possible d’itérer sur l'ensemble des blocs composant ma sélection?

Merci d'avance,

[Heureux-oli]

Salut,

Je ne pense pas que ce soit possible.
Word ne traite qu'un seul objet sélection. Dans le cas d'une sélection multiple, il n'en traite qu'un morceau et en l'occurrence, le dernier.


Mais, dans le cas des styles je pense uqe ça fonctionne, essaie d'appliquer le style sans utiliser le range de l'objet selection.

Code :

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

Selection.Style = "Mon style"

[aurel_igs]

Bien vu Heureux-oli,

Si je fais un mySelection.Style="monStyle" sur une sélection de texte non consécutif, monStyle est correctement appliqué sur l'ensemble des parties sélectionnées.

En revanche, ça ne solutionne pas mon problème puisque j'ai besoin d'appliquer des traitements différents sur chacun des blocs de la sélection et c'est pour cela que j'essayais d'itérer sur chacun d'entre eux.

Sur un bloc consécutif de paragraphes, je fonctionnais comme ça :

For i=0 as Integer to mySelection.Range.paragraphs.count

Dim myStyle as Word.Style = customStyle(i)

mySelection.Range.paragraph(i).Style = myStyle

i++

next i

Malheureusement, en cas de sélection non consécutive, je n'ai trouvé aucune collection sur laquelle itérer.

Merci quand même, j'ai appris quelque chose.

[aurel_igs]

Merci pour votre aide.

J'ai finalement trouvé une solution qui me convient, la voici :
J'utilise l’événement WindowSelectionChange pour récupéré chaque changement dans la sélection du corps de texte.
Si la touche Ctrl est pressée à ce moment, j'ajoute la nouvelle sélection à ma liste de sélection.
Sinon, je vide ma liste de sélection et j'ajoute la nouvelle sélection à ma liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public mySelectionStack as New ArrayList
 
Private Sub myWordApp_WindowSelectionChange(ByVal Sel As Selection) Handles myWordApp.WindowSelectionChange
	If My.Computer.Keyboard.CtrlKeyDown Then    'Si la touche CTRL est préssée, on ajoute la nouvelle sélection à la pile de sélection
		mySelectionStack.Add(Sel.Range)
	Else                                        'Sinon, l'utilisateur a fait une sélection standard, on réinitialise la pile avec juste la nouvelle sélection
		mySelectionStack = New ArrayList()
		mySelectionStack.Add(Sel.Range)
	End If
End Sub

Ensuite je peux faire un For Each sur chaque élément de mon tableau pour faire des traitements particuliers sur chaque partie de mes sélections non contiguës.

[Heureux-oli]

Salut,

Bien pensé !