|
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
|