EXCELDE BULUNAN VERİLERİN BULUNARAK WORD METNİNDE DEĞİŞTİRİLMESİ

[TURKOGLU0671]

ACİLLL

Excellde A1 sütunundan aşağıya doğru uzanan yanlış yazılmış verilerin doğrusu B1 sütunundan aşağıya doğru yazılmıştır.
Word metni içerisinde A1 sütununda ki yanlış yazılan verilerin B1 sütunundaki doğrularını değiştiren makroya acil ihtiyaç duymaktayım...
Yani aşağıda örnek te de verdiğim gibi Excelde A hücresinde bulunan Ali'leri Word metninde Veli olarak değiştirecek...
Siz değerli arkadaşlarımın yardımlarını bekliyorum....


ÖRNEK

EXCELL WORD
A(Sütunu) B (Sütunu) Ali (Veli) bugün pazara giderken Ahmet (Mehmet) ile karşılaştı. vs.....

Ali Veli
Ahmet Mehmet
Can Tolga

 

[Necdet]

Merhaba,

Tembellik ettim Internetten bulduğum kodları buraya ekliyorum.
Bulduğum sitenin adı kodlarda açıklama olarak var.
Word dosyasının C sürücüsünde olduğu varsayıldı, siz bu yolu değiştirin.

 Sub WordFindAndReplace()
 
'   https://superuser.com/questions/1317223/replace-word-in-ms-word-with-cell-value-in-excel-vba
    Dim ws As Worksheet, msWord As Object, itm As Range

    Set ws = ActiveSheet
    Set msWord = CreateObject("Word.Application")

    With msWord
        .Visible = True
        .Documents.Open "C:\Deneme.docx"
        .Activate

        With .ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting

            For Each itm In ws.UsedRange.Columns("A").Cells

                .Text = itm.Value2                          'Kolon A daki Değerleri Bul
                .Replacement.Text = itm.Offset(, 1).Value2  'Kolon B ile değiştir
                .MatchCase = False
                .MatchWholeWord = True
                .Execute Replace:=2     'wdReplaceAll (WdReplace Enumeration)
            Next
        End With
        .Quit SaveChanges:=True
    End With
    
End Sub

 

[TURKOGLU0671]

Çok teşekkür ediyorum Necdet Bey... Saygılarımı sunuyorum...