VBA to Print Word docx from Excel

[Ed_B]

This code works to print a Word docx from Excel when I hard code a path for the docx file:

Sub PrintDocs()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("c:\test.docx")
objWord.Visible = True
objDoc.PrintOut
objWord.Quit
End Sub

However, I need help to print a docx file in the same folder as the Excel file.

Your feedback is appreciated.

 

[Jaafar Tribak]

Sub PrintDocs()
[COLOR=#ff0000][B]    Const DOC_NAME = "test.docx"[/B][/COLOR]
    Dim objWord
    Dim objDoc
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open([COLOR=#ff0000][B]ThisWorkbook.Path & Application.PathSeparator & DOC_NAME[/B][/COLOR])
    objWord.Visible = True
    objDoc.PrintOut
    objWord.Quit
End Sub

 

[Ed_B]

Thank you very much Jaafar