Set w = CreateObject("Word.Application")
                Set doc = w.Documents.Open(CD1.FileName)
 
                doc.Selection.HomeKey Unit:=wdStory
                doc.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
 
                doc.Range(Selection).Copy
                rtbText.TextRTF = Clipboard.GetText(vbCFRTF)
                Clipboard.Clear
 
                doc.Close
                w.Quit
                Set doc = Nothing
                Set w = Nothing