Come inserire il percorso e il nome del file senza estensione nel documento di Word?
Normalmente, possiamo inserire il nome del file o il percorso e il nome del file nel documento di Word utilizzando la funzione del campo Nome file, ma questo nome file inserito include l'estensione file docx o doc. Come potresti inserire il nome del file o il percorso e il nome del file senza estensione?
Inserisci il percorso e il nome del file o il nome del file senza estensione utilizzando il codice VBA
Per inserire il nome del file senza estensione nel documento di Word, applica il seguente codice VBA:
1. Posiziona il cursore in un punto in cui desideri inserire il percorso e il nome del file senza estensione.
2. Quindi, tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Quindi fare clic su inserire > Moduli, copia e incolla sotto il codice nel modulo vuoto aperto.
Codice VBA: inserisci il percorso e il nome del file 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. Quindi premere F5 chiave per eseguire questo codice e il percorso e il nome del file sono stati inseriti nel documento senza estensione, vedi screenshot:
Note:: Se vuoi solo inserire il nome del file senza estensione nel documento, dovresti applicare questo codice:
Codice VBA: inserire 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 - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...