Hogyan illesszük be a fájl elérési útját és fájlnevét kiterjesztés nélkül a Word dokumentumba?
Normál esetben a fájlnév vagy a fájl elérési útja és neve beilleszthető a Word dokumentumba a Fájlnév mező funkció használatával, de ez a beillesztett fájlnév a docx vagy doc kiterjesztést is tartalmazza. Hogyan illesztheti be a fájl nevét vagy a fájl elérési útját és nevét kiterjesztés nélkül?
Helyezze be a fájl elérési útját és nevét vagy fájlnevét kiterjesztés nélkül a VBA kód használatával
Helyezze be a fájl elérési útját és nevét vagy fájlnevét kiterjesztés nélkül a VBA kód használatával
A fájlnév kiterjesztés nélküli beszúrásához a Word dokumentumba kérjük, alkalmazza a következő VBA kódot:
1. Vigye a kurzort egy helyre, ahová kiterjesztés nélkül be akarja illeszteni a fájl elérési útját és nevét.
2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba.
VBA kód: Helyezze be a fájl elérési útját és nevét kiterjesztés nélkül:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a fájl elérési útját és nevét kiterjesztés nélkül illesztették be a dokumentumba, lásd a képernyőképet:
Megjegyzések: Ha csak kiterjesztés nélkül szeretné beilleszteni a fájl nevét a dokumentumba, akkor alkalmazza ezt a kódot:
VBA kód: Csak fájlnév beillesztése kiterjesztés nélkül:
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
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...