Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

 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:

doc vložte název souboru bez přípony 1

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

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.