Gå til hovedindhold

 Sådan indsætter du filsti og filnavn uden filtypenavn Word dokumentere?

Normalt kan vi indsætte filnavnet eller filstien og navnet i Word dokument ved at bruge feltfunktionen Filnavn, men dette indsatte filnavn inklusive filtypenavnet docx eller doc. Hvordan kunne du indsætte filnavnet eller filstien og navnet uden filtypenavn?

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 filtypenavn 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:

doc indsæt filnavn uden udvidelse 1

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


Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
  • Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations