ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

  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

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-12-21 23:15 ½s¿è
¥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

TOP

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

TOP

¦^´_ 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

TOP

¦^´_ 4# PKKO
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim s As String, n As Integer
  4.     s = "TEST"
  5.     With Selection.Find
  6.         .Text = s
  7.         .Replacement.Text = ""
  8.         .Forward = True
  9.         .Wrap = wdFindContinue
  10.         .Format = False
  11.         .MatchCase = False
  12.         .MatchWholeWord = False
  13.         .MatchByte = True
  14.         .MatchWildcards = False
  15.         .MatchSoundsLike = False
  16.         .MatchAllWordForms = False
  17.     End With
  18.     Do While Selection.Find.Execute = True
  19.         n = n + 1
  20.         Selection.Find.Execute
  21.     Loop
  22.     If n > 0 Then
  23.         MsgBox "·j´M " & s & " ¦@¦³ " & n & " ¦¸"
  24.     Else
  25.         MsgBox "·j´M¤£¨ì " & s
  26.     End If
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


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

TOP

¥»©«³Ì«á¥Ñ PKKO ©ó 2014-12-29 05:58 ½s¿è

·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
PKKO

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD