Dim m_wdApp As Word.Application
    Dim m_wdDatei As Word.Document
    Dim m_wdTabelle As Word.Table
 
  m_wdApp = New Word.Application
  m_wdApp.Visible = False
  m_wdDatei = m_wdApp.Documents.Add(Pfad & Vorlagenname)
 
  m_wdDatei.PrintOut(Copies:=Anzahl)
  m_wdDatei.Close(False)
  m_wdApp.Quit()