Hogyan illesszük be a fájl elérési útját és fájlnevét kiterjesztés nélkül a Word dokumentumba?

Normál esetben a fájlnév vagy a fájl elérési útja és neve beilleszthető a Word dokumentumba a Fájlnév mező funkció használatával, de ez a beillesztett fájlnév a docx vagy doc kiterjesztést is tartalmazza. Hogyan illesztheti be a fájl nevét vagy a fájl elérési útját és nevét kiterjesztés nélkül?

Helyezze be a fájl elérési útját és nevét vagy fájlnevét kiterjesztés nélkül a VBA kód használatával

Helyezze be a fájl elérési útját és nevét vagy fájlnevét kiterjesztés nélkül a VBA kód használatával

A fájlnév kiterjesztés nélküli beszúrásához a Word dokumentumba kérjük, alkalmazza a következő VBA kódot:

1. Vigye a kurzort egy helyre, ahová kiterjesztés nélkül be akarja illeszteni a fájl elérési útját és nevét.

2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba.

VBA kód: Helyezze be a fájl elérési útját és nevét kiterjesztés nélkül:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a fájl elérési útját és nevét kiterjesztés nélkül illesztették be a dokumentumba, lásd a képernyőképet:

Megjegyzések: Ha csak kiterjesztés nélkül szeretné beilleszteni a fájl nevét a dokumentumba, akkor alkalmazza ezt a kódot:

VBA kód: Csak fájlnév beillesztése kiterjesztés nélkül:

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

Ajánlott Word-termelékenységi eszközök