Автоматическая печать .docx документа сразу после его открытия?

Sub FileHandling(folder)
  Dim cnt, file, ObjWord
  
  Set ObjWord = CreateObject("Word.Application")
'  ObjWord.Visible = True ' Debug
  For Each file In folder.Files
  If "docx" = LCase(fso.GetExtensionName(file)) Then
    With ObjWord.Documents.Open(file.Path)
      ' Do Something... '
      .Close False
    End With: cnt = cnt + 1
  End If
  Next
  ObjWord.Quit: Set ObjWord = Nothing
End Sub

Dim fso, folder

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(fso.GetAbsolutePathName(".")) ' Current folder '
FileHandling(folder)
Set fso = Nothing