Hur infogar jag filsökväg och filnamn utan tillägg i Word-dokument?
Normalt kan vi infoga filnamnet eller filvägen och namnet i Word-dokumentet med hjälp av filnamnfältfunktionen, men detta infogade filnamn inklusive filtillägget docx eller doc. Hur kan du infoga filnamnet eller filvägen och namnet utan tillägg?
Infoga filsökväg och namn eller filnamn utan tillägg med hjälp av VBA-kod
Rekommenderade produktivitetsverktyg för Word
Kutools for Word: Integrering av AI 🤖, över 100 avancerade funktioner sparar 50 % av din dokumenthanteringstid.Gratis nedladdning
Office Tab: Introducerar webbläsarliknande flikar till Word (och andra Office-verktyg), vilket förenklar navigering i flera dokument.Gratis nedladdning
Infoga filsökväg och namn eller filnamn utan tillägg med hjälp av VBA-kod
För att infoga filnamnet utan tillägg i Word-dokument, använd följande VBA-kod:
1. Placera markören på en plats där du vill infoga filvägen och namnet utan tillägg.
2. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppna modulen.
VBA-kod: Infoga filsökväg och namn utan tillägg:
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. Tryck sedan på F5 nyckel för att köra den här koden och filsökvägen och namnet har infogats i dokumentet utan tillägg, se skärmdump:
Anmärkningar: Om du bara vill infoga filnamnet utan tillägg i dokumentet, bör du tillämpa den här koden:
VBA-kod: Infoga endast filnamn utan tillägg:
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
Bästa kontorsproduktivitetsverktyg
Kutools for Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...
✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...
🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...
⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...
🌍 Stöder 40+ språk: Använda sig av Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

Bästa kontorsproduktivitetsverktyg
Kutools for Word - 100+ verktyg för Word
- 🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk / Super Translate / AI-redaktion / AI korrekturläsning
- 📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Batchkonvertera till PDF
- ✏ Innehållsredigering: Batch Hitta och ersätt / Ändra storlek på alla bilder
- 🧹 Enkel rengöring: Ta bort extra utrymmen / Ta bort sektionsbrott
- ➕ Kreativa inlägg: Sätt i tusen avskiljare / Infoga kryssrutor / Skapa QR-koder
- 🌍 Stöder 40+ språk: Kutools talar ditt språk – stöds över 40 språk!