VBA WORD : Selectionner Document Actif

'allez dans Outils-références et cochez Microsoft Word 12.0 Object Library
Sub Creation_doc_word()
   Dim MonBeauWord As Object
   Set MonBeauWord = New Word.Application
   MonBeauWord.Visible = True
  ' Création d'un nouveau document :
   MonBeauWord.Documents.Add
   ' Ecriture d'un petit texte dans ce nouveau document :
   MonBeauWord.Selection.TypeText "Test de fonctionnement"
   ' Sauvegarde de ce document ainsi créé :
   'MonBeauWord.ActiveDocument.SaveAs "C:\Mes documents\Simple test.doc"
   ' Fermeture de ce document :
  ' MonBeauWord.ActiveDocument.Close
 ' Set MonBeauWord = Nothing
 End Sub
Sub ajout_texte()
 Dim appword As Object, lesdocuments As Object, ledoc As Object
 Dim i As Byte
 On Error GoTo piegeerreur
 'Essaie de récupérer l'instance de Word
 'active au cas où Word serait ouvert
 'Si Word n'est pas ouvert, cela génère
 'l'erreur numéro 429
 'Dans ce cas, c'est le gestionnaire d'erreur "piegeerreur"
 'qui prend le relais et qui ouvre Word
 Set appword = GetObject(, "Word.Application")
 appword.Visible = True
 Set lesdocuments = appword.Documents
 For Each ledoc In lesdocuments
 ledoc.Select
 appword.Selection.EndKey Unit:=wdStory
 appword.Selection.InsertParagraph
 appword.Selection.InsertAfter "C'est fini"
 ledoc.Save
  Next
 'Fermer les documents
 For Each ledoc In lesdocuments
 ledoc.Close
 Next
 'Fermer Word
 appword.Quit
 'Sortie de routine, pour éviter le gestionnaire d'erreurs
 Exit Sub
 'Gestionnaire d'erreurs
piegeerreur:
 Select Case Err.Number
 Case 429
 MsgBox "Le fichier existe déjà. Fin du programme et retour à Word "
 Case Else
 MsgBox "Erreur imprévue. Fin du programme et retour à Word"
 End
 End Select
 End Sub