Microsoft Word'de yorumları dipnotlara veya son notlara nasıl dönüştürürsünüz?
Word belgenizde birden fazla yorum olduğunu varsayalım, bu yorumların tümünü aynı anda dipnotlara veya son notlara nasıl dönüştürebilirsiniz? Bu makale, bunu gerçekleştirmek için VBA yöntemleri sunar.
Yorumları VBA kodu ile dipnotlara veya son notlara dönüştürme
Yorumları VBA kodu ile dipnotlara veya son notlara dönüştürme
Aşağıdaki VBA kodları, geçerli belgedeki tüm yorumları hızlı bir şekilde dipnotlara veya son notlara dönüştürmenize yardımcı olabilir. Lütfen şu adımları izleyin.
1. Yorumları dipnotlara veya son notlara dönüştüreceğiniz belgeyi açın ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Yorumları dipnotlara dönüştürme:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
VBA kodu: Yorumları son notlara dönüştürme:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın.
Geçerli belgedeki tüm yorumlar, uyguladığınız VBA koduna göre hemen dipnotlara veya son notlara dönüştürülecektir.
İlgili makaleler:
AI-Geliştirilmiş Kutools for Word ile Daha Az Zamanda Daha Fazla İş Yapın
Kutools for Word sadece bir araç seti değil - üretkenliğinizi artırmak için tasarlanmış akıllı bir çözüm. Yapay zeka destekli yetenekler ve en temel özelliklerle, Kutools size daha az zamanda daha fazla iş yapma imkanı sunar:
- İçeriği anında özetleyin, yeniden yazın, oluşturun ve çevirin.
- Yazarken gramer, noktalama ve stil önerileriyle metni gerçek zamanlı olarak düzeltin.
- Düzeni, stili ve yapıyı bozmadan içeriği yeniden ifade edin ve çevirin.
- İçeriğinizi 40'tan fazla dile kolayca çevirerek küresel olarak erişiminizi genişletin.
- Geçerli belge içeriğine dayalı anında yardım ve akıllı içgörüler alın.
- Bir görevi tamamlama konusunda soru sorun - bölüm sonlarını kaldırma gibi - ve yapay zeka size rehberlik edecek ya da sizin için yapacaktır.
- Hassas veya gizli bilgileri birkaç saniye içinde düzenleyerek tamamen gizliliği sağlayın.
- Tüm araçlar Word içinde sorunsuz çalışır ve her zaman ulaşılabilir durumdadır.
- Belgeleri oluşturun, iyileştirin, çevirin, özetleyin ve güvenli hale getirin.
- Yazarken gerçek zamanlı olarak grameri, netliği ve tonu geliştirin.
- Hiçbir düzen veya biçimlendirme değişikliği olmadan içeriği yeniden ifade edin ve çevirin.
- Bir görevi tamamlama konusunda soru sorun - bölüm sonlarını kaldırma gibi - ve yapay zeka size rehberlik edecek ya da sizin için yapacaktır.
- Tüm araçlar Word içinde sorunsuz çalışır ve her zaman ulaşılabilir durumdadır.
Kutools for Word Hakkında Daha Fazla Bilgi Edinin Şimdi İndirin
✨ Kutools for Office – Tek kurulumda beş güçlü araç!
Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır
En İyi Ofis Verimliliği Araçları
Kutools for Word - 100+ Word için araçlar