Sub 検索()
Dim ファイルパス As String
Dim 検索ワード As String
Dim テキスト行 As String
Dim 行番号 As Long
' ファイルパスと検索ワードを設定
ファイルパス = "C:\Path\To\Your\File.txt" ' ファイルの実際のパスに置き換えてください
検索ワード = "安全のご注意"
' ファイルを開く
Open ファイルパス For Input As #1
' ファイルを行ごとに読み込み、検索ワードが含まれているか確認
行番号 = 0
Do While Not EOF(1)
Line Input #1, テキスト行
行番号 = 行番号 + 1
If InStr(1, テキスト行, 検索ワード) > 0 Then
MsgBox 検索ワード & " が見つかりました。行番号: " & 行番号
Exit Do
End If
Loop
' ファイルを閉じる
Close #1
End Sub
