Automatiser le champ INCLUDETEXT

[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 :

{ 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 :

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]

Envoyé par Tu

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 :

    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 :

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?