Hallo,

in meine Word-Daokumente möchte ich per Macro an der Cursor-Position den Dateinamen einblenden, die Dateiendung (stets: .docm) soll jedoch nicht erscheinen. Ich habe folgenden Code gefunden, der gut funktioniert:

Sub InsertFileName()
    Selection.InsertBefore Text:=Left(ActiveDocument.Name, _
      Len(ActiveDocument.Name) - 5)
End Sub

Ich scheitere jedoch daran, den Code zu ergänzen. Ich möchte erreichen, dass der angezeigte Dateiname (über das Wegfiltern der Dateiendung hinaus) automatisch weiter bearbeitet wird:

1. Wenn der Dateiname zumindest einen Unterstrich enthält, sollen alle Zeichen von dem ersten Unterstrich an (einschließlich des Unterstrichs) ausgeblendet werden

und

2. Alle verbleibenden Zeichen "." durch ein "/" ersetzt werden.

Danke & Gruß

Rainer Groth