luhpro

¥H¤W¤§µ{¦¡½X¥i¥H§¹¦¨§Ú·j´Mªº¤u§@,¨Ã¥B¨ú¥N¦¨¥\
¦ý­n¦p¦ó±oª¾¦³"´X­Ó"·j´Mµ²ªG,±N·j´Mµ²ªGªº¼Æ¶qÅܦ¨¤@­Ó ...
PKKO µoªí©ó 2014-12-19 10:35

¤@¯ë¦³¦P¤@ª«¥ó¦h¦¸¤Þ¥Î®É¥i¥H¥Î With ... End With ¥]°_¨Ó,
¨ä¤¤¦A¥H . ¨ú¥N¦¹ª«¥ó:
§Aªºµ{¦¡¥i¥H§ï¬° :

1. With objSelection
   
2.   .WholeStory
   
3.   With .Find
   
4.     .ClearFormatting
   
5.     .Text = tt
   
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.     .Execute
    
19.   End With
    
20.   .TypeText Text:=CStr(rr)
    
21.   .Find.Execute , , , , , , , , , , wdReplaceAll
    
22. End With

½Æ»s¥N½X

¥t¨ú±o³Q¨ú¥N¤å¦r¼Æ¶qªº¤è¦¡§Ú¨S§ä¨ì,
¦ý§Aªº»Ý¨D¥i¥H¥Î¤U¦¡¨Ó¹ê²{:
if Not objSelection.Find then XXXXX