Kako v Wordov dokument vstaviti pot do datoteke in ime datoteke brez končnice?

Običajno lahko v datoteko Word vstavimo ime datoteke ali pot in ime datoteke s funkcijo polja Ime datoteke, vendar to vstavljeno ime datoteke vključuje razširitev datoteke docx ali doc. Kako lahko vstavite ime datoteke ali pot in ime datoteke brez končnice?

Vstavite pot do datoteke in ime ali ime datoteke brez končnice s kodo VBA

---

Vstavite pot do datoteke in ime ali ime datoteke brez končnice s kodo VBA

Če želite v datoteko Word vstaviti ime datoteke brez pripone, uporabite naslednjo kodo VBA:

1. Kazalec postavite na mesto, kamor želite vstaviti pot in ime datoteke brez končnice.

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul.

Koda VBA: Vstavite pot in ime datoteke brez pripone:

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. Nato pritisnite F5 ključ za zagon te kode in pot do datoteke sta bila vstavljena v dokument brez končnice, glejte posnetek zaslona:

Opombe: Če želite v dokument samo vstaviti ime datoteke brez pripone, uporabite to kodo:

Koda VBA: Vstavite samo ime datoteke brez pripone:

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

---