首先你要理解的是在word也是定格写的。之所以你看起来首行空两个格，是整个文档设置啦首行缩进属性 为两个格。所以这两个格要你自己添加
可以这样改写代码
RichTextBox1.Text = WDAPP.Documents(1).Content.Text
为
RichTextBox1.Text = " " & replace(WDAPP.Documents(1).Content.Text,vbcrlf,vbcrlf & " "）
'就是把每行结尾的回车换行 后面加两个格，同时第一行加两个空格
不需要这么复杂
只需要
RichTextBox1.LoadFile App.Path & "\word.doc", rtfRTF
找高手
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024