VBA-Prog

[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