Megjegyzés: A webhely többi nyelvét a Google fordítja. Vissza az angol nyelvre
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

 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:

doc insert fájlnév 1 kiterjesztés nélkül

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



Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.

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.