Skip to main content

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

Author: Xiaoyang Last Modified: 2025-08-06

Normalmente, possiamo inserire il nome del file o il percorso e il nome del file in un Documento Word utilizzando la funzione Campo Nome del file, ma questo nome del file inserito include l'estensione docx o doc. Come potresti inserire il nome del file o il percorso e il nome del file senza estensione?

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

Strumenti di produttività consigliati per Word

Kutools per Word: Integrando l'IA 🤖, oltre 100 funzionalità avanzate ti fanno risparmiare il 50% del tempo dedicato alla gestione dei documenti.Download gratuito

Office Tab: Introduce le schede simili a quelle del browser in Word (e in altri strumenti Office), semplificando la navigazione tra più documenti.Download gratuito

Inserisci il percorso del 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. Successivamente, tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Quindi, fai clic su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto aperto.

Codice VBA: Inserisci il percorso del 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 e il percorso del file e il nome sono stati inseriti nel documento senza estensione, vedi screenshot:

The file path and name are inserted into the document without extension

Nota: Se vuoi solo inserire il nome del file senza estensione nel documento, dovresti 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

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools