Skip to main content

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

Author: Xiaoyang Last Modified: 2025-08-07

Normalde, Dosya Adı alan işlevini kullanarak Word belgesine dosya adını veya dosya yolunu ve adını ekleyebiliriz, ancak bu eklenen dosya adı docx veya doc uzantısı da dahil olmak üzere gelir. Peki dosya adını veya dosya yolunu ve adını uzantısız nasıl eklersiniz?

VBA kodu kullanarak dosya yolu ve adı veya uzantısız dosya adı ekleme

Word İçin Önerilen Verimlilik Araçları

Kutools for Word: AI 🤖 entegrasyonuyla, belge işleme sürenizi %50 tasarruf eden 100 gelişmiş özellik.Ücretsiz İndirme

Office Tab: Word'a (ve diğer Office araçlarına) tarayıcı benzeri sekmeler getirerek çoklu belge gezintisini basitleştirir.Ücretsiz İndirme

VBA kodu kullanarak dosya yolu ve adı veya uzantısız dosya adı ekleme

Word belgesine uzantısız dosya adı 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 basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

3. Ve ardından, Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın.

VBA Kodu: Uzantısız dosya yolu ve adı ekleme:

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 ve dosya yolu ve adı uzantısız olarak belgeye eklenmiş olacaktır, ekran görüntüsüne bakın:

The file path and name are inserted into the document without extension

Not: Eğer sadece uzantısız dosya adını belgeye eklemek istiyorsanız, bu kodu uygulamalısınız:

VBA Kodu: Sadece uzantısız dosya adı ekleme:

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

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Yükseltin!

🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu Olarak PDF'ye Dönüştür...

✏ İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...

➕ Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...

⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...

🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u şimdi indirin! 🚀
 

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word için 100+ Araç

Ücretsiz İndir Şimdi Satın Al Kutools Hakkında Daha Fazla Bilgi Edinin