Come inserire il percorso del file e il nome del file senza estensione in un documento Word?

Normalmente, possiamo inserire il nome del file o Percorso file e il nome nel documento Word utilizzando la funzione di campo Nome file, ma il nome inserito include l’estensione del file, ad esempio docx o doc. Come si può inserire il nome del file o Percorso file e il nome senza estensione?

Inserisci Percorso file e il nome o il nome del file senza estensione utilizzando il codice VBA

---

Inserisci Percorso file e il nome o il nome del file senza estensione utilizzando il codice VBA

Per inserire il nome del file senza estensione in un documento Word, applica il seguente codice VBA:

1. Posiziona il cursore nel punto in cui desideri inserire il percorso del file e il nome senza estensione.

2. Quindi, tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Successivamente, fai clic su Inserisci > Modulo, quindi copia e incolla il codice seguente nel modulo vuoto aperto.

Codice VBA: Inserisci Percorso file e il nome senza estensione:

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. Premi quindi il tasto F5 per eseguire questo codice: il percorso del file e il nome verranno inseriti nel documento senza l’estensione. Vedi screenshot:

Nota: se desideri soltanto inserire il nome del file senza estensione nel documento, devi applicare questo codice:

Codice VBA: Inserisci solo il nome del file senza estensione:

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

---