189 8069 5689
不清楚报错信息，只能给以下提示：
庆安网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。创新互联2013年至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
1、工程--引用,选Microsoft Word 11.0 Object Library
2、声明并赋值word程序相关变量，注意步骤不能乱。
Dim appObj As New Word.Application '新建一个word程序对象
Dim docObj As Word.Document '声明文档对象，也可以用new新建
Dim strFile As String = "D:\MyDocu.doc"
docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打开文档
docObj.Activate()'激活文档
.......
With docObj
.Save()
.Close()
End With
docObj = Nothing
appObj = Nothing
注意：声明word对象和文档对象，应该提示错误，你只需要点击“示警”图标，在展打的选项里选第1项导入就可以了。
将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！
同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2,
将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2
如果今后遇到这种问题，直接打开Word，然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真实值。
从菜单：项目\添加引用，在打开的对话框的.Net页面中找到：Microsoft.Office.Interop.Word
代码如下：
Dim w As New Microsoft.Office.Interop.Word.Application
Dim d As Microsoft.Office.Interop.Word.Document = w.Documents.Add '添加一文档
d.SaveAs("c:\myWord1") '保存为myWord1文件名。
d.Close()
在Com页面也有Word对象库的引用，大体一样吧，只是路径有所不同。
添加spire.doc.jar为依赖，百度搜索免费版的下载即可
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing
Namespace SetRowSpace
Class Program
Shared Sub Main(ByVal args() As String)
'创建文档
Document doc = New Document()
'添加section
Dim s As Section = doc.AddSection()
'添加段落
Dim para As Paragraph = s.AddParagraph()
para.AppendText("这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，" +
"这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，"+
"这是测试文字，这是测试文字，这是测试文字，这是测试文字。")
'设置段落中行距
para.Format.LineSpacing = 20f
'创建段落样式
Dim style As ParagraphStyle = New ParagraphStyle(doc)
style.Name = "paraStyle"
style.CharacterFormat.FontName = "宋体"
style.CharacterFormat.FontSize = 13
doc.Styles.Add(style)
'应用段落样式
para.ApplyStyle("paraStyle")
'保存文档
doc.SaveToFile("SetLineSpacing.docx", FileFormat.Docx2013)
System.Diagnostics.Process.Start("SetLineSpacing.docx")
End Sub
End Class
End Namespace