Hello, here is a sample of the code inide of form, except dir$ which is in AutoNew Module as Public 
     'In module AutoNew Public dir$ and then in Sub Main() dir$ = Options.DefaultFilePath(wdWorkgroupTemplatesPath) 

'----------------------------------------------
'Form code
'----------------------------------------------
Dim SeznamVitInv(8)

Private Sub lstObecnei_Click()
   Documents.Add Template:=dir$ + "\" + SeznamVitInv(lstObecnei.ListIndex)
End Sub

Private Sub UserForm_Activate()
   With frmVIIN
     With .lstObecnei
      .AddItem "Soubor pojistných podmínek Vital Invest ze dne 22.4.2015 .......................................................KPPVIN27"
      .AddItem "Informace pro zájemce o pojištění Vital Invest ze dne 22.4.2015 ..................................................KPPVIPI4"
      .AddItem "Věrnostní bonus ..........................................................................................................KPVERBON"
      .AddItem "Finanční dotazník .........................................................................................................KPFINDOT"
      .AddItem "Doplňující informace k pojistným produktům obsahujícím investiční složku .......................................IPZI"
      .AddItem "Dodatečné informace k fondu KB Privátní správa aktiv 4 Popular..................................................KPVIIPSA"
      .AddItem "Prohlášení klienta vztahující se k fondům v rámci svého investičního životního pojištění .......................KPINV65L"
      .AddItem "Dodatečné informace k fondu KB PSA 5D - Popular A ...............................................................KPPVIP5A"
      .ListIndex = -1
    End With

    SeznamVitInv(0) = "kppvin27.dot"
    SeznamVitInv(1) = "kppvipi4.dot"
    SeznamVitInv(2) = "kpverbon.dot"
    SeznamVitInv(3) = "kpfindot.dot"
    SeznamVitInv(4) = "IPZI.dot"
    SeznamVitInv(5) = "kpviipsa.dot"
    SeznamVitInv(6) = "kpinv65l.dot"
    SeznamVitInv(7) = "KPPVIP5A.dot"
  End With
End Sub