OVH Cloud OVH Cloud

Insertion Automatiques

3 réponses
Avatar
KIKSAN
Bonjour =E0 tous,

Dans le normal.dot j'ai ins=E9r=E9 plus de 500 insertions=20
automatiques (simples et complexes).
Je dois ABSOLUMENT les modifier.

Pour me simplifier la TACHE, j'aimerai =E9crire une macro=20
pour pouvoir les ins=E9rer automatiquement dans un document.

Si cette macro est possible est-il possible de mettre en=20
D=E9but : le nom de l'insertion et en fin "fin insertion" et=20
s=E9parer chaque insertion par un retour chariot.

Exemple

Insertion 1
xxxxxx hhhhhhhh
ggggg ...
Fin Insertion 1

Insertion 2
YUYUYUYUYUYU hhhhhhhh
II
Fin Insertion 2
...

Merci =E0 tous

KIKSAN

3 réponses

Avatar
KIKSAN
J'ai résolu le problème de la façon suivante :

Sub Auto_Text_Entries()

For Each I In NormalTemplate.AutoTextEntries
Application.DisplayAutoCompleteTips = True
Selection.TypeText Text:=I.Name
Selection.TypeParagraph
NormalTemplate.AutoTextEntries(I.Name).Insert
Where:=Selection.Range
Selection.TypeText Text:="FIN"
Selection.TypeParagraph
Next I

End Sub

Je vais maintenant procéder aux modifications.

Il faudrait maintenant que je fasse une autre macro pour
re-injecter dans les Auto test entries mes modifications
sachant que dans mon document les insertions modifiées
sont séparées par le nom de l'insertion auto et la fin par
le mot FIN.

Si quelqu'un a une idée en VBA je le remercie par avance

KIKSAN
-----Message d'origine-----
Bonjour à tous,

Dans le normal.dot j'ai inséré plus de 500 insertions
automatiques (simples et complexes).
Je dois ABSOLUMENT les modifier.

Pour me simplifier la TACHE, j'aimerai écrire une macro
pour pouvoir les insérer automatiquement dans un document.

Si cette macro est possible est-il possible de mettre en
Début : le nom de l'insertion et en fin "fin insertion"
et

séparer chaque insertion par un retour chariot.

Exemple

Insertion 1
xxxxxx hhhhhhhh
ggggg ...
Fin Insertion 1

Insertion 2
YUYUYUYUYUYU hhhhhhhh
II
Fin Insertion 2
....

Merci à tous

KIKSAN



.



Avatar
geo
Bonjour

-----Message d'origine-----
J'ai résolu le problème de la façon suivante :


[...]

Bravo

Je vais maintenant procéder aux modifications.

Il faudrait maintenant que je fasse une autre macro pour
re-injecter dans les Auto test entries mes modifications
sachant que dans mon document les insertions modifiées
sont séparées par le nom de l'insertion auto et la fin
par

le mot FIN.

Si quelqu'un a une idée en VBA je le remercie par avance


Ben voilà, c'est comme les centrales nucléaires, c'est pas
tout de le faire, mais il faut aussi les démonter
et c'est mieux quand on y a pensé dès le départ.

A ta place je ferais plutôt un tableau à deux colonnes,
à gauche le nom, à droite l'insertion.
Comme ça pour les réécrire il suffit de balayer le
tableau, c'est bien plus facile que de repérer des
délimiteurs.

A+

Avatar
Guy Moncomble
Bonjour à tous,
dans le message 1fef01c3e0fc$5ed6ed30$,

| Bonjour
|
|| -----Message d'origine-----
|| J'ai résolu le problème de la façon suivante :
|
| [...]
|
| Bravo
|
|| Je vais maintenant procéder aux modifications.
||
|| Il faudrait maintenant que je fasse une autre macro pour
|| re-injecter dans les Auto test entries mes modifications
|| sachant que dans mon document les insertions modifiées
|| sont séparées par le nom de l'insertion auto et la fin par
|| le mot FIN.
||
|| Si quelqu'un a une idée en VBA je le remercie par avance
|
| Ben voilà, c'est comme les centrales nucléaires, c'est pas
| tout de le faire, mais il faut aussi les démonter
| et c'est mieux quand on y a pensé dès le départ.
|
| A ta place je ferais plutôt un tableau à deux colonnes,
| à gauche le nom, à droite l'insertion.
| Comme ça pour les réécrire il suffit de balayer le
| tableau, c'est bien plus facile que de repérer des
| délimiteurs.
|
| A+

Ben oui, même que çà existe et même qu'on ne peut pas lui expédier une
copie à Kiksan Anonymous. Tant pis pour lui !
--
A+

G.M. MVP Word