Bir metindeki kelimeleri sözlüğe çevirme

[wicalen]

Arkadaşlar merhaba. Bir word belgesinde 45 sayfalık ingilizce bir metnim var. Bu belgede kullanılan tüm kelimeleri excelde tek tek görüntüleyip çıkan kelimelerin karşısına türkçelerini yazmak istiyorum ancak el ile saatler süreceğinden acaba bunun kısa bir yolu var mıdır diye size danışmak istedim. Kısacası bir sözlük oluşturmak istiyorum.

 

[alicimri]

Çok özür dilerim yukarıdaki kod yanlış.

Sub Makro1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = Chr(13)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[alicimri]

Makrosuz da yapılıyormuş, değiştir iletişim kutusunda Aranana ^w yazın, Yeni Değere ^p yazın tümünü değiştire tıklayın.