hab mir bisher so geholfen, wenn es einen Befehl gibt,
bitte mitteilen
********************************
Sub File_Name() '(Dateiname As String)
Dim oDoc As Document
Dim Länge_Dateiname_mit_Pfad As Integer
Dim Name_Pfad As String
Dim Länge_String As Integer
Dim Dateiname_mit_Pfad As String
Set oDoc = ThisApplication.ActiveDocument
Dateiname_mit_Pfad = oDoc.FullFileName
Länge_Dateiname_mit_Pfad = Len(Dateiname_mit_Pfad)
Dim Endung As Integer
Endung = 0 'mit .ipt usw.
'Endung = 4 ' ohne .ipt usw
Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - 4)
Länge_String = Len(Name_Pfad)
Dim i As Integer
i = 1
Do Until Mid(Name_Pfad, Länge_String - i, 1) = "\"
i = i + 1
Loop
Dateiname = Right(Name_Pfad, i - Endung)
Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - 4 - i)
MsgBox " FullFileName : " & oDoc.FullFileName _
& Chr(10) & "Dateiname : " & Dateiname _
& Chr(10) & "Pfad : " & Name_Pfad
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++
[Diese Nachricht wurde von VOSTA1 am 18. Aug. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP