Ինչպե՞ս տեղադրել 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

Բառի արտադրողականության առաջարկվող գործիքներ