Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

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

Author Xiaoyang Last modified

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 risparmiano 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 for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!

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

📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...

Modifica del Testo: Trova e Sostituisci in batch su più file / Ridimensiona tutte le Immagini / Trasponi Righe e Colonne della Tabella / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...

Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...

Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

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

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!

Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint

📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività

I migliori strumenti per la produttività in ufficio

Kutools for Word - 100+ strumenti per Word