Hoe voegt u het bestandspad en de bestandsnaam zonder extensie in een Word-document in?

Normaal gesproken kunt u de bestandsnaam of het bestandspad en de naam in het Word-document invoegen met behulp van de veldfunctie Bestandsnaam, maar deze ingevoegde bestandsnaam bevat de bestandsextensie (.docx of .doc). Hoe voegt u de bestandsnaam of het bestandspad en de naam zonder extensie in?

Voer Bestandspad en de naam of de bestandsnaam zonder extensie in met VBA-code

---

Voer Bestandspad en de naam of de bestandsnaam zonder extensie in met VBA-code

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

1. Plaats de cursor op de plek waar u het bestandspad en de bestandsnaam zonder extensie wilt invoegen.

2. Houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

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

VBA-code: Voer Bestandspad en de naam zonder extensie in:

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 toets F5 om deze code uit te voeren; het bestandspad en de naam zijn nu zonder extensie in het document ingevoegd, zie schermafbeelding:

Opmerking: Als u alleen de bestandsnaam zonder extensie in het document wilt invoegen, dient u deze code toe te passen:

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

---