[µo°Ý] ¥ÎExcel¶}±Òword«áªº·j´M°ÝÃD

PKKO

1.             objSelection.WholeStory
   
2.             objSelection.Find.ClearFormatting
   
3.             objSelection.Find.Text = tt
   
4.             objSelection.Find.Replacement.Text = ""
   
5.             objSelection.Find.Forward = True
   
6.             objSelection.Find.Wrap = wdFindContinue
   
7.             objSelection.Find.Format = False
   
8.             objSelection.Find.MatchCase = False
   
9.             objSelection.Find.MatchWholeWord = False
   
10.             objSelection.Find.MatchByte = True
    
11.             objSelection.Find.CorrectHangulEndings = False
    
12.             objSelection.Find.MatchAllWordForms = False
    
13.             objSelection.Find.MatchSoundsLike = False
    
14.             objSelection.Find.MatchWildcards = False
    
15.             objSelection.Find.MatchFuzzy = False
    
16.             objSelection.Find.Execute
    
17.             objSelection.TypeText Text:=CStr(rr)
    
18.             objSelection.Find.Execute , , , , , , , , , , wdReplaceAll

½Æ»s¥N½X

¥H¤W¤§µ{¦¡½X¥i¥H§¹¦¨§Ú·j´Mªº¤u§@,¨Ã¥B¨ú¥N¦¨¥\
¦ý­n¦p¦ó±oª¾¦³"´X­Ó"·j´Mµ²ªG,±N·j´Mµ²ªGªº¼Æ¶qÅܦ¨¤@­ÓÅܼƦWºÙex:findN
¦Ó§Ú´N¥i¥H°õ¦æ¨ä¥L°Ê§@
if findN =0 then XXXXX

³Â·Ð¦U¦ì¤j¤j¤F

PKKO

¦^´_ 2# luhpro
¤Ó·PÁ¤F,§Ú­nªº´N¬O³Ì«á­±ªº¥\¯à,§Ú©ú¤Ñ¨Ó¸Õ¸Õ¬Ý!,·P®¦!

PKKO

¦^´_ 2# luhpro

·PÁÂ luhpro ¤j¤j,
¤p§Ì´ú¸Õ«á,§¹¥þ¥i¥H¨Ï¥Î
¥H¤U¬°¤p§Ìªºµ{¦¡½X(§Úªº¼gªk¤ñ¸û°½Ãi,¤£¾å±o§Úªº¼gªk»P±zªº¼gªk,¦bµ{¦¡¹B§@¤W³t«×·|¦³®t²§¶Ü?)

1. With objSelection
   
2.             .WholeStory
   
3.             .Find.ClearFormatting
   
4.             .Find.Text = ttt
   
5.             .Find.Replacement.Text = ""
   
6.             .Find.Forward = True
   
7.             .Find.Wrap = wdFindContinue
   
8.             .Find.Format = False
   
9.             .Find.MatchCase = False
   
10.             .Find.MatchWholeWord = False
    
11.             .Find.MatchByte = True
    
12.             .Find.CorrectHangulEndings = False
    
13.             .Find.MatchAllWordForms = False
    
14.             .Find.MatchSoundsLike = False
    
15.             .Find.MatchWildcards = False
    
16.             .Find.MatchFuzzy = False
    
17.             If Not .Find.Execute Then
    
18.                 Range("k" & num) = "·j´M¤£¨ì " & ttt
    
19.                 num = num + 1
    
20.             Else
    
21.                 .TypeText Text:=CStr(rr)
    
22.                 .Find.Execute , , , , , , , , , , wdReplaceAll '¦pªG§ä¨ì
    
23.             End If
    
24.         End With

½Æ»s¥N½X

PKKO

¦^´_ 5# GBKEE


    ·PÁÂ!¦³ªÅ¦A¨Ó¸Õ¸Õ¬Ý

PKKO

·PÁ¶Wª©¤j¤j,§Ú±Nµ{¦¡½X§ï¦¨¦p¤U,¤£µMN·|¤Ö¤@¥bªº¦¸¼Æ,¦]¬°¨â¦¸Execute
¥Ø«e¤w¥i¥¿±`¨Ï¥Î,·P°Ê£z£°!

1.             With objSelection
   
2.                 .WholeStory
   
3.                 With .Find
   
4.                     .ClearFormatting
   
5.                     .Text = "t03"
   
6.                     .Replacement.Text = ""
   
7.                     .Forward = True
   
8.                     .Wrap = wdFindContinue
   
9.                     .Format = False
   
10.                     .MatchCase = False
    
11.                     .MatchWholeWord = False
    
12.                     .MatchByte = True
    
13.                     .CorrectHangulEndings = False
    
14.                     .MatchAllWordForms = False
    
15.                     .MatchSoundsLike = False
    
16.                     .MatchWildcards = False
    
17.                     .MatchFuzzy = False
    
18.                     Do While .Execute = True
    
19.                         n = n + 1
    
20.                         '§ä¨ìªº¸Ü
    
21.                         'msgbox "§ä¨ì¤F"
    
22.                     Loop
    
23.                 End With
    
24.                 If n = 0 Then '¦pªG§ä¤£¨ì
    
25.                    'msgbox "§ä¤£¨ì"
    
26.                 End If
    
27.             End With

½Æ»s¥N½X

¦^´_ 5# GBKEE