'Word Urlaubsantrag erstellen
If Me.chk3 = True Then
   Call Abwesenheitsanzeige_Word
End If
 
Sub Abwesenheitsanzeige_Word()
Dim xDoc As String, SU As String
 
Dim oWord As Word.Application
Dim oDoc As Word.Document
 
 
On Error GoTo Worddatei_Error
 
xDoc = ThisWorkbook.Path & "\100101_Abwesenheitsanzeige.dotm"
  If Dir(xDoc) <> "" Then
    Set oWord = New Word.Application
    Set oDoc = oWord.Documents.Add(Template:=xDoc)
    oWord.Visible = False
 
        oDoc.CustomDocumentProperties("1") = myUser.DStNrTec
        oDoc.CustomDocumentProperties("2") = myUser.DStNrTec
        oDoc.CustomDocumentProperties("3") = UserForm1.DTPicker1 & " - " & _
          UserForm1.DTPicker2
        oDoc.FormFields("txtName").Result = myUser.Nachname & ", " & _
        myUser.Vorname
 
    'show++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    oWord.Visible = True
    'oWord.Activate
    Set oWord = Nothing
   Else
     MsgBox "Das Dokument wurde nicht gefunden!"
   End If
    Set oWord = Nothing
    Set oDoc = Nothing
On Error GoTo 0
Exit Sub
 
Worddatei_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") im Makro Worddatei"
End Sub

'Callback for customButton2 onAction
Sub btn_1(control As IRibbonControl)
  Dim DocPfad As String
  Dim strBookmark As String
 
 
  DocPfad = Environ("temp") & "\Abwesenheitsanzeige.docm"
 
    ActiveDocument.AttachedTemplate.Saved = True
 
    ActiveDocument.SaveAs DocPfad, WdSaveFormat.wdFormatDocumentDefault
 
  ' Outlook Applikation
  Dim ool As Outlook.Application
  Dim oInspector As Outlook.Inspector
  Dim oMail As Outlook.MailItem
  Dim myattachments As Variant
 
 
  ' Verweis zu Outlook + neue Nachricht
  Set ool = CreateObject("Outlook.Application")
  Set oMail = ool.CreateItem(olMailItem)
  Set myattachments = oMail.Attachments
 
  ' Befreff-Zeile
  oMail.Subject = "Abwesenheitsanzeige"
 
  ' An-Zeile (Empfänger)
  '"txteMAilAn = TextFeld aus dem Doc
  oMail.To = "Empfänger1@xyz.de"
  'oMail.CC = "Empfänger2@xyz.de"
  oMail.CC = "Empfänger2@xyz.de"
  oMail.Display
 
  ' Texteingabe (Nachricht selbst)
  oMail.Body = "beantragter Zeitraum: " & ThisDocument.CustomDocumentProperties( _
    "Zeitraum") & Chr(13)  'Zeitraum
 
 
  ' Anhang
  myattachments.Add DocPfad
 
  ' Speicher freigeben
  Set ool = Nothing
  Set oInspector = Nothing
  Set oMail = Nothing
 
  Select Case Application.Documents.Count
    Case 1
        Application.Quit False
    Case Else
        'Da war noch was anderes auf, wir schließen nur den Urlaubsantrag
        ActiveDocument.Close False  
  End Select
 
End Sub