Discussion :

[Gorzyne]

Bonjour à tous,

existe-t-il une méthode pour travailler sur un range dans un shape, quelque chose du genre

Code :

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

set monrange = monshape.range(34,59)

j'ai essayé dans tous les sens je trouve pas (à part travailler sur characters(i) mais bon)

Merci à tous
Gorz

[Heureux-oli]

Salut,

Quel est ton but ?

[Gorzyne]

J'ai du texte dans des shapes je dois identifier des balises de début et de fin dans ces shapes

Je n'ai pas la main sur le word, donc pas de signets, les balises consistent en du texte [(début balise) blabla (fin balise)]

Pour le corps du doc, j'utilise un .find mais le .find ne passe pas dans les shapes

Je souhaite donc faire un .find spécifiques pour les shapes. Sur tout ce qui est identification d'un champ unique

Code :

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

Find.Execute Findtext := "[MonChamp]"

ça fonctionne, mais pour les balises je n'arrive pas à adapter le code du corps du doc

Dans le corps j'utilise:

Code :

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

1
2
3
4
5
6
 
      startsearch=0 
            Set myrange1 = docword.Range(startsearch, docword.Range.End)
            myrange1.Find.Execute FindText:="[(début balise)"
            Set myrange2 = docword.Range(myrange1.Start, docword.Content.End)
            myrange2.Find.Execute FindText:="(fin balise)]", Forward:=True

mais dans le shape,

Code :

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

1
2
3
4
5
6
 
      startsearch=0 
                    Set myrange1 = appwd.Selection.Range(startsearch, appwd.Selection.End)
                    myrange1.Find.Execute FindText:="[(début balise)"
                    Set myrange2 = Selection.Range(myrange1.Start, Selection.TextFrame.TextRange.End)
                    myrange2.Find.Execute FindText:="(fin balise)]", Forward:=True

ne fonctionne pas
J'ai essayé dans tout les sens avec TextFrame.TextRange, etc... et je trouve pas...

pourtant il me trouve bien Selection.end et Selection.start

[Heureux-oli]

Salut,

si c'est une recherche dans le texte d'un shape, tu peux travailler avec un objet Selection

Code :

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

1
2
ActiveDocument.Shapes(1).TextFrame.TextRange.Select
Debug.Print Selection.Text

[Gorzyne]

J'aimerais bien mais justement, ça ne marche pas... je dois faire la recherche dans une partie du shape seulement, donc avec à un moment un

Code :

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

.Range(nstartsearch,nendsearch)

[Gorzyne]

Après des recherches approfondies, j'ai enfin trouvé une solution
alors pour les suivants ça marche avec la syntaxe

Code :

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

Monshape.SetRange Start:= mystart, End:= myend

en espérant que cela soit utile à certains