Attribute VB_Name = "P14_Chronik"
Sub DokumentInPROSOZ14Einbinden()
'Meldung wenn kein Dokument geöffnet ist
If Application.Windows.Count = 0 Then GoTo err_kein_dok

'Variablen definieren
Dim Arbeitspfad, Verzeichnispfad As String

'Aktuellen Arbeitsordner ermitteln
Arbeitspfad = CurDir


'PASSEN SIE HIER IHREN PFAD FÜR CHRONIKDOKUMENTE AN:
    Verzeichnispfad = "C:\Temp\"

    'ggf. abschließenden Backslash anhängen
    If Right$(Verzeichnispfad, 1) <> "\" Then Verzeichnispfad = Verzeichnispfad & "\"

'Aufforderung zum Speichern
einbinden = MsgBox("Wollen Sie dieses Dokument in PROSOZ 14plus an einen Chronikeintrag binden?", _
vbYesNo + vbQuestion, "Dokument in PROSOZ 14plus einbinden")

    'Antwort Nein beendet das Makro
    If einbinden <> vbYes Then Exit Sub

    'Antwort Ja speichert das Dokument
    
        'Verzeichnispfad einstellen
        ChangeFileOpenDirectory Verzeichnispfad
    
        'Dokument abspeichern
        ActiveDocument.SaveAs FileName:=Verzeichnispfad & "_Chronikdokument.doc"
        
        'Bei Fehlern nächster Schritt
        On Error Resume Next
            
'vorherigen Arbeitspfad wieder einstellen
ChangeFileOpenDirectory Arbeitspfad
    
'Dokument schließen
ActiveWindow.Close
    
Exit Sub

err_kein_dok:
'Fehlermeldung
MsgBox "Es ist kein Dokument geöffnet!", vbInformation, "Dokument in PROSOZ 14plus einbinden"

End Sub