Kapalı Word Dosyasında Değiştir Makrosu

[sametozyavuz]

Arkaşdalar Forumdan aşağıdaki kodu buldum.
fakat Üst Bilgide arama yapmıyor.
kod üstbilgiyi de kapsayacak şekilde geliştirilebilir mi?

Private Sub CommandButton1_Click()

Set WD = CreateObject("word.Application")
WD.Visible = True

yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya

    WD.Selection.Find.ClearFormatting
    WD.Selection.Find.Replacement.ClearFormatting
    With WD.Selection.Find
        .Text = TextBox1.Text
        .Replacement.Text = TextBox2.Text
        .Forward = True
        .Wrap = 1
    End With
    WD.Selection.Find.Execute Replace:=2

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit

MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[sametozyavuz]

arkadaşlar acil yardım bekliyorum.

 

[sametozyavuz]

sorunu wordde de makro oluşturarak çözdüm şimdilik.
konuya bakan arkadaşlara teşekkürler.

Sub Makro2()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "DENİZLİ"
        .Replacement.Text = "YOZGAT"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        End With
    Selection.Find.Execute Replace:=wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub