Word belgesine dosya yolu ve uzantısız dosya adı nasıl eklenir?

Normalde, Dosya Adı alan işlevini kullanarak Word belgesine dosya adını veya dosya yolunu ekleyebilirsiniz; ancak bu şekilde eklenen dosya adı, .docx veya .doc gibi dosya uzantısını içerir. Dosya adını veya dosya yolunu uzantısız nasıl ekleyebilirsiniz?

Uzantısız Dosya Yolu ve adı ya da dosya adını VBA kodu kullanarak ekleme

---

Uzantısız Dosya Yolu ve adı ya da dosya adını VBA kodu kullanarak ekleme

Word belgesine uzantısız dosya adını eklemek için lütfen aşağıdaki VBA kodunu uygulayın:

1. Uzantısız dosya yolunu ve adını eklemek istediğiniz yere imleci yerleştirin.

2. Ardından, ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ardından, Ekle > Modül seçeneğine tıklayıp aşağıda verilen kodu açılan boş modüle kopyalayın ve yapıştırın.

VBA kodu: Uzantısız Dosya Yolu ve adı ekle:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; böylece uzantısız dosya yolu ve adı belgeye eklenmiş olur. Ekran görüntüsüne bakın:

Not: Eğer yalnızca uzantısız dosya adını belgeye eklemek istiyorsanız, bu kodu uygulamanız gerekir:

VBA kodu: Yalnızca uzantısız dosya adını ekle:

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

---