EXCELでWORDの文字をテキストで読みだす

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1089418410


Sub sample()
Dim buf As String
Dim a As String
buf = Application.GetOpenFilename(FileFilter:="word文書,*.doc", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入
If buf = "False" Then Exit Sub 'キャンセルなら終わり
　　With CreateObject("Word.Application") 'Word
	With .Documents.Open(buf) '文書
　　　　　a = .content.Text 'テキストを取得
　　　　　.Close '文書閉じる
　　　End With
　　　.Quit 'Word閉じる
　　End With
MsgBox a
End Sub

