Transformé une macro excel en Word

Bonjour,

cette macro me permet d'imprimer un fichier excel en cliquant sur un bouton... j'aurais aimé pouvoir faire la meme chose pour un fichier word
je chercher à transformer cette macro pour qu'elle fonctionne avec Word

Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub

on me la rédiger (j'en suis complétement incapable mais je ne sais pas comment la transformé pour qu'a la place d'imprimer un fichier Word il imprime un fichier excel..

un tout grand merci

Jérôme