Hallo Severus,
ich habe ein Problem mit dem Ordner anlegen. Und zwar möchte ich mit dem Button Email-Eingabe: Nach der Email-Eingabe sollte das Dokument im dem Ordner 99_Archiv gespeichert werden. Wenn dieser Ordner nicht vorhanden ist, sollte einen neuen angelegt werden. Das Dokument wird dann im diesem Ordner gespeichert.
Mit dem Ordner anlegen funktioniert bereits aber das Dokument wird nicht in diesem Ordner gespeichert sondern in Eigenen Dateien. Ich verstehe nicht.
Anbei der Auszug vom CommandButton1 und das Modul Archivieren.
Vielen Dank
Private Sub CommandButton1_Click()
.....
Dim Meldung, Titel, Stil, Antwort As String
Meldung = "Möchten Sie das Dokument speichern?"
Stil = vbYesNo + vbQuestion
Titel = "Abfrage"
Antwort = MsgBox(Meldung, Stil, Titel)
If Antwort = vbYes Then
Call Archivieren
Else
End If
......
End Sub
Modul 1
Public Sub Archivieren()
Dim MyPath As String
Dim strNewFolderName As String
strNewFolderName = "\99_Archiv"
MyPath = ActiveDocument.Path
If Len(Dir(MyPath & strNewFolderName, vbDirectory)) = 0 Then 'Suchen das 99_Archiv Ordner
MkDir (MyPath & strNewFolderName) ' Erstellen 99_Archiv Ordner
Else
End If
ChDir MyPath & strNewFolderName 'Öffnen 99_Archiv Ordner
ActiveDocument.SaveAs FileName:="ChangeManagement_" & Format(Date, "yyMMdd") & "_" & Format(Time, "hhmm") & ".docm"
End Sub
|