ちんさんありがとうございます。 FTSearchとワイルドカードを使用して、期待通りの結果がでました! 検索速度も見違えるほど早くなりました。 ちなみに Dim Ss As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim View As NotesView Dim Count As Integer Set db = Ss.CurrentDAtabase Set View = db.GetView("ビュー名") Set doc = View.GetFirstDocument If doc Is Nothing Then Count = 0 Else Count = View.FTSearch("*",0) End If Msgbox Count とやってみました。 本当にありがとうございました。