Hallo Matze,
das was du hier versuchst führt zu nichts. Bereits der Code enthält schon Fehler (Zeile 2) und ich bin mir nicht ganz sicher, ob du ein Dokument aktivieren kannst, ohne es zu öffnen. Aber das tut hier jetzt nichts zu Sache...
selectedPath ist als String definiert, wenn ich das richtig sehe. Wieso nimmst du nicht einfach den String, splittest ihn, fügst das gewünschte ein und führst in dann wieder zusammen? Befehl hierfür wäre dann
Dim NewStrings As Variant
Dim NewPath As String
Dim selectedPath As String
Dim Name As String
selectedPath = ActiveDocument.Path
Name = ActiveDocument.Name
'Trennbedingung laut deinem Plan wäre dann "2."
NewStrings = Split(selectedPath & "\" & Name, "Trennbedingung")
'NewStrings(0) sollte den Pfad mit Dateiname enthalten
'NewStrings (1) ist die Dateiendung (also doc oder docx)
'Zusammen dann Dateipfad.docx)
NewPath = NewStrings(0) & "." & NewStrings(1)
Hoffe ich konnte die weiterhelfen.
Gruß Ben
|