Sub imprime_Word_desde_Excel()
Dim objWord
'abrimos Word
Set objWord = CreateObject("Word.Application")
'mostramos o hacemos visible la aplicación
objWord.Visible = True
'si no deseamos sea visible cambiamos a FALSE
'(OJO, si queremos ver la vista previa debe estar en TRUE)

'identificamos el docx a imprimir
'y lo abrimos (recuerda que no será visible)
Dim objDoc
Set objDoc = objWord.Documents.Open("E:\excelforo\MACRO PARA IMPRIMIR DOCUMENTO WORD DESDE EXCEL.docx")

'Si queremos podemos dirigir la imrpesión por una impresora concreta
Dim ImpresoraDefecto As String
ImpresoraDefecto = objWord.ActivePrinter
objWord.ActivePrinter = "HP Deskjet 3050A J611 series"     '(Tu nombre de impresora deseada)

'activamos la aplicación (Word)
objWord.Activate

'Lanzamos la impresión
objDoc.PrintOut
'o si lo prefieres la vista previa
'objDoc.PrintPreview

'Reseteamos la impresora por defecto para futuras impresiones
objWord.ActivePrinter = ImpresoraDefecto

'cerramos el documento y la aplicación
objDoc.Close
objWord.Quit

End Sub