Hvordan indsættes filsti og filnavn uden udvidelse i Word-dokument?
Normalt kan vi indsætte filnavnet eller filstien og navnet i Word-dokumentet ved hjælp af filnavnfeltfunktionen, men dette indsatte filnavn inklusive filtypen docx eller doc. Hvordan kunne du indsætte filnavnet eller filstien og navnet uden udvidelse?
Indsæt filsti og navn eller filnavn uden udvidelse ved hjælp af VBA-kode
Indsæt filsti og navn eller filnavn uden udvidelse ved hjælp af VBA-kode
For at indsætte filnavnet uden udvidelse i Word-dokument skal du anvende følgende VBA-kode:
1. Sæt markøren til et sted, hvor du vil indsætte filstien og navnet uden udvidelse.
2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul.
VBA-kode: Indsæt filsti og navn uden udvidelse:
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. Tryk derefter på F5 nøgle til at køre denne kode, og filstien og navnet er indsat i dokumentet uden udvidelse, se skærmbillede:
Bemærk: Hvis du bare vil indsætte filnavnet uden udvidelse i dokumentet, skal du anvende denne kode:
VBA-kode: Indsæt kun filnavn uden udvidelse:
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
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold / Omskriv tekst / Opsummer dokumenter / Spørg for information baseret på Dokument, alt sammen i Word
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF / Eksporter sider som billeder / Udskriv flere filer på én gang...
✏ Indholdsredigering: Batch Find og erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Alle overskrifter / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...
➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Diagonal linjebord / Ligningstekst / Billede Caption / Tabeltekst / Flere billeder / Oplev mere i Indsæt gruppe...
???? Præcisionsvalg: Find ud af specifikke sider / tabeller / former / overskrifter / Forbedre navigation med mere Vælg funktioner...
⭐ Stjerneforbedringer: Naviger hurtigt til ethvert sted / automatisk indsæt gentagende tekst / skifte problemfrit mellem dokumentvinduer / 11 Konverteringsværktøjer...
