Word'de tüm dipnotları Düz Metin nasıl dönüştürülür

Word’deki dipnotlar genellikle alıntılar veya ek kaynaklar için kullanılır; ancak bunları düzenlemeyi veya biçimlendirmeyi kolaylaştırmak adına düz metne dönüştürmeniz gerekebilir. Özellikle uzun belgelerde her dipnotu tek tek kopyalayıp yapıştırmak son derece yorucu olabilir. Bu kılavuz, dipnotları düz metne dönüştürmenin üç verimli yolunu gösterecektir:

Sonnotları Metne Dönüştür manuel olarak

Sonnotları Metne Dönüştür Kutools for Word ile

Sonnotları Metne Dönüştür VBA ile

---

Sonnotları Metne Dönüştür manuel olarak

Word'de dipnotları Düz Metin dönüştürmek için aşağıdaki adımları izleyin:

1. İmleci dipnotlar bölümünün herhangi bir yerine yerleştirin, ardından belgedeki tüm dipnotları seçmek için Ctrl + A tuşlarına basın.
2. Seçili dipnotları kopyalamak için Ctrl + C tuşlarına basın.
3. İmleci belgenin sonuna, dipnotlar bölümünden hemen önceye taşımak için Ctrl + End tuşlarına basın.
4. Kopyalanan dipnotları belgenin sonuna yapıştırmak için Ctrl + V tuşlarına basın. Dipnotlar sıralarını koruyacak, ancak düz metin biçimine dönüştürülecektir.

   

5. Yapıştırılan her dipnotun başındaki "1" numarasını, gerektiğinde orijinal numaralandırmaya göre manuel olarak güncelleyin.

---

Sonnotları Metne Dönüştür Kutools for Word ile kolayca

Word'de sonnotları metne dönüştürmek, özellikle VBA'ya alışkın olmayan kullanıcılar için manuel olarak oldukça zahmetli olabilir. Ancak Kutools for Word sayesinde bu görevi Convert Endnotes to Text aracıyla tek bir tıklamayla hızla halledebilirsiniz.

1. Tıklayın Kutools>Dönüştür>Convert Endnotes to Text.

   

Convert Endnotes to Text öğesine tıkladığınız anda belgenizdeki dipnotlar anında metne dönüştürülecek ve aşağıdaki ekran görüntülerinde gösterildiği gibi görünecektir:

---

VBA ile Sonnotları Metne Dönüştür

Word’de dipnotları VBA kodu kullanarak Düz Metne dönüştürebilirsiniz. Aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın. Microsoft Visual Basic for Applications penceresi.
2. Tıklayın Modülöğesini Eklesekmesinden seçin, ardından aşağıdaki VBA kodunu Modülpenceresine kopyalayıp yapıştırın.

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. Çalıştır düğmesine tıklayın veya VBA kodunu çalıştırmak için Çalıştırtuşuna basın F5.

Demo: Word'de tüm dipnotları metne hızla dönüştürme

---

İlgili makaleler:

• Word'de birden fazla Tabloları Metne Dönüştür dönüştürün
• Word'de Denklemi Görüntüye Dönüştür

---