vba如何实现：批量查找字符串（串1、串2……），只找第一个

菊石泽露

vba如何实现：批量查找字符串（串1、串2、串3、串4……），只找第一个，找到后提示找到或存在，然后停止

该字符串搜索。搜索下一个，也是只找第一个。

c81

楼主发个例子上来看看。

守柔

QUOTE:

以下是引用菊石泽露在2007-3-12 16:52:11的发言：

vba如何实现：批量查找字符串（串1、串2、串3、串4……），只找第一个，找到后提示找到或存在，然后停止

该字符串搜索。搜索下一个，也是只找第一个。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-12 17:50:19
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0178^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub myFind()
    Dim strText() As Variant, oFind As Variant
    Dim myRange As Range
    strText = Array("那只", "敏捷", "棕色", "狐狸")
    For Each oFind In strText
        Set myRange = ActiveDocument.Content
        With myRange.Find
            .ClearFormatting
            .Forward = True
            If .Execute(FINDTEXT:=oFind) = True Then
                MsgBox "Word已成功找到该内容,它的位于(start:=" & myRange.Start & "end:=," & myRange.End & ").", vbInformation
                myRange.Select
            Else
                MsgBox "Word未发现此内容(" & oFind & ")!", vbInformation
            End If
        End With
    Next
End Sub
'----------------------

菊石泽露

是的，正是这种效果。

谢谢守版，学习中……