Hallo,
vielen Dank, dass mit Strg +6 hat wunderbar geklappt, jetzt hab ich den Befehl in den code zu meinem Button eingefügt, jetzt kann ich die Verknüpfungen löschen und die Datei unter dem Namen Angebot speichern, jetzt hätte ich noch eine Bitte, ist es möglich den Code so zu schreiben, dass das Dokument nicht gleich gespeichert wird sondern den Anwender fragt wo und unter welchem Namen soll die Datei gespeichert werden?
Danke
Gunter
Private Sub CommandButton1_Click()
'
' speichern Makro
'
'
Selection.WholeStory
Selection.Fields.Unlink
ChangeFileOpenDirectory _
"G:\SV\Angebote_Revisionen_Montagepläne_Preislisten\Revisionen\Angebotsvorlagen\fertige_Angebote\"
ActiveDocument.SaveAs FileName:= _
"G:\SV\Angebote_Revisionen_Montagepläne_Preislisten\Revisionen\Angebotsvorlagen\fertige_Angebote\Angebot.docm" _
, FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub