Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

 Ինչպե՞ս տեղադրել 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 այս կոդն աշխատեցնելու համար ստեղնը, և ֆայլի ուղին և անունը տեղադրվել են փաստաթղթում առանց ընդլայնման, տես նկարի նկարը.

փաստաթուղթ տեղադրեք ֆայլի անունն առանց 1 ընդլայնման

ՆշումԵթե ​​պարզապես ցանկանում եք ֆայլի անունը առանց ընդլայնման տեղադրել փաստաթղթում, ապա պետք է կիրառեք այս կոդը.

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 for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.