GBKEE

¦^´_ 1# kuu
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.         Dim xWord As Object, myRange As Object, E As Range  ', key(1 To 2)
   
4.         Set xWord = CreateObject("Word.Application")  ' Word µ{¦¡
   
5.         With xWord
   
6.             .Visible = True
   
7.                 .DOCUMENTS.Open (ThisWorkbook.Path & "\2.doc")   '¶}±ÒÀÉ®×
   
8.                 Set myRange = .ActiveDocument.Content    'Àɮפå¥ó¥»¤å
   
9.         End With
   
10.        ' key(1) = "Applicant :"
    
11.        ' key(2) = "Assignment No :"
    
12.        ' For Each E In key        ''­n´À´«ªº¼ÆÕu ¦b°}¦C   '-> ­×§ï¬° E As Variant
    
13.         For Each E In [a1:a4]   ' ­n´À´«ªº¼ÆÕu ¦b¤u§@ªí
    
14.             myRange.Find.Execute FindText:=E.Text, MatchWholeWord:=True, ReplaceWith:=E & E.Row, Replace:=2  'wdReplaceAll
    
15.         Next
    
16.         myRange.Parent.Save  '¦sÀÉ
    
17.          xWord.Quit               'Ãö³¬Word µ{¦¡
    
18. End Sub

½Æ»s¥N½X