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

[ouskel'n'or]

Avant ce mot, j'ai inséré un signet Nom.

Pour que m'a proposition fonctionne, tu dois sélectionner ton mot pour affecter le signet.
Sinon, pour récupérer le mot situé à droite du signet, tu dois faire un extend d'un mot. Or, dans ta formule, tu ne peux pas mettre une instruction VBA.
Voilà tout

[christel91]

Désolée mais je viens de sélectionner le mot et lui affecter le signet Nom mais la macro ne fonctionne pas. Tjs le même pb, même message :-(

Peux-tu me préciser ce que c'est un extend ? (Je ne suis pas programmeur en VBA)

Je te remercie de ton aide

[ouskel'n'or]

Code :

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

    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Permet de sélectionner un mot (wdWord, Count = 1) situé à droite de la sélection. Dans ton cas, tu ne peux pas l'utiliser
Mets ton code rien que pour voir

[christel91]

Donc voici le code que j'utilise. J'ai supprimé \* FUSIONFORMAT car il est ajouté dès que je lance la macro.

Merci

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:= _
        "INCLUDETEXT ""C:\\Doc\\Il me reste à les insérer dans la phrase.doc"" Nom" _
        , PreserveFormatting:=True
    End With

[ouskel'n'or]

Tu as mis le nom de mon fichier

..."C:\\Doc\\Il me reste à les insérer dans la phrase.doc"

A la place de ça, mets le nom complet de TON fichier (avec le chemin - C:\\.... ) pas du mien
J'espère que ça va fonctionner maintenant
A+

[christel91]

J'ai créé un fichier sous C:\doc\ qui porte le nom de ton fichier.

Ce n'est malheureusement pas le pb :-(

[ouskel'n'or]

Et tu mets bien le nom du signet sur le mot en excluant l'espace à droite ?
A+

[ouskel'n'or]

Un dernier effort :
Je te joins deux fichier Word. La procédure qui te permet d'insérer la formule au bon endroit est dans un module standard du fichier "FichierFormule.doc"
Le champ nommé est dans le fichierdonnées.doc. A moins que tu ne modifies l'adresse dans la macro, les deux fichiers doivent être placés dans D:\Doc
Testé et tout
Tu dis

Pièce jointe 7171

[christel91]

Ca marche .... :-)

Merci pour ta patience

[AlainTech]

Un petit , alors?