Wie fügt man Pfad und Dateiname ohne Erweiterung in ein Word-Dokument ein?
Normalerweise können wir den Dateinamen oder den Dateipfad und Namen in einem Word-Dokument mithilfe der Feldfunktion „Dateiname“ einfügen, aber dieser eingefügte Dateiname enthält die Dateiendung docx oder doc. Wie könnte man den Dateinamen oder den Dateipfad und Namen ohne Endung einfügen?
Einfügen von Dateipfad und Name oder Dateiname ohne Erweiterung mithilfe von VBA-Code
Empfohlene Produktivitätstools für Word
Kutools für Word: Integration von KI 🤖, über 100 erweiterte Funktionen sparen 50 % Ihrer Dokumentenbearbeitungszeit. Kostenlos herunterladen
Office Tab: Führt browserähnliche Tabs in Word (und anderen Office-Tools) ein und vereinfacht die Navigation zwischen mehreren Dokumenten. Kostenlos herunterladen
Einfügen von Dateipfad und Name oder Dateiname ohne Erweiterung mithilfe von VBA-Code
Um den Dateinamen ohne Erweiterung in ein Word-Dokument einzufügen, wenden Sie bitte den folgenden VBA-Code an:
1. Platzieren Sie den Cursor an die Stelle, an der Sie den Dateipfad und Namen ohne Erweiterung einfügen möchten.
2. Drücken Sie dann die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den unten stehenden Code und fügen Sie ihn 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 dann die F5-Taste, um diesen Code auszuführen, und der Dateipfad und Name wurden ohne Erweiterung in das Dokument eingefügt, siehe Screenshot:
Hinweis: Wenn Sie nur den Dateinamen ohne Erweiterung in das Dokument einfügen möchten, sollten Sie diesen Code verwenden:
VBA-Code: Nur 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
Die besten Produktivitätstools für das Büro
Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...
🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...
🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...
⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Die besten Produktivitätstools für das Büro
Kutools für Word – 100+ Werkzeuge für Word
- 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!