Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

 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



Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.