Wie fügt man den Dateipfad und den Dateinamen ohne Erweiterung in ein Word-Dokument ein?

Normalerweise können Sie den Dateinamen oder Dateipfad sowie den Dokumentnamen mithilfe der Feldfunktion „Dateiname“ in Word einfügen – doch dieser enthält standardmäßig die Dateierweiterung „.docx“ oder „.doc“. Wie fügen Sie den Dateinamen bzw. den Pfad und Namen ohne Dateierweiterung ein?

Einfügen des Dateipfads und Namens bzw. des Dateinamens ohne Erweiterung mithilfe eines VBA-Codes

---

Einfügen des Dateipfads und -namens bzw. des Dateinamens ohne Erweiterung mithilfe eines VBA-Codes

Um den Dateinamen ohne Erweiterung in ein Word-Dokument einzufügen, wenden Sie bitte den folgenden VBA-Code an:

1. Setzen Sie den Cursor an die Stelle, an der Sie den Dateipfad und den Dateinamen ohne Erweiterung einfügen möchten.

2. Halten Sie anschließend die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

3. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete leere Modul ein.

VBA-Code: Dateipfad und Name ohne Erweiterung einfügen:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Danach werden Dateipfad und Dateiname ohne Erweiterung in das Dokument eingefügt (siehe Screenshot):

Hinweis: Wenn Sie lediglich den Dateinamen ohne Erweiterung in das Dokument einfügen möchten, verwenden Sie bitte diesen Code:

VBA-Code: Nur den Dateinamen ohne Erweiterung einfügen:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

---