Olá pessoal, estou com um problemas!
Tenho 25 arquivos em Word(doc), em uma determinada pasta, e preciso que os mesmos sejam abertos, impressos e fechados pelo excel,

Usei essa

Sub Teste()
    Dim AppWord As Word.Application
    Set AppWord = GetObject("N:Fábrica de Rações - Qualidade DouradosDocumentos - QualidadeIN 65Rotulos Ativos79057.doc
    With AppWord
        .ActiveDocument.PrintOut Background:=False
        .Quit SaveChanges:=False
    End With
    Set AppWord = Nothing
End Sub

, mas não deu, devido estar na pasta e precisar indicar a biblioteca;

Então usei essa outra,

Sub Teste()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    OpenWordDoc WordApp, "N:Fábrica de Rações - Qualidade DouradosDocumentos - QualidadeIN 65Rotulos Ativos79057.doc"
    'OpenWordDoc WordApp, para imprimir mais de um arquivo
    WordApp.Quit
    Set WordApp = Nothing
End Sub

Public Sub OpenWordDoc(WD As Object, strPath As String)
    WD.Documents.Open (strPath)
    WD.ActiveDocument.PrintOut Background:=False
    WD.ActiveDocument.Close
End Sub

,

Aguardo