Naviguer dans word

Ou l'art de travailler à l'aveugle...

J'ai beaucoup de mal avec word ^^ Je me retrouve à l'heure actuel à travailler sur un modèle word, composé d'une multitude de textes fixes. On vient de me demander d'ajouter à côté d'un texte une mention "douteux", donc en gros juste du texte, en rouge et gras qui vient s'insérer dans une phrase après un retour à la ligne.

J'ai testé plusieurs choses, le premier truc qui coince, c'est la sélection :

Code:

---

1 2 3 4

otab(j).Content.Select() oWord.Selection.Find.Text = "A070-G/B/L cassé Eau (concA)" oWord.Selection.Find.Replacement.Text = "A070-G/B/L cassé Eau (concA)" oWord.Selection.Find.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)

---

J’émets sans trop d'assurance l'hypothèse que à partir de la j'ai mon curseur qui est où je le souhaite.

Après voilà le déroulement, capturé par macro tant bien que mal (mal foutu le système de macro word, comparé à Excel).

Code:

---

1 2 3 4 5 6

oWord.Selection.MoveRight(Count:=1) oWord.Selection.TypeParagraph() oWord.Selection.TypeText("Douteux") oWord.Selection.MoveLeft(Count:=7, Extend:=WdMovementType.wdExtend) oWord.Selection.Font.Bold = 1 oWord.Selection.Font.ColorIndex = WdColorIndex.wdRed

---

Résultat : la selection n'a pas opéré, mon douteux est en fin de page tout en bas, bien séparé d'un retour à la ligne, en gras et rouge mais pas au bon endroit.

J'ai aussi testé la méthode fufu sans succès :

Code:

---

1 2 3 4

otab(j).Content.Select() oWord.Selection.Find.Text = "A070-G/B/L cassé Eau (concA)" oWord.Selection.Find.Replacement.Text = "A070-G/B/L cassé Eau (concA)" & vbcrlf & "douteux" oWord.Selection.Find.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)

---

Mais là il survole le code sans rien faire (soit il trouve pas, soit la string de replacement lui plait pas.

Help ^^

Hello,

désolé je réponds vite fait mais je pense que tu oublies de boucler sur le résultat et de sélectionner un nouveau range.
Exemple de notre fonction de remplacement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub Replace(ByVal strAChanger As String, ByVal strRempla As String) Dim rng As Microsoft.Office.Interop.Word.Range = DocWord.Range   rng.Find.ClearFormatting() rng.Find.Forward = True rng.Find.Text = strAChanger rng.Find.Execute()   Do While rng.Find.Found Dim rng2 As Microsoft.Office.Interop.Word.Range = DocWord.Range(rng.Start, rng.End) rng2.Select() rng2.Text = strRempla rng.Find.Execute() Loop End Sub

---

Bonjour,

Une réponse c'est déjà du luxe ^^

En fait, je ne pense pas, dans mon cas, je sais, et ce sera toujours vrai, que la chaîne de caractère recherché n’apparaîtra qu'une fois, et si je n'utilise pas une procédure pour le faire c'est également parce que je ne souhaite que placer mon curseur, pour ensuite effectué un saut de ligne et écrire.

J'ai cherché un peu partout, je suis tombé sur une page du msdn qui n'apparaissait pas avant (on dit merci à google, duckduckgo m'a permis d'avoir des résultats neutres contrairement à lui), j'ai trouvé une ligne qui pourrait changer la donne, je suis en train d'effectué un test (un peu long le programme) : oWord.Selection.Select(), parce que visiblement, il sélectionne pas le texte trouvé tout seul ...

Marche pas ... la selection qui est retenu reste celle du otab(j).content.select :/

Re edit : "When the item is found that matches the search criteria, it is automatically selected."
Ba ... ça marche pas u_u Je pense finalement que le problème vient d'autre chose que le find, reste à savoir quoi.

On dirait effectivement qu'il coince à la sélection :

Code:

---

otab(j).Content.Select()

---

Tu as essayé de le faire sur tout le document pour voir si ça donnait de meilleur résultat?

Ba en fait otab(j).content c'est pas sensé sélectionner tout le document ? (sauf les textbox créé et le header/footer)

C'est pas le premier cas où je dois récupérer le texte, dans mon exemple "concA" est un mot clé remplacé par une valeur plus explicite dans mon programme (par une petite fonction replace de ma création justement). La différence là c'est que je peux pas mettre de mot clé :/ l'ajout de "douteux" est soumis à conditions.

Du coup, je vais tenter de copier mot pour mot le code vb.net (j'aime pas faire ça) et on verra...

:arf: :aie:

Bon premièrement : avant de copier le msdn j'ai changé la chaine recherché, diminué la taille de la recherche, on sait jamais, ça restait assez spécifique. Ca n'a pas suffit ^^
Ensuite j'ai fait le test : si ça marche, alors fait ça, sinon fait rien. Pas suffit.
Et enfin j'ai changé la formule pour mettre directement : selection.find.execute("ma chaine").

Et là ça fonctionne, ces trois éléments sont indispensables par contre, y compris la condition :/
Du coup :

Code:

---

1 2 3 4 5 6 7 8

if oWord.Selection.Find.Execute("cassé Eau (concA)") then oWord.Selection.MoveRight(Count:=1) oWord.Selection.TypeParagraph() oWord.Selection.TypeText("Douteux") oWord.Selection.MoveLeft(Count:=7, Extend:=WdMovementType.wdExtend) oWord.Selection.Font.Bold = 1 oWord.Selection.Font.ColorIndex = WdColorIndex.wdRed end if

---

Merci pour ton aide Sankasssss, sans me donner spécialement de solution, tu m'as tout de même permis de chercher au bon endroit ^^

Content que tu aies trouvé, je sais à quel point l'automation peut être difficile a appréhender...

Sur word, je manque cruellement de recul, et je ne suis vraiment pas à l'aise avec l'enregistrement de macro, ça n'aide pas ^^ La façon de travailler et également sensiblement différente et plus difficile que sur Excel, à cause du format. Mais j'ai appris en tâtonnant, je continues en tâtonnant, j'y arriverait en tâtonnant :)