Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

 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:

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



Anbefalede Word-produktivitetsværktøjer

 

Kutools til 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-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ø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. ...

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.