Word belgesindeki dipnot / son not ayırıcı satırı nasıl kaldırılır?
Word belgesine dipnot veya son not eklerken, dipnot veya son not metinlerinin üzerinde her zaman yatay bir ayırıcı çizgi olduğunu göreceksiniz. Bu ayırıcı çizgilerden kurtulmak istiyorsanız, lütfen bu makaledeki yöntemleri deneyin.
Word'deki dipnot / son not ayırıcı satırını kaldırın
Dipnot / son not ayırıcı satırını VBA kodu ile kaldırın
Word'deki dipnot / son not ayırıcı satırını kaldırın
Dipnotu veya son not ayırıcı satırını Word'deki aşağıdaki gibi kaldırabilirsiniz.
1. Belgede dipnot veya son not ayırıcı çizgisini kaldıracaksınız, Görüntüle > Taslak.
2. Sonra tıklayın Referanslar > Notları göster aşağıda gösterilen ekran görüntüsü gibi.
3. Belgenizde hem dipnotlar hem de son notlar varsa, Notları göster iletişim kutusu açılır, lütfen ihtiyacınız olan seçeneği seçin ve ardından OK buton. Burada seçiyorum Dipnotu görüntüle alanı.
not: Belgenizde yalnızca dipnot veya son not mevcutsa, bu adımı atlayın ve 4. adıma geçin.
4. Şimdi notlar bölümü belgenin sonunda görüntüleniyor, lütfen seçin Dipnot Ayırıcı içinde Dipnotlar açılır listeden ayırıcı çizgiyi seçin ve ardından Sil silmek için anahtar. Ekran görüntüsüne bakın:
5. Şuna kaydırın Baskı düzeni belgenin görünümü.
Ardından, dipnotun ayırıcı satırının belgeden hemen kaldırıldığını görebilirsiniz.
not: Son not ayırıcı satırını kaldırmak için, Son notu görüntüle yukarıdaki alan Notları göster iletişim kutusunu seçin ve ardından Son Not Ayırıcı içinde Son Notlar açılır liste.
Dipnot / son not ayırıcı satırlarını VBA kodu ile kaldırın
Yukarıdaki yöntem sizin için uygun değilse, dipnotun tüm ayırıcı satırlarını veya hem dipnot hem de son notu belgeden hızlı bir şekilde kaldırmak için aşağıdaki VBA kodlarını deneyebilirsiniz.
1. Belgede dipnotun ayırıcı satırını kaldıracaksınız, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Modül penceresine kopyalayın.
VBA kodu: belgedeki dipnot ayırıcı satırını kaldırın
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 Sub3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından tüm dipnotların ayırıcı çizgileri belgeden hemen kaldırılır.
not: Dipnot ve son notun tüm ayırıcı satırlarını kaldırmak istiyorsanız, aşağıdaki VBA kodu yardımcı olabilir.
VBA kodu: belgedeki dipnot ve son not ayırıcı satırlarını kaldırın
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 SubEn İ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ı...
