Discussion :

[unacsed]

Bonjour,

Je crée une application VB qui intéragit avec un fichier word grace à MSWORD.OLB.

Le but est de remplacer un tag dans un fichier word par un texte prit d'une base de donnée.

Le problème est que mon texte peut faire plus de 255 caractères et quand c'est le cas, j'ai une erreur comme quoi mon texte est trop long. Il y a-t-il un moyen pour mettre un texte de plus de 255 caractères ?

P.s. J'utilise Word 2002

Merci d'avance

[Phifi]

Bonjour,

peux-tu nous montrer le code gérant le remplacement des tags ainsi que le message d'erreur ?

[unacsed]

Hello, Merci beauoup de me répondre

Voici le code

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
16
17
18
19
20
21
22
23
24
25
26
Private Sub FindAndReplaceAll(strChamp As String, strTexte As String)
    'Rechercher/Remplacer tout dans le nouveau document
    Dim OriginalView As Long
 
    pclsLogTaxPM.LogIt 3, Me.Name, "FindAndReplaceAll"
    If pudtModele.strCodTypDoc = CODTYPDOC_WORD Then
        'Word
        With mappWrd.Selection.Find
            .ClearFormatting
            .Text = strChamp
            .Replacement.Text = strTexte
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
    Else
        'Excel
        mappXls.Cells.Replace What:=strChamp, Replacement:=strTexte, LookAt:=xlPart
    End If
End Sub

Le message d'erreur est : Paramètre de la chaîne trop long.


Merci d'avance

[Phifi]

Je pense que tu devrais gérer le remplacement différemment, non pas avec la commande rechercher/remplacer mais peut-être en utilisant des signets (propriété Bookmarks de l'objet Document)

Chaque "tag" est un signet dans le document Word (menu Insertion/Signet). Dans ton code, tu fais un boucle en identifiant tous les signets (bookmarks) de ton document. L'objet Range te permet ensuite de remplacer le signet par une chaine de caractère de ton choix.

[unacsed]

Ok, merci beaucoup, je vais essayer !

[unacsed]

Je sais que j'abuse mais tu n'arriverais pas par hasard à adapter le code ? Je suis dessus depuis 3 heures et je m'arrache les cheveux.

Merci d'avance

[Phifi]

Un truc comme ça devrait fonctionner, à adapter bien sûr :

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
16
17
18
19
 
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdRange As Word.Range
 
    Set wrdApp = New Word.Application
    Set wrdDoc = wrdApp.Documents.Open("C:\temp\monfichier.doc") '/ Document à traiter
 
    Do While wrdDoc.Bookmarks.Count > 0
        Set wrdRange = wrdDoc.Bookmarks(wrdDoc.Bookmarks(1).Name).Range
        wrdRange.Text = fonction_remplacant_ton_signet_par_un_string(wrdDoc.Bookmarks(1).Name) '/ ce sont les meilleures fonctions  :)
    Loop
    '
    wrdApp.Visible = True
    '
    Set wrdRange = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    '

[unacsed]

Merci infiniment mais mon problèmes - et c'est là que je dois pas tout capter - c'est que mon bookmark.count est toujours de zéro.

[Phifi]

Tu dois insérer des signets dans ton document du nom des variables à remplacer.
Ex : dans Word, menu Insertion/Signet, ajoute un signet nommé NOM

Dans la boucle, la fonction :
fonction_remplacant_ton_signet_par_un_string(NOM) renvoie "unacsed" et remplace le signet par la valeur "unacsed" dans le document Word

[unacsed]

Merci beaucoup, ça fonctionne parfaitement !

A bientôt !