如何在VB中打开一个.doc文件.(在windows2000环境下)

richtextbox或者用VBA的调用方法！部分代码你看一下
Dim mApp As Word.Application
Dim mDoc As Word.Document
'If m = 1 ThenSet mApp = New Word.Application
mApp.Visible = True
Set mDoc = mApp.Documents.Add
m = m + 1
'End IfDim i, j     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=(2 * fillsum + 2 * quessum + 2 * compsum) + 8, NumColumns:= _
        1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
        With Selection.Tables(1)
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
Selection.TypeText Text:="                                     运筹学试题"
Selection.MoveDown Unit:=wdLine, Count:=2Selection.TypeText Text:="姓名_________                学号____________                院系___________"
Selection.MoveDown Unit:=wdLine, Count:=1
 Selection.TypeText Text:="一.填空题 (" & Form3.List1.ListCount & "道题,共" & fillscore & "分)"
    Selection.MoveDown Unit:=wdLine, Count:=1
For i = 1 To fillsum
    Selection.TypeText Text:=CStr(i) + "." + selected_fill(i).subject
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InlineShapes.AddPicture FileName:= _
        App.Path & "\image\" & selected_fill(i).img, _
        LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveDown Unit:=wdLine, Count:=1
Next i
Selection.TypeParagraph
       Selection.TypeParagraph
       Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.TypeText Text:="二.简答题(共" & Form3.List2.ListCount & "道题,共" & quesscore & "分)"
    Selection.MoveDown Unit:=wdLine, Count:=1
For i = 1 To quessum
    Selection.TypeText Text:=CStr(i) + "." + selected_ques(i).subject
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InlineShapes.AddPicture FileName:= _
       App.Path & "\image\" & selected_ques(i).img, _
        LinkToFile:=False, SaveWithDocument:=True
        Selection.MoveDown Unit:=wdLine, Count:=1
Next i
Selection.TypeParagraph
        Selection.TypeParagraph
        Selection.MoveDown Unit:=wdLine, Count:=1
         Selection.TypeText Text:="三.计算题(" & Form3.List3.ListCount & "道题共" & compscore & "分)"
    Selection.MoveDown Unit:=wdLine, Count:=1
For i = 1 To compsum
    Selection.TypeText Text:=CStr(i) + "." + selected_comp(i).subject
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InlineShapes.AddPicture FileName:= _
        App.Path & "\image\" & selected_comp(i).img, _
        LinkToFile:=False, SaveWithDocument:=True
      For j = 1 To selected_comp(i).blank
        Selection.TypeParagraph
      Next j
        Selection.MoveDown Unit:=wdLine, Count:=1
Next i
Set mDoc = Nothing
Set mApp = Nothing