Discussion :

[christel91]

Bonjour,

Comment en VBA rechercher une partie de mot (ex: CM) dans un doc word et ensuite, définir des champs qui vont reprendre le mot entier.

Exemple :

Dans le doc word,

on a les mots suivants :

CM840002001
CM214002001

remplacer ces mots par {INCLUDETEXT "C:\CM840002001.doc"}
et {INCLUDETEXT "C:\CM214002001.doc"}

Je vous remercie

Christel

[ouskel'n'or]

Tu dois mettre deux \ dans le chemin sinon ça marche pas C'est du Word, pas du VBA

Code :

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

{ INCLURETEXTE "D:\\Doc\\Il me reste à les insérer dans la phrase.doc" Nom \* FUSIONFORMAT }

A+
Edit
En VBA, chais pas

[ouskel'n'or]

Testé et tout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "CM840002001"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute
    With Selection
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "INCLURETEXTE ""D:\\Doc\\Il me reste à les insérer dans la phrase.doc"" Nom \* FUSIONFORMAT" _
        , PreserveFormatting:=True
    End With

Où es-tu ?

[christel91]

Merci pour ta réponse.

Mais cela ne fonctionne pas :-( Je teste sur WORD 2000.

Voici le message d'erreur "Erreur ! Signet non défini." et le texte CM840002001 n'est pas remplacé.

Merci pour ton aide.

Christel

[ouskel'n'or]

Dans le doc dans lequel tu prends la donnée, tu as bien défini le signet ?
Je pense que oui mais comme chez moi ça fonctionne...

[christel91]

Désolée mais cela ne fonctionne pas.

Dans mon fichier doc, j'ai tapée CM840002001. Avant ce mot, j'ai inséré un signet Nom.

Lorsque j'exécute la macro, j'obtiens le champ suivant {INCLUDETEXT "C:\\Doc\\Il me reste à les insérer dans la phrase.doc" Nom \* MERGEFORMAT}.

Et avec F9, le message d'erreur suivant : Erreur ! Signet non défini.

Je ne comprends rien :-(

Merci pour ton aide

Christel