İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində genişlənmədən fayl yolu və filename əlavə etmək üçün necə?

Normal olaraq fayl adını və ya fayl yolunu və adını Word sənədində Filename sahəsi funksiyasından istifadə edərək, əlavə edə bilərik, ancaq bu faylın uzantısı docx və ya doc daxil olmaqla əlavə edilmiş fayl. Fayl adını və ya fayl yolunu və adını uzantısız olaraq necə yerləşdirə bilərsiniz?

VBA kodunu istifadə edərək fayl yolu və adını və ya faylını uzantısız əlavə edin


VBA kodunu istifadə edərək fayl yolu və adını və ya faylını uzantısız əlavə edin

Faylın Word sənədində uzadılmadan əlavə etmək üçün aşağıdakı VBA kodunu tətbiq edin:

1. İmleci fayl yolu və adını uzantısız olaraq yerləşdirmək istədiyiniz bir yerə qoyun.

2. Sonra, basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Və sonra basın Taxmaq > Moduleskodu açdıqdan sonra boş modulu daxil edin və yapışdırın.

VBA kodu: Fayl yolunu və adını uzantısız əlavə edin:

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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və fayl yolu və adı uzadılmadan sənədə daxil edilib, ekran görünüşünə baxın:

1 uzantısı olmadan doc faylını əlavə edin

QeydFaylın adını sənəddən kənarlaşdırmadan əlavə etmək istəyirsinizsə, bu kodu tətbiq etməlisiniz:

VBA kodu: Fayl adı yalnız uzadılmadan əlavə edin:

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



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
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.