Jak vložit cestu k souboru a název souboru bez přípony v dokumentu Word?

Za normálních okolností můžeme vložit název souboru nebo cestu a název souboru do dokumentu Word pomocí funkce pole Název souboru, ale tento vložený název souboru včetně přípony souboru docx nebo doc. Jak můžete vložit název souboru nebo cestu a název souboru bez přípony?

Vložte cestu a název souboru nebo název souboru bez přípony pomocí kódu VBA

Vložte cestu a název souboru nebo název souboru bez přípony pomocí kódu VBA

Chcete-li do dokumentu Wordu vložit název souboru bez přípony, použijte následující kód VBA:

1. Umístěte kurzor na místo, kam chcete vložit cestu a název souboru bez přípony.

2. Poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. A pak klikněte Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu.

Kód VBA: Vložte cestu a název souboru bez přípony:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a cesta a název souboru byly vloženy do dokumentu bez přípony, viz screenshot:

Poznámka: Pokud chcete do dokumentu pouze vložit název souboru bez přípony, měli byste použít tento kód:

Kód VBA: Vložte pouze název souboru bez přípony:

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

Doporučené nástroje produktivity slov