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 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?
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:
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 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
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!