Přejít k hlavnímu obsahu

 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

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations