Cum se introduce calea fișierului și numele fișierului fără extensie în documentul Word?
În mod normal, putem insera numele fișierului sau calea și numele fișierului în documentul Word utilizând funcția câmpului Numele fișierului, dar acest nume de fișier inserat, inclusiv extensia de fișier docx sau doc. Cum ați putea introduce numele fișierului sau calea fișierului și numele fără extensie?
Introduceți calea fișierului și numele sau numele fișierului fără extensie utilizând codul VBA
Introduceți calea fișierului și numele sau numele fișierului fără extensie utilizând codul VBA
Pentru a insera numele fișierului fără extensie în documentul Word, vă rugăm să aplicați următorul cod VBA:
1. Puneți cursorul într-un loc în care doriți să inserați calea și numele fișierului fără extensie.
2. Apoi, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
3. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis.
Cod VBA: introduceți calea și numele fișierului fără extensie:
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. Apoi apăsați F5 tasta pentru a rula acest cod și calea și numele fișierului au fost inserate în document fără extensie, consultați captura de ecran:
notițe: Dacă doriți doar să introduceți numele fișierului fără extensie în document, ar trebui să aplicați acest cod:
Cod VBA: introduceți numele fișierului numai fără extensie:
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
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...