Ինչպե՞ս տեղադրել Word- ի փաստաթղթում առանց ընդլայնման ֆայլի ուղին և ֆայլի անունը:
Սովորաբար, մենք կարող ենք ֆայլի անունը կամ ֆայլի ուղին և անունը տեղադրել Word փաստաթղթում ՝ օգտագործելով Filename դաշտի գործառույթը, բայց այս ֆայլի անունը տեղադրված է ՝ ներառյալ ֆայլի ընդլայնման docx կամ doc: Ինչպե՞ս կարող եք տեղադրել ֆայլի անունը կամ ֆայլի ուղին և անունն առանց ընդլայնման:
Տեղադրեք ֆայլի ուղին և անունը կամ ֆայլի անունը առանց ընդլայնման ՝ օգտագործելով VBA կոդ
Տեղադրեք ֆայլի ուղին և անունը կամ ֆայլի անունը առանց ընդլայնման ՝ օգտագործելով VBA կոդ
Word փաստաթղթում առանց ընդլայնման ֆայլի անունը տեղադրելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը.
1, Կուրսորը դրեք մի վայր, որտեղ ցանկանում եք տեղադրել ֆայլի ուղին և անունը ՝ առանց ընդլայնման:
2, Ապա, պահեք պահումը ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ:
VBA կոդ. Տեղադրեք ֆայլի ուղին և անունը առանց ընդլայնման.
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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու համար ստեղնը, և ֆայլի ուղին և անունը տեղադրվել են փաստաթղթում առանց ընդլայնման, տես նկարի նկարը.
ՆշումԵթե պարզապես ցանկանում եք ֆայլի անունը առանց ընդլայնման տեղադրել փաստաթղթում, ապա պետք է կիրառեք այս կոդը.
VBA կոդ. Տեղադրեք ֆայլի անունը միայն առանց ընդլայնման.
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
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Ավելի շատ հեռացնելու գործիքների համար գնացեք դեպի Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրել խումբ...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել Հատուկ էջեր / Աղյուսակներ / Ձեւավորում / Վերնագիր պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Նավարկեք դեպի Ցանկացած վայր / Ավտոմատ տեղադրում կրկնվող տեքստ / Փոխարկել Փաստաթղթի Windows-ի միջև / 11 Փոխակերպման գործիքներ...