Sut i fewnosod llwybr ffeil ac enw ffeil heb ei estyn yn nogfen Word?
Fel rheol, gallwn fewnosod enw'r ffeil neu'r llwybr ffeil a'r enw yn y ddogfen Word trwy ddefnyddio swyddogaeth maes Enw Ffeil, ond, mewnosododd yr enw ffeil hwn gan gynnwys docx estyniad y ffeil neu'r doc. Sut allech chi fewnosod enw'r ffeil neu'r llwybr ffeil a'r enw heb estyniad?
Mewnosod llwybr ffeil ac enw neu enw ffeil heb estyniad trwy ddefnyddio cod VBA
Offer Cynhyrchedd a Argymhellir ar gyfer Word
Kutools am Word: Integreiddio AI 🤖, mae dros 100 o nodweddion uwch yn arbed 50% o'ch amser trin dogfennau.Lawrlwythiad Am Ddim
Tab Swyddfa: Yn cyflwyno'r tabiau tebyg i borwr i Word (ac offer Office eraill), gan symleiddio llywio aml-ddogfen.Lawrlwythiad Am Ddim
Mewnosod llwybr ffeil ac enw neu enw ffeil heb estyniad trwy ddefnyddio cod VBA
I fewnosod enw'r ffeil heb ei estyn yn nogfen Word, cymhwyswch y cod VBA canlynol:
1. Rhowch y cyrchwr i fan lle rydych chi am fewnosod llwybr ac enw'r ffeil heb ei estyn.
2. Yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored.
Cod VBA: Mewnosod llwybr ac enw ffeil heb estyniad:
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. Yna pwyswch F5 allwedd i redeg y cod hwn ac mae'r llwybr a'r enw ffeil wedi'i fewnosod yn y ddogfen heb ei estyn, gweler y screenshot:
Nodyn: Os ydych chi am fewnosod enw'r ffeil heb ei estyn yn y ddogfen, dylech gymhwyso'r cod hwn:
Cod VBA: Mewnosodwch enw ffeil yn unig heb estyniad:
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
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...
✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...
🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...
🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...
⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - 100+ Offer ar gyfer Word
- 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
- 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
- ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
- 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
- ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR