Ինչպե՞ս տեղադրել 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը
- Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
- Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
- Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
- Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
- Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.