참조에서
Microsoft Word X.X Object Library를 선택하시고(x.x는 버젼입니다.)
Private Sub Command1_Click()
CMDG.ShowOpen '커먼다이얼로그 오픈
Dim myWord As Word.Application
Set myWord = CreateObject("Word.Application")
If myWord Is Nothing Then
MsgBox "워드 객체 생성실패"
exit sub
End If
myWord.Documents.Open FileName:=CMDG.FileName
RTBox1.text = myWord.ActiveDocument.Content.Text '리치텍스트 박스에 담았습니다.
myWord.Quit
Set myWord = Nothing
End Sub
이런식으로 하시면 리치텍스트박스에 워드의 내용을 가져올수 있다고 하네요..
파일명은 다이알로그를 이용해서 가져오는 방식인거 같습니다.