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