Question

vb读取word文件显示在RichTextBox中

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 = Nothing
end sub

Answer 1

首先你要理解的是在word也是定格写的。之所以你看起来首行空两个格，是整个文档设置啦首行缩进属性 为两个格。所以这两个格要你自己添加
可以这样改写代码
RichTextBox1.Text = WDAPP.Documents(1).Content.Text

为
RichTextBox1.Text = "　　" & replace(WDAPP.Documents(1).Content.Text,vbcrlf,vbcrlf & "　　"）

'就是把每行结尾的回车换行 后面加两个格，同时第一行加两个空格

追问

不对啊，显示只有第一行前边空两格了，其余没有空两格，还有我第一行在word里面就是顶格的，是标题，不需要空的。这怎么解决啊？

追答

RichTextBox1.Text = replace(WDAPP.Documents(1).Content.Text,vbcr,vbcr & "　　"）
试试

追问

谢谢，运行发现刚好反过来，也就是说第一行顶格了，其余的都空两格了。可是有个问题，我的格式是
（1）#######
　　 前边空两格，下边还有第二个、第三格标题是顶格的
（2）#########
前边空两格########
所以就第一个标题顶格了，其余的标题未顶格。最后我就把代码改成RichTextBox1.Text = “ ”&replace(WDAPP.Documents(1).Content.Text,vbcr,vbcr & "　　"）都让他们前边顶格了。vbcrlf和vbcr是什么意思？

追答

先给你解释 vbcrlf 是回车加换行的意思 VB 是说是个Vb变量， cr 是回车，lf 是换行的意思
一般我们另起一行都是 vbcrlf 回车 并换行，而VB中只是个回车 所以用vbcr
既然你要在每行前空两个格，那么就在每个回车的后面加两个空格 就是 替换 vbcr 为vbcr & "　　"
接着我们讨论你的问题的解决方法
我们换个方法解决，（通往北京的不只有高速公路，还有乡间小道）只是有点崎岖
换该行。代码如下：
arrline=split(WDAPP.Documents(1).Content.Text,vbcr)
for i=1 to ubound(arrline)
if left(arrline(i))"（" then ‘ 这个括号换成你小标题的第一个字 一定要统一
arrline(i)="　　"　& arrline(i)
end if
next
RichTextBox1.Text =join(arrline,vbcr)
'如果需要解释请按我账号联系，别在这里啦

Answer 2

不需要这么复杂
只需要
RichTextBox1.LoadFile App.Path & "\word.doc", rtfRTF

Answer 3

找高手