Symbol Makro zuweisen
12.06.2006 13:34:27
Martin
ich habe in Excel ein neues Symbol erstellt in der Symbolleiste und dort ein Makro hinterlegt. Das gleiche wollte ich nun in Word erstellen, was mir aber leider nicht gelungen ist. Ein Symbol mit Makro habe ich erstellt, aber nun passt ihm wohl was am Makro selbst nicht, welches in Excel tadellos funktionierte. Das Makro ist Folgendes:
Sub DateiSichernaufLaufwerkN()
Dim Datei1 As String, Datei3 As String
If ActiveWorkbook.Saved = False Then
'Originaldatei wurde noch nicht gespeichert!
ActiveWorkbook.Save
End If
Datei1 = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
'Name Originaldatei
'Ersetzen des Laufwerknamens durch "N"
Datei3 = "N:\COST" & Mid(Datei1, 3)
'Prüfung, ob Verzeichnis auf Laufwerk "N" angelegt ist
If Dir("N:\COST" & Mid(ActiveWorkbook.Path, 3), vbDirectory) = "" Then
MsgBox ("Das Verzeichnis existiert im Laufwerk 'N' noch nicht." & vbCrLf _
& "Bitte Verzeichnis N" & Mid(ActiveWorkbook.Path, 3) & _
" vor dem Sichern der Datei anlegen!")
Exit Sub
End If
' Sicherungkopie erstellen
ActiveWorkbook.SaveAs Filename:=Datei3 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'gesicherte Datei schließen
ActiveWorkbook.Close
'Originaldatei wieder öffnen
Workbooks.Open Filename:=Datei1
End Sub
Vielleicht kann mir einer dabei helfen. Vielen Dank schon mal im Voraus!
Martin