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
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / 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ámahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ 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 Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ 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...