Hi Leute,
Ich hab hier 'nen Ausschnitt aus 'nem Code von einem VBA-Makro:
Code:
(...)
If c = 0 Then
Selection.Cut
Documents.Add Template:="", NewTemplate:=False, DocumentType:=1
Selection.Paste
'___Dateiname festlegen___'
Selection.MoveUp
Unit:=wdScreen, Count:=100
Selection.EndKey
Unit:=wdLine, Extend:=wdExtend
E = Selection.Text
ChangeFileOpenDirectory "C:\martin\
HTML\"
ActiveDocument.SaveAs FileName:=E + ".htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.Close
(...)
Das Makro soll die Eingefügte Datei unter dem Namen ihrer ersten Zeile abspeichern. Wenn ich das Makro starte kommt aber immer folgender Fehler:
Code:
Laufzeitfehler '5460':
Ein Dateifehler ist aufgetreten.
Versuchen sie folgende optionen:
+Überprüfen sie, ob die Diskette korrekt eingelegt ist
+Überprüfen sie die Diskette oder das Laufwerk auf eventuelle Hardware-Fehler
+Überprüfen sie die Netzwerkverbindung
Das Problem ist, das ich das Dokument auf dem Rechner auf C:\ speichern Will. Also nix mit diskette oder Netzwerk. Wenn ich für E einen konkreten String angebe funzt es auch, aber wie kann ich es schaffen, dass die Datei mit dem Namen ihrer ersten Zeile gespeichert wird???
bua, tia, cu gordon