Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

 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:

doc Dateinamen ohne Erweiterung einfügen 1

Hinweis: 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



Empfohlene Word-Produktivitätswerkzeuge

 

Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.