Word belgesinde dipnot veya son not ayırıcı çizgisini nasıl kaldırabilirim?

YazarSiluvia Değiştirme Tarihi2025-04-09

Word belgesine dipnot veya son not eklediğinizde, bu notların metninin üst kısmında yatay bir ayırıcı çizgi otomatik olarak görünür. Bu çizgiyi kaldırmak istiyorsanız, bu makaledeki yöntemleri deneyin.

Word'de dipnot/son not ayırıcı çizgisini kaldırma

VBA kodu ile dipnot/son not ayırıcı çizgisini kaldırma

Word'de dipnot/son not ayırıcı çizgisini kaldırma

Word'de dipnot veya son not ayırıcı çizgisini aşağıdaki adımları izleyerek kaldırabilirsiniz:

Dipnot veya son not ayırıcı çizgisini kaldırmak istediğiniz belgede, “Görünüm” > “Taslak” seçeneğine tıklayın.
“Referanslar” > “Notları Göster” seçeneğine tıklayın.
Belge hem dipnot hem de son not içeriyorsa, “Notları Göster” iletişim kutusu görüntülenir. İstediğiniz görünümü seçip “Tamam” düğmesine tıklayın. Örneğin, “Dipnot alanını görüntüle” seçeneğini tercih edebilirsiniz.

Not: Belgenizde yalnızca dipnotlar veya son notlar varsa, bu adımı atlayın ve Sonraki kayıt bölümüne geçin.
Artık "Notlar" bölümü belgenin sonunda görünüyor. "Dipnotlar" açılır listesinden "Dipnot Ayırıcısı"nı seçin, ayırıcı çizgiyi işaretleyin ve Delete tuşuna basın.
Belgeyi tekrar “Baskı Düzeni” görünümüne geçirin.

Ayırıcı çizgi artık belgeden kaldırıldı.

Not: Son not ayırıcı çizgisini kaldırmak için "Notları Göster" iletişim kutusundaki "Son not alanını görüntüle" seçeneğini işaretleyin, ardından açılır listeden "Son Not Ayırıcısı"nı seçin.

VBA kodu ile dipnot/son not ayırıcı çizgilerini kaldırma

Manuel yöntem uygunsuzsa, dipnot veya hem dipnot hem de son not ayırıcı çizgilerini hızlıca kaldırmak için aşağıdaki VBA kodunu kullanabilirsiniz:

Word belgesinde, "Microsoft Visual Basic for Applications" penceresini açmak için Alt + F11 tuşuna basın.

VBA penceresinde **Ekle > Modül** seçeneğine tıklayıp aşağıdaki kodu modüle yapıştırın.

VBA kodu: Word belgesinden dipnot ayırıcı çizgisini kaldırma

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

F5Kodu çalıştırmak için tuşuna basın; tüm dipnot ayırıcı çizgileri anında kaldırılır.

Not: Hem dipnot hem de son not için ayırıcı çizgilerini kaldırmak istiyorsanız aşağıdaki VBA kodunu kullanın.

VBA kodu: Word belgesinden hem dipnot hem de son not ayırıcı çizgilerini kaldırma

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

En İyi Ofis Verimlilik Araçları

Kutools for Word ile Word deneyiminizi 100'den fazla göz alıcı özellikle 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 Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Biçimlerde Dışa Aktar (PDF/TXT/DOC/HTML…) / Toplu PDF Dönüştürme…

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

🧹Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını ve Köprüleri kaldırmak için daha fazla araç bulmak üzere Kaldırgrubuna gidin…

➕Yaratıcı Ekleme Araçları: Binlik Ayırıcılar, Onay Kutusu, Radyo Düğmesi, QR Kodu, Barkod, Birden Çok Resim ve daha fazlasını Eklegrubunda keşfedin…

🔍Hassas Seçimler:Belirli Sayfaları/Tabloları/Şekilleri/Başlık Paragrafı/ Gezinmeyi daha fazla özelliğiyle geliştirin Seç…

⭐Yıldızlı Geliştirmeler: Herhangi Bir Konuma Git / Tekrarlanan Metni Otomatik Ekle / Belgeler Arasında Geçiş Yap Windows / 11Araçları Dönüşüm…

🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!

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

Office Tab- Office’a Sekmeli Arabirim Getirir, İşlerinizi Çok Daha Kolaylaştırır

Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
Yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

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

✨ Kutools for Office – Tek Kurulum, Beş Güçlü Araç!

İçerir Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 Tüm 5 araçları tek bir pakette alın | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve verimliliği hemen artırın

⬇️ Şimdi İndir 🎁 Tam Paketi Satın Al 📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

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

🤖KUTOOLS AI Özellikleri:Yapay Zeka Asistanı/Gerçek Zamanlı Asistan/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
✏İçerik Düzenleme:Toplu Bul ve Değiştir/Tüm Resimleri Yeniden Boyutlandır
🧹Zahmetsiz Temizlik:Fazladan Boşlukları Kaldır/Bölüm Sonu Kaldır
➕Yaratıcı Ekleme Araçları:Binlik Ayırıcılar Ekle/Onay Kutusu Ekle/QR Kodu Oluştur
🌍40+ Dil Desteği: Kutools sizin dilinizde konuşur – 40’tan fazla dil desteğiyle!

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