Nota: le altre lingue del sito web sono tradotte da Google. Torniamo all'inglese
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

 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


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 > Modulo, 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:

doc inserire il nome del file senza estensione 1

Osservazioni:: 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



Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

  • Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
  • Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
  • Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
  • Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...

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.