Microsoft Word’de yorumları dipnotlara veya son notlara nasıl dönüştürebilirsiniz?
YazarSiluvia•Değiştirme Tarihi
Word belgenizde birden fazla yorum varsa, hepsini aynı anda dipnota veya son nota nasıl dönüştürebilirsiniz? Bu makale, bu işlemi gerçekleştirmek için VBA yöntemlerini sunar.
Yorumları VBA koduyla dipnotlara veya son notlara dönüştürme
Aşağıdaki VBA kodları, Geçerli Belge’deki tüm yorumları hızla dipnotlara veya son notlara dönüştürmenize olanak tanır. Lütfen aşağıdaki adımları uygulayın.
1. Dipnotlara veya son notlara dönüştüreceğiniz yorumları içeren belgeyi açın ve Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine 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.
Daha sonra, Geçerli Belge’deki tüm yorumlar, uyguladığınız VBA koduna göre hemen dipnotlara veya son notlara dönüştürülür.
Yapay Zeka ile Güçlendirilmiş Kutools for Word ile Daha Az Zamanda Daha Fazlasını Yapın
Kutools for Word, sadece bir dizi araç değil; üretkenliğinizi artırması için akıllıca tasarlanmış kapsamlı bir çözümdür. Yapay zeka destekli yetenekleri ve temel özelliklerini bir araya getirerek Kutools, daha az zamanda daha fazlasını başarmanıza olanak tanır:
İçeriği anında özetleyin, yeniden yazın, oluşturun ve çevirin.
Yazarken dil bilgisi, noktalama ve üslup önerileriyle metninizi gerçek zamanlı olarak gözden geçirin.
İçeriği, düzenini, stilini ve yapısını bozmadan yeniden ifade edin ve çevirin.
İçeriğinizi 40’tan fazla dile kolayca çevirerek küresel erişiminizi genişletin.
Geçerli belge içeriğinize dayanarak anında yardım alın ve zeki içgörüler elde edin.
Bir görevi – örneğin Bölüm Sonu kaldırma gibi – nasıl tamamlayacağınızı sorun, yapay zeka size rehberlik eder veya bunu sizin için halleder.
Hassas veya gizli bilgileri saniyeler içinde redakte edip tam gizlilik sağlayın.
Tüm araçlar Word’de sorunsuzca çalışır ve her an kolayca erişebileceğiniz yerdedir.
Belgelerinizi zahmetsizce oluşturun, iyileştirin, çevirin, özetleyin ve güvence altına alın.
Yazarken dil bilgisini, açıklığı ve tonu gerçek zamanlı olarak geliştirin.
İçeriği, düzen veya biçimlendirmede hiçbir değişiklik yapmadan yeniden ifade edin ve çevirin.
Bir görevi – örneğin Bölüm Sonu kaldırmayı – nasıl tamamlayacağınızı sorun, yapay zeka size rehberlik eder veya bunu sizin yerinize gerçekleştirir.
Tüm araçlar Word içinde sorunsuzca çalışır ve her zaman kolay erişimdedir.
🌍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!
