Ich habe ein Formular, wo per Makro aus einem (oder mehreren) Textfeld(ern) gleich beim abspeichern der Dateiname erzeugt wird.
Der Code lautet:
Sub FileSave()
If ActiveDocument.Path = "" Then 'Falls Dokument noch nie gespeichert wurde
FileSaveAs
Exit Sub
End If
ActiveDocument.Save
End Sub
Sub FileSaveAs()
With Dialogs(wdDialogFileSaveAs) 'Beispiel: 2008_01_28_KO_4220_102360_Toner PC75A.doc
.Name = ActiveDocument.FormFields("datum").Result & "_KO_" & _
ActiveDocument.FormFields("werk").Result & "_" & _
ActiveDocument.FormFields("lieferant").Result & "_" & _
ActiveDocument.FormFields("artikel").Result
.Show
End With
End Sub
Funktioniert auch wunderbar, solange nicht bestimmte Zeichen ("/", "\" , "",...) in diesen Formularfeldern vorkommen - wird mir natürlich nicht als Dateiname akzeptiert.
Wie kann ich jetzt per VB diese "Sonderzeichen" in ein "_" umwandeln, damit das Dokument ohne Fehler abgespeichert werden kann??
Vielen Dank schon mal für Eure Hilfe
