EXCELWORD̕eLXgœǂ݂

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:="Tv") 'tpX܂߂t@Cbufɑ
If buf = "False" Then Exit Sub 'LZȂI
@@With CreateObject("Word.Application") 'Word
	With .Documents.Open(buf) '
@@@@@a = .content.Text 'eLXg擾
@@@@@.Close '
@@@End With
@@@.Quit 'Word
@@End With
MsgBox a
End Sub

