Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe voeg je het bestandspad en de bestandsnaam zonder extensie in een Word-document in?

Author Xiaoyang Last modified

Normaal gesproken kunnen we de bestandsnaam of het bestandspad en naam in een Word-document invoegen door gebruik te maken van de functie 'Bestandsnaam-veld'. Maar, deze ingevoegde bestandsnaam bevat ook de bestandsextensie docx of doc. Hoe kun je de bestandsnaam of het bestandspad en naam zonder extensie invoegen?

Bestandspad en naam of bestandsnaam zonder extensie invoegen met behulp van VBA-code

Aanbevolen productiviteitstools voor Word

Kutools voor Word: Combineert AI 🤖, met meer dan 100 geavanceerde functies bespaart 50% van uw documentverwerkings tijd.Vrije download

Office Tab: Voegt browser-achtige tabbladen toe aan Word (en andere Office tools), waardoor het navigeren tussen meerdere documenten eenvoudiger wordt.Vrije download

Bestandspad en naam of bestandsnaam zonder extensie invoegen met behulp van VBA-code

Om de bestandsnaam zonder extensie in een Word-document in te voegen, pas dan de volgende VBA-code toe:

1. Plaats de cursor op de plek waar je het bestandspad en de naam zonder extensie wilt invoegen.

2. Druk vervolgens tegelijkertijd op de toetsen ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik daarna op Invoegen > Module, kopieer en plak de onderstaande code in de geopende lege module.

VBA-code: Bestandspad en naam zonder extensie invoegen:

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. Druk vervolgens op de F5-toets om deze code uit te voeren en het bestandspad en de naam zijn zonder extensie in het document ingevoegd, zie screenshot:

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

Opmerking: Als je alleen de bestandsnaam zonder extensie in het document wilt invoegen, moet je deze code gebruiken:

VBA-code: Alleen bestandsnaam zonder extensie invoegen:

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-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools