Discussion :

[Uranne-jimmy]

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 :

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

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 :

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

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 :

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

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 ^^

[Sankasssss]

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 :

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

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

[Uranne-jimmy]

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.

[Sankasssss]

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

Code :

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

otab(j).Content.Select()

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

[Uranne-jimmy]

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...

[Uranne-jimmy]

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 :

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

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 ^^