Sub SearchTextInWordDocument()' 必要な変数の宣言Dim wordApp As Word.ApplicationDim wordDoc As Word.DocumentDim selectedFile As VariantDim ws As WorksheetDim lastRow As Long, i As LongDim searchText As StringDim searchCount As Long ' ユーザ…