TOUT copier /coller [Résolu]

[owsion]

Salut à toutes et tous,
y a-t-il un moyen pour copier tous les éléments d'un document (y compris, entête, pied de page, zones de texte, signets,...) et les coller dans un autre document?
Les fonctions

Code :

 Selection.MoveEnd wdStory

ou

Code :

  Selection.WholeStory

oublient certains éléments.

Une seule commande serait très appréciée...

Merci d'avance de votre aide.
OW

[Heureux-oli]

Essaie ceci pour voir !

Code :

1
2
3
4
5
6
Sub testCopierColler()
ActiveDocument.Content.Select
Selection.Copy
Documents.Add
ActiveDocument.Range.PasteAndFormat (wdPasteDefault)
End Sub

[owsion]

Salut Heureux-oli,

c'est cool, ça marche.
Je suppose que la solution réside dans

Code :

ActiveDocument.Content.Select

Dommage qu'une telle fonction ne soit pas disponible nativement.

Merci bcp oli!

Cordialement,
OW