Pääsisältö

Tutustu uuteen, ilmainen versio Kutools for Outlookista tänään!

Kuinka lisätä tiedostopolku ja tiedostonimi ilman tunnistetta Word-asiakirjaan?

Kirjailija: Xiaoyang Viimeksi muokattu: 2024-08-23

Normaalisti voimme lisätä tiedostonimen tai tiedostopolun ja nimen Word-asiakirjaan käyttämällä Tiedostonimi-kenttätoimintoa, mutta tämä lisätty tiedostonimi sisältää tiedostotunnisteen docx tai doc. Kuinka voit lisätä tiedostonimen tai tiedostopolun ja nimen ilman päätettä?

Lisää tiedostopolku ja nimi tai tiedostonimi ilman tunnistetta käyttämällä VBA-koodia

Wordin suositellut tuottavuustyökalut

Kutools for Word: Integroiva tekoäly 🤖, yli 100 lisäominaisuutta säästää 50 % asiakirjojen käsittelyajasta.Ilmainen lataus

Office-välilehti: Esittelee Wordin (ja muiden Office-työkalujen) selaimen kaltaiset välilehdet, mikä yksinkertaistaa useiden asiakirjojen navigointia.Ilmainen lataus

Lisää tiedostopolku ja nimi tai tiedostonimi ilman tunnistetta käyttämällä VBA-koodia

Jos haluat lisätä tiedostonimen ilman tunnistetta Word-asiakirjaan, käytä seuraavaa VBA-koodia:

1. Aseta kohdistin paikkaan, johon haluat lisätä tiedoston polun ja nimen ilman päätettä.

2. Pidä sitten painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

3. Ja sitten, napsauta liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin.

VBA-koodi: Lisää tiedostopolku ja nimi ilman tunnistetta:

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. Paina sitten F5 avain tämän koodin suorittamiseen ja tiedoston polku ja nimi on lisätty asiakirjaan ilman päätettä, katso kuvakaappaus:

Tiedoston polku ja nimi lisätään asiakirjaan ilman tunnistetta

Huomautuksia: Jos haluat vain lisätä tiedostonimen ilman päätettä asiakirjaan, sinun tulee käyttää tätä koodia:

VBA-koodi: Lisää vain tiedoston nimi ilman tunnistetta:

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

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

Ilmainen lataus Osta nyt Lue lisää Kutoolsista