Hallo Rainer,
sobald man mehrere Operationen auf etwas anwenden muss, ist es oftmals notwendig die Daten in einer Variable zwischenzuspeichern und auf diese die Operationen anzuwenden.
Dim strName As String
strName = ActiveDocument.Name
'Dateierweiterung entfernen (der Teil nach dem ersten Punkt von Rechts betrachtet, ...: (Rev)erse)
If InStrRev(strName, ".") > 0 Then strName = Left$(strName, InStrRev(strName, ".") - 1)
'Alle Zeichen nach dem ersten Unterstrich entfernen (von Links aus betrachtet)
If InStr(1, strName, "_") > 0 Then strName = Left$(strName, InStr(1, strName, "_") - 1)
'Alle "." durch "/" ersetzt
strName = Replace$(strName, ".", "/")
'Ins Dokument einfügen (beim Textcursor)
Selection.InsertBefore Text:=strName
|