Ana içeriğe atla

Word'de tüm son notları düz metne dönüştürme

Son notları metne dönüştürmek, bunları düzenlemeniz veya silmeniz için uygun olacaktır. Örneğin, diğer normal metinle birlikte son notları aynı anda seçmek istiyorsanız, Word bunu yapmanıza izin vermez. Nasıl kolayca halledebilirsin? Bu eğitim, son notları düz metne dönüştürmek için size birkaç yöntem gösterecektir.

Son notları manuel olarak metne dönüştürme

Son notları VBA ile metne dönüştürün

Kutools for Word ile son notları metne dönüştürüniyi fikir3


Son notları manuel olarak metne dönüştürme

1. İmleci son notların bulunduğu yere getirin ve ardından Ctrl + A Belgedeki tüm son notları seçmek için. Ekran görüntüsüne bakın:

2. Basın Ctrl + C son notları kopyalamak için.

3. Basın Ctrl + End imleci tüm belgenin sonuna ve son notların önüne taşımak için.

4. Basın Ctrl + V son notu belgenin sonuna yapıştırmak için. Son notların sırası bozulmamış olacak, ancak yapıştırılan son notlar değiştirildi. Ekran görüntüsüne bakın:

5. Metinden önceki 1 rakamının tamamını orijinal numara listesiyle manuel olarak değiştirin.


Son notları VBA ile metne dönüştürün

Kelime olarak, son notları VBA kodu ile düz metne de dönüştürebilirsiniz.

1: Basın Alt + F11 açmak için Uygulamalar için Microsoft Visual Basic penceresi;

2: Tıklayın modül itibaren Ekle sekmesinde, aşağıdaki VBA kodunu kopyalayıp modül pencere;

3: Tıklayın koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı uygulamak için.

Son notları metne dönüştüren VBA:

Alt dönüştürme notu ()
Son Not Olarak Dim aendnote
ActiveDocument'deki her not için.
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Sonraki aendnote
ActiveDocument'deki her not için.
aendnote.Reference.Delete
Sonraki aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font ile
.Superscript = Doğru
İle bitmek
Selection.Find ile
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Forward = Doğru
.Wrap = wdFindContinue
.Format = Doğru
.MatchWildcards = Doğru
İle bitmek
Selection.Find.Execute Değiştir: = wdReplaceAll
End Sub

Not: Makronun başlangıcını ve sonunu beğeninize uyacak şekilde değiştirebilirsiniz.


Kutools for Word ile son notları metne dönüştürün

Bu bilgisayarların yeni elleri için, VBA başa çıkmak için çok karmaşık. Fakat Kutools for Word yüklendiğinde, tüm son notları hızlı bir şekilde metne dönüştürebilirsiniz. Convert Endnotes to Text tek bir tıklama ile yardımcı program.

Kutools for Word, ile daha fazla  kullanışlı fonksiyonlar, işlerinizi kolaylaştırır. 

Kurduktan sonra Kutools for Word, lütfen aşağıdaki işlemleri yapın:(Şimdi Kutools'u Word için Ücretsiz İndirin!)

1. Lütfen bu aracı tıklayarak uygulayın Kutools > dönüştürmek > Convert Endnotes to Text. Ekran görüntüsüne bakın:

doc kutools son notları metin 1'e dönüştür

2. Tıkladıktan sonra Convert Endnotes to Text, sonucu aşağıdaki ekran görüntülerinde gösterildiği gibi göreceksiniz:




Göreli makale:


Birden çok Word belgesine / Excel çalışma kitaplarına Firefox, Chrome, Internet Explorer 10 olarak sekmeli göz atma ve düzenleme!

Firefox / Chrome / IE'de birden çok web sayfasını görüntülemeye ve ilgili sekmelere kolayca tıklayarak aralarında geçiş yapmaya aşina olabilirsiniz. Burada Office Tab, tek bir Word penceresinde veya Excel penceresinde birden çok Word belgesine veya Excel çalışma kitabına göz atmanıza ve sekmelerine tıklayarak aralarında kolayca geçiş yapmanıza olanak tanıyan benzer işlemleri destekler.
Office Tab'in ücretsiz denemesi için tıklayın!

Firefox olarak tek pencerede birden çok sözcük belgesine göz atın
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank for the macro! Super helpful!

(Fyi - you have a "v" where there should be a linefeed by ".Forward", but you saved me a couple of hours of figuring out writing my own. Awesome!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations