[WD-2010] macro pour remplacer mot par document

[cpf2006]

Bonjour,
Je cherche à faire une macro qui dans word 2010 sous windows7 me permettrait de remplacer un mot par un autre document word.
Existe-t'il qlq chose en vb pour faire cela ?
Merci d'avance

[carden752]

Bonjour,

Peut-être en copiant un lien includetext dans le presse papier et en appliquant ensuite une méthode de remplacement par le contenu du presse papier (^c). Tu peux aussi copier tout ton document mais ce sera beaucoup plus lourd.

Code :

1
2
3
4
5
 
with selection.find
.text="motaremplacer"
.replacement.text="^c"
.execute wdreplaceone

wdreplaceone = Un seul remplacement
wdreplaceall pour tout remplacer

Voila un exemple à toi de l'adapter

[cpf2006]

Merci pour ton idée
je n'y parviens pas
le "^c" tu le crée comment
N'y a t'il pas une autre méthode
comment par mettre le contenu du texte dans le presse papier dans macro
merci d'avance

[carden752]

Bonjour,

Plusieurs solutions sont envisageables mais une des plus simples consite à mettre le includetext dans un autre fichier, ensuite tu appliques dessus une méthode de remplacer pour modifier le chemin du fichier.
contenu du fichier monincludetext
{INCLUDETEXT "nomfichier"}

Quelque chose comme cela devrait être adaptable

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub testcopie ()
dim docinclude as document
set docinclude = application.documents.open ("monincludetext")
 
'Remplacement du chemin du fichier
with docinclude.range.find
.text="nomfichier"
.replacement.text="monintitule"
.execute wdreplaceone
End with
 
docinclude.range.copy
docinclude.close wddonotsavechanges

Je n'avais pas Word sous la main donc sous toute réserve de faute de frappe.