Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie fügt man Pfad und Dateiname ohne Erweiterung in ein Word-Dokument ein?

Author Xiaoyang Last modified

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 Dokumentbearbeitungszeit. Kostenloser Download

Office Tab: Einführung von browserähnlichen Tabs in Word (und andere Office-Tools), die die Navigation zwischen mehreren Dokumenten vereinfachen. Kostenloser Download

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:

The file path and name are inserted into the document without extension

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 for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

Die besten Produktivitätstools für das Büro

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools