[VB5] Remplacement d?une chaine dans Word

Question

Bonjour,


Voil&#224; j&#146;ai un petit souci en VB5 (milieu
industriel oblige) : je n&#146;arrive pas &#224; faire le remplacement d&#146;une chaine dans
un document Word. J&#146;ai essay&#233; en faisant &#231;a :



    word.Application.Selection.Find.Text =
"<TITRE>"

   
word.Application.Selection.Find.Replacement.Text = sTitreDoc


    word.Application.Selection.Find.Execute
Replace:=wdReplaceAll






 


Mais cela ce fait strictement rien :&#146;(






Est-ce que quelqu&#146;un aurait une ch&#146;tite id&#233;e


Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

cs_jordinette · Answer

Bonjour,
en VBA ça donne ça:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "truc"
        .Replacement.Text = "chose"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With

donc tu as qu'à ajouter le "word.application." devant les "selection" et cela devrais marcher.
Jordinette

Cow_B · Answer

Merci pour la r&#233;ponse, mais malheureusement, mon probl&#232;me n'est
toujours p&#244; r&#233;gler :'( Comme toi, j'ai fait des tests dans VBA qui
marche impec' ! Mais une fois mis dans VB5, cela n'a aucun effet !



Si  quelqu'un a une autre id&#233;e !? Merci !

Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

rvblog · Answer

Salut 216102 Cow_B, Salut =460163 jordinette, Il est possible que tu n'es pas accès à l'objet Selection si ton instance de WORD n'est pas visible, ou est iconisée. Pour vérifier, affiche la visible et maximisée. à+ rvblogn ^{Je veux ton bien... et je l'aurais}

[VB5] Remplacement d?une chaine dans Word

3 réponses

Discussions similaires