vb读取word

vb读取word后，显示在RichTextBox中的文本不能像word中那样段前空两格，都是顶格显示的，如何解决这个问题呢？？ Dim WDAPP As Word.Application Set WDAPP = CreateObject("Word.Application") WDAPP.Documents.Open (App.Path & "\word.doc") WDAPP.Visible = False RichTextBox1.Text = WDAPP.Documents(1).Content.Text WDAPP.Quit Set WDAPP = Nothing vb读取word后，显示在RichTextBox中的文本不能像word中那样段前空两格，都是顶格显示的，如何解决这个问题呢？？Private Sub Command1_Click() Dim WDAPP As Word.Application Set WDAPP = CreateObject("Word.Application") WDAPP.Documents.Open (App.Path & "\word.doc") WDAPP.Visible = False RichTextBox1.Text = WDAPP.Documents(1).Content.Text WDAPP.Quit Set WDAPP = Nothingend sub