Hoe bestandspad en bestandsnaam zonder extensie in Word-document invoegen?
Normaal gesproken kunnen we de bestandsnaam of het bestandspad en de naam in het Word-document invoegen met behulp van de veldfunctie Bestandsnaam, maar deze ingevoegde bestandsnaam inclusief de bestandsextensie docx of doc. Hoe kunt u de bestandsnaam of het bestandspad en de naam zonder extensie invoegen?
Voeg bestandspad en naam of bestandsnaam zonder extensie in met behulp van VBA-code
Voeg bestandspad en naam of bestandsnaam zonder extensie in met behulp van VBA-code
Om de bestandsnaam zonder extensie in een Word-document in te voegen, past u de volgende VBA-code toe:
1. Zet de cursor op een plaats waar u het bestandspad en de naam zonder extensie wilt invoegen.
2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module.
VBA-code: voeg bestandspad en naam in zonder extensie:
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 F5 sleutel om deze code uit te voeren en het bestandspad en de naam zijn zonder extensie in het document ingevoegd, zie screenshot:
Note: Als u alleen de bestandsnaam zonder extensie in het document wilt invoegen, moet u deze code toepassen:
VBA-code: voeg de bestandsnaam alleen in zonder extensie:
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 - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...