Hallo,
ich habe ein Formular erstelt das nach dem ausfüllen:
1-eine Bezeichnung aus dem Formular bekommt >das hab ich
2-in einem bestimmten Verzeichnis gespeichert werden soll >das hab ich
3-als PDF Datei
4-die PDF darf sich nicht selbst öffnen
5-das Formular soll nach dem speichern wieder geleert werden
6-und das Formular geschlossen
Hintergrund es darf die erzeugte Datei nur an einem Ort geben.
Die ersten Punkte hab ich gefunden aber nun finde ich leider für die letzten 4 Punkte nichts.
Kann mir da wer helfen?
code
Private Sub CommandButton1_Click()
Dim dateiname As String, teil1 As String, teil2 As String
teil1 = ActiveDocument.SelectContentControlsByTitle("Name").Item(1).Range.Text
teil2 = ActiveDocument.SelectContentControlsByTitle("Datum").Item(1).Range.Text
dateiname = teil1 & "_" & teil2
With Dialogs(wdDialogFileSaveAs)
.Name = "H:\FaBe\Verbandbuch\" & dateiname
.Show
End With
End Sub
|