[發問] 如何得知搜尋結果的數量?

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

以上之程式碼可以完成我搜尋的工作,並且取代成功
但要如何得知有"幾個"搜尋結果,將搜尋結果的數量變成一個變數名稱ex:findN
而我就可以執行其他動作
if findN =0 then XXXXX

麻煩各位大大了

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2014-12-28 23:41 | 只看該作者

回復 5# linyancheng

感恩

PKKO

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

5^#

發表於 2014-12-28 23:34 | 只看該作者

我自己的例子，請自行研究！

總字數 = 0
造字統計字串 = ""
For X = 0 To UBound(完整的造字陣列)
      With Selection.Find
         .ClearFormatting
         .Text = 完整的造字陣列(X)
         .Forward = False
         .Wrap = wdFindStop
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchByte = True
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False

         各別字數 = 0
         Do
            .Execute 'Forward:=True

            If .Found = True And Selection.Range.InRange(造字統計範圍) Then
                  各別字數 = 各別字數 + 1
                  總字數 = 總字數 + 1
            Else
                  If 各別字數 > 0 Then
                     造字統計字串 = 造字統計字串 & 完整的造字陣列(X) & "-" & 各別字數 & "_"
                  End If

                  Exit Do
            End If
         Loop
      End With

      造字統計範圍.Select
Next X

TOP

s90068

中學生 Rank: 2

帖子: 10
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-8-1
最後登錄: 2019-9-1

4^#

發表於 2014-12-21 11:32 | 只看該作者

回復 3# PKKO

這個是WORD說明功能中的例子:

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

，想說用 Find.Found 搭判斷式及迴圈看是否行得通

學習VBA

TOP

PKKO