Non sono sicuro che funzioni anciora la stampa unione.
Comunque se metti in una Directory i due file (anche se li sposti), excel trova il Word col comando ThisWorkbook.Path
Sub aaa()
Dim sPat As String
sPat = ThisWorkbook.Path
Set wordapp = CreateObject("word.Application")
wordapp.documents.Open sPat & "\doc1.docx"
wordapp.Visible = True
Set wordapp = Nothing
End Sub
Excel 2013