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
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!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith...
✏ Golygu Cynnwys: Swp Dod o Hyd i 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 / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...
