Wie füge ich einen Dateipfad und einen Dateinamen ohne Erweiterung in ein Word-Dokument ein?
Normalerweise können wir den Dateinamen oder den Dateipfad und den Namen mithilfe der Feldfunktion Dateiname in das Word-Dokument einfügen. Dieser eingefügte Dateiname enthält jedoch die Dateierweiterung docx oder doc. Wie können Sie den Dateinamen oder den Dateipfad und den Namen ohne Erweiterung einfügen?
Fügen Sie den Dateipfad und den Namen oder Dateinamen ohne Erweiterung mithilfe von VBA-Code ein
Fügen Sie den Dateipfad und den Namen oder Dateinamen ohne Erweiterung mithilfe von VBA-Code ein
Wenden Sie den folgenden VBA-Code an, um den Dateinamen ohne Erweiterung in das Word-Dokument einzufügen:
1. Stellen Sie den Cursor an eine Stelle, an der Sie den Dateipfad und den Namen ohne Erweiterung einfügen möchten.
2. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein.
VBA-Code: Dateipfad und Namen 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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes und der Dateipfad und -name wurde ohne Erweiterung in das Dokument eingefügt, siehe Screenshot:
Note: Wenn Sie nur den Dateinamen ohne Erweiterung in das Dokument einfügen möchten, sollten Sie diesen Code anwenden:
VBA-Code: Dateinamen nur 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
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...
