Ana içeriğe atla

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

Yazar: Xiaoyang Son Değiştirilme Tarihi: 2018-08-31

Normalde, dosya adını veya dosya yolunu ve adını, Dosya adı alanı işlevini kullanarak Word belgesine ekleyebiliriz, ancak bu eklenen dosya adı docx veya doc dosya uzantısını içerir. Dosya adını veya dosya yolunu ve adını uzantı olmadan nasıl ekleyebilirsin?

VBA kodunu kullanarak dosya yolunu ve adını veya dosya adını uzantı olmadan ekleyin


VBA kodunu kullanarak dosya yolunu ve adını veya dosya adını uzantı olmadan ekleyin

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

1. İmleci, dosya yolunu ve adını uzantı olmadan eklemek istediğiniz yere götürün.

2. Sonra, basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

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

VBA kodu: Uzantı olmadan dosya yolu ve adı ekleyin:

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve dosya yolu ve adı uzantı olmadan belgeye eklenmiştir, ekran görüntüsüne bakın:

doc uzantısı 1 olmadan dosya adı ekleyin

not: Yalnızca uzantı olmadan dosya adını belgeye eklemek istiyorsanız, bu kodu uygulamalısınız:

VBA kodu: Yalnızca uzantı olmadan dosya adını girin:

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 Üretkenlik Araçları

Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!

🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur  /  Metni Yeniden Yaz  /  Belgeleri Özetleyin  /  Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de

📘 Belge Ustalığı: Sayfaları Böl  /  Belgeleri Birleştir  /  Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...)  /  PDF'ye Toplu Dönüştürme  /  Sayfaları Görüntü Olarak Dışa Aktar  /  Aynı Anda Birden Çok Dosyayı Yazdırma...

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

🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar  /  Bölüm Sonları  /  Tüm Başlıklar  /  Metin kutuları  /  Köprüler  / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...

Yaratıcı Ekler: Ekle Bin Ayırıcı  /  Onay Kutuları  /  Radyo Düğmeleri  /  QR Code  /  Barkod  /  Çapraz Çizgi Tablosu  /  Denklem Başlığı  /  Görüntü Başlık  /  Tablo başlığı  /  Çoklu Resimler  / Daha fazlasını şurada keşfedin: Grup Ekle...

🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar  /  tablolar  /  şekiller  /  başlık paragrafları  / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...

Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin  /  tekrarlanan metni otomatik olarak ekle  /  belge pencereleri arasında sorunsuzca geçiş yapın  /  11 Dönüşüm Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations