Word belgesinde uzantısız dosya yolu ve dosya adı nasıl eklenir?
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 🤖 ile entegre, 100 den fazla gelişmiş özellik sayesinde belge işleme sürenizi %50 tasarruf edin.Ücretsiz İndirme
Office Tab: Word (ve diğer Office araçlarına) tarayıcı benzeri sekmeler getirir, ç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:
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 Verimliliği Araçları
Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!
🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...
📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...
✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...
➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...
🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...
⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...
🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

✨ Kutools for Office – Tek kurulumda beş güçlü araç!
Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır
En İyi Ofis Verimliliği Araçları
Kutools for Word - 100+ Word için araçlar
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat / Süper Çeviri / AI Redaksiyon / Yapay Zeka Düzeltme
- 📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Toplu PDF Dönüştürme
- ✏ Metin Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / QR Kodu Oluştur
- 🌍 40+ Dil Desteği: Kutools sizin dilinizde –40'tan fazla dil desteği!