[µo°Ý] ¦p¦ó±oª¾·j´Mµ²ªGªº¼Æ¶q?

PKKO

objSelection.WholeStory
                objSelection.Find.ClearFormatting
                objSelection.Find.Text = tt
                objSelection.Find.Replacement.Text = ""
                objSelection.Find.Forward = True
                objSelection.Find.Wrap = wdFindContinue
                objSelection.Find.Format = False
                objSelection.Find.MatchCase = False
                objSelection.Find.MatchWholeWord = False
                objSelection.Find.MatchByte = True
                objSelection.Find.CorrectHangulEndings = False
                objSelection.Find.MatchAllWordForms = False
                objSelection.Find.MatchSoundsLike = False
                objSelection.Find.MatchWildcards = False
                objSelection.Find.MatchFuzzy = False
                objSelection.Find.Execute
                objSelection.TypeText Text:=CStr(rr)
                objSelection.Find.Execute , , , , , , , , , , wdReplaceAll


¥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

s90068

´£°Ý¤@¤U¡A³o­Ó¬O¤£¬O¥i¥H¥Î°j°é¨Ó²Î­p·j´Mµ²ªGªº¼Æ¶q?

PKKO

¦^´_ 2# s90068
¦p¦ó¨Ï¥Î¡H
¨S¦³¬Ý¨ì¦³Åã¥Ü¼Æ¶qªº¦a¤è
¤£ª¾¹D«ç¼Ë¶]°j°é

s90068

¦^´_ 3# PKKO

³o­Ó¬OWORD»¡©ú¥\¯à¤¤ªº¨Ò¤l:

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True

¡A·Q»¡¥Î Find.Found ·f§PÂ_¦¡¤Î°j°é ¬Ý¬O§_¦æ±o³q

linyancheng

§Ú¦Û¤vªº¨Ò¤l¡A½Ð¦Û¦æ¬ã¨s¡I

    Á`¦r¼Æ = 0
    ³y¦r²Î­p¦r¦ê = ""
    For X = 0 To UBound(§¹¾ãªº³y¦r°}¦C)
        With Selection.Find
            .ClearFormatting
            .Text = §¹¾ãªº³y¦r°}¦C(X)
            .Forward = False
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            
            ¦U§O¦r¼Æ = 0
            Do
                .Execute 'Forward:=True
               
                If .Found = True And Selection.Range.InRange(³y¦r²Î­p½d³ò) Then
                    ¦U§O¦r¼Æ = ¦U§O¦r¼Æ + 1
                    Á`¦r¼Æ = Á`¦r¼Æ + 1
                Else
                    If ¦U§O¦r¼Æ > 0 Then
                        ³y¦r²Î­p¦r¦ê = ³y¦r²Î­p¦r¦ê & §¹¾ãªº³y¦r°}¦C(X) & "-" & ¦U§O¦r¼Æ & "_"
                    End If
                    
                    Exit Do
                End If
            Loop
        End With
        
        ³y¦r²Î­p½d³ò.Select
    Next X

PKKO

¦^´_ 5# linyancheng


    ·P®¦