Conas cosán comhaid agus ainm comhaid a chur isteach gan síneadh i ndoiciméad Word?
De ghnáth, is féidir linn ainm an chomhaid nó cosán agus ainm an chomhaid a chur isteach sa doiciméad Word trí fheidhm réimse Ainm an Chomhaid a úsáid, ach, chuir an t-ainm comhaid seo isteach lena n-áirítear an docx síneadh comhaid nó doc. Conas a d’fhéadfá ainm an chomhaid nó cosán agus ainm an chomhaid a chur isteach gan síneadh?
Cuir isteach cosán comhaid agus ainm nó ainm comhaid gan síneadh trí chód VBA a úsáid
Cuir isteach cosán comhaid agus ainm nó ainm comhaid gan síneadh trí chód VBA a úsáid
Chun ainm an chomhaid a chur isteach gan síneadh sa doiciméad Word, cuir an cód VBA seo a leanas i bhfeidhm:
1. Cuir an cúrsóir chuig áit inar mian leat cosán agus ainm an chomhaid a chur isteach gan síneadh.
2. Ansin, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte.
Cód VBA: Cuir isteach cosán agus ainm an chomhaid gan síneadh:
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. Ansin brúigh F5 eochair chun an cód seo a rith agus tá cosán agus ainm an chomhaid curtha isteach sa doiciméad gan síneadh, féach an scáileán:
nótaí: Mura dteastaíonn uait ach ainm an chomhaid a chur isteach gan síneadh sa doiciméad, ba cheart duit an cód seo a chur i bhfeidhm:
Cód VBA: Cuir isteach ainm comhaid gan síneadh:
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
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...