VBA-Prog

[gordon freeman]

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

[Robert_G]

Mal aus dem Bauch raus:

Delphi-Quellcode:

Dim FileName As String
...
  ActiveDocument.Range(0, 0).Select
  Selection.EndKey Unit:=wdLine, Extend:=wdExtend
  FileName = Trim(Selection.Text)
  FileName = Mid(FileName, 1, 16)

[gordon freeman]

Sieht jetzt so aus:

Code:

Selection.Paste

'___Dateiname festlegen___'
Selection.MoveUp Unit:=wdScreen, Count:=100
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

FileName = Trim(Selection.Text)
FileName = Mid(FileName, 1, 16)


ChangeFileOpenDirectory "C:\martin\HTML\"
    ActiveDocument.SaveAs FileName, FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

        ActiveWindow.Close

Selber Fehler - leider

Vileicht so ähnlich:

Code:

ActiveDocument.SaveAs FileName = Filename + ".doc", FileFormat:=wdFormatHTML

Funzt aber auch nicht. Hier sagt er, die Typen seien unverträglich....
Kann es sein, das es für Pfadangabe einen eigenen Variablentyp gibt?

cu gordon