Hvordan indsættes filsti og filnavn uden udvidelse i Word-dokument?

Normalt kan vi indsætte filnavnet eller filstien og navnet i Word-dokumentet ved hjælp af filnavnfeltfunktionen, men dette indsatte filnavn inklusive filtypen docx eller doc. Hvordan kunne du indsætte filnavnet eller filstien og navnet uden udvidelse?

Indsæt filsti og navn eller filnavn uden udvidelse ved hjælp af VBA-kode

Indsæt filsti og navn eller filnavn uden udvidelse ved hjælp af VBA-kode

For at indsætte filnavnet uden udvidelse i Word-dokument skal du anvende følgende VBA-kode:

1. Sæt markøren til et sted, hvor du vil indsætte filstien og navnet uden udvidelse.

2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul.

VBA-kode: Indsæt filsti og navn uden udvidelse:

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. Tryk derefter på F5 nøgle til at køre denne kode, og filstien og navnet er indsat i dokumentet uden udvidelse, se skærmbillede:

Bemærk: Hvis du bare vil indsætte filnavnet uden udvidelse i dokumentet, skal du anvende denne kode:

VBA-kode: Indsæt kun filnavn uden udvidelse:

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

Anbefalede Word-produktivitetsværktøjer