Discussion :

[Bidule222]

Bonjour à tous,

J'ai une macro sous Word 2016, très simple qui sélectionne et copie le texte d'un document Word ouvert, ouvre un nouveau document vide et y colle le texte copié dans le premier.

Code :

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

1
2
3
4
5
6
7
 
Sub copy()
    Selection.WholeStory
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

Mon problème :
Lorsque j'exécute la macro en pas à pas par [F8], elle s'exécute sans erreur.
Lorsque j'exécute la macro par [Exécuter] ou même [CTRL]+[F8] en plaçant le curseur à la fin, j'ai le message d'erreur en arrivant sur la dernière commande (PasteAndFormat) : "erreur d'exécution 4605, cette commande n'est pas disponible".

Merci de votre aide.

[carden752]

bonjour,

Il est plus facile quand on travaille avec des nouveaux documents d'ajouter des noms référençant les nouveaux documents

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copy()
    dim docactuel as document, nouveaudoc as document
 
set docactuel = Activedocument
    docactuel.Selection.WholeStory
    docactuel.Selection.Copy
    set nouveaudoc = Documents.Add DocumentType:=wdNewBlankDocument
    nouveaudoc.Selection.PasteAndFormat (wdFormatOriginalFormatting)
set docactuel = Nothing
set nouveaudoc = Nothing
End Sub

De plus, quand la modification du document n'est pas nécessaire, il est préférable de travailler avec des objets Range que selection.