워드의 바꾸기 명령을 수행하려 합니다

예를 들어, 

   A     B

1 오오 아아

2 에에 우우

와 같은 엑셀 파일이 있는경우

워드의 "오오"를 모두 "아아"로 바꾸고 "에에"는 "우우"로 바꾸는 매크로를 작성하려합니다

비베는 1도 모르지만 일단 나름 검색해서 소스를 짜봤는데 동작하지 않네요 

Public Sub MakeNotices()

    Dim wdApp As Object

    Dim wdDoc As Object

    Dim wdRng As Object

    Dim sh As Worksheet

    Set wdApp = CreateObject("Word.Application")

    Set sh = Worksheets("Sheet1")

        Set wdDoc = wdApp.Documents.Open("C:\Users\Administrator\Documents\작업폴더\PD0571\오오.docx")

        Set wdRng = wdDoc.Content

        With wdRng.Find

            .ClearFormatting

            .Replacement.ClearFormatting

            .Text = sh.Range("A1")

            .Replacement.Text = sh.Range("B1")

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = False

            .CorrectHangulEndings = True

            .HanjaPhoneticHangul = False

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

        wdDoc.PrintOut

        wdApp.DisplayAlerts = False

        wdDoc.Close False

        wdApp.DisplayAlerts = True

        Set wdRng = Nothing

        Set wdDoc = Nothing

    wdApp.Quit

    Set wdApp = Nothing

    MsgBox "완료되었습니다."

End Sub

시험삼아서 A1의 단어만 B1으로 바꿔보는 소스입니다

이게 동작한다면 A1:Ai 을 B1:bi 로 바꾸는 소스도 가능하겠죠..

별로 어려워 보이지는 않는데 안되니 답답하네요 ㅠㅠ

조언부탁드립니다!