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

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:

doc infoga filnamn utan tillägg 1

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