Excel'den Word'e yorumları nasıl aktarılır?

Excel kullanıcıları için, hücrelere yorum ekleme yaygın bir iştir. Bazen bu yorumları belirli amaçlar için bir Word belgesine kopyalayıp yapıştırmanız gerekebilir. Elbette, yorumları teker teker Word'e kopyalayıp yapıştırabilirsiniz, ancak bu sıkıcı ve zaman alıcı bir işlemdir. Excel'deki tüm yorumları bir seferde Word'e aktarmak için herhangi bir yöntem var mı?

VBA kodu ile mevcut çalışma sayfasından Word'e yorumları aktarma

VBA kodu ile mevcut çalışma sayfasından Word'e yorumları aktarma

Ne yazık ki, Excel, tüm yorumları bir seferde kopyalayıp Word'e yapıştırmak için bir özellik sunmaz. Ancak, aşağıdaki VBA kodu ile etkin çalışma sayfasındaki tüm yorumları hızlıca bir Word belgesine aktarabilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Mevcut çalışma sayfasından Word'e yorumları aktarma

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve etkin çalışma sayfasındaki tüm yorumlar, hücre adresleriyle birlikte yeni bir Word belgesine aktarılacaktır. Ekran görüntüsüne bakın:

İlgili makaleler:

Excel'de birden fazla hücreye hızlıca nasıl yorum eklenir?

Excel'de yorum kutusunun şeklini nasıl değiştirirsiniz?

Excel'deki hücrelerdeki tüm yorum biçimlerini nasıl değiştirirsiniz?

Excel'deki tüm yorumların yazar adını nasıl değiştirirsiniz?