Salt la conținutul principal

 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:

doc inserați numele fișierului fără extensie 1

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!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  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 eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera 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 grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Î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 ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations