其实下边这段代码已经可以在vb6中把所有样式为标题1的标题显示出来的了,但在vb.net中,para.style的数据类型已不再是字符串,不能再比较了。看看能不能帮我变通一下。 =============================================Dim app As New Word.Application Dim doc As Word.Documentapp.Visible = True doc = app.Documents.Open("e:\xxx.doc")Dim para For Each para In app.ActiveDocument.Paragraphs if para.style = "标题 1" then MsgBox app.activedocument.range.text end if Next para
http://community.csdn.net/Expert/topic/3549/3549637.xml?temp=.4134333
=============================================Dim app As New Word.Application
Dim doc As Word.Documentapp.Visible = True
doc = app.Documents.Open("e:\xxx.doc")Dim para
For Each para In app.ActiveDocument.Paragraphs
if para.style = "标题 1" then
MsgBox app.activedocument.range.text
end if
Next para