你可以参考下这篇教程里面的方法C#设置段落间距,不过需要在你的工程文件中引用Spire.Doc.dll这个类库,
创新互联公司主要从事网页设计、PC网站建设(电脑版网站建设)、wap网站建设(手机版网站建设)、成都响应式网站建设公司、程序开发、网站优化、微网站、小程序设计等,凭借多年来在互联网的打拼,我们在互联网网站建设行业积累了丰富的网站制作、成都网站建设、网站设计、网络营销经验,集策划、开发、设计、营销、管理等多方位专业化运作于一体。
从菜单:项目\添加引用,在打开的对话框的.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
将WDApp.wdParagraph直接修改成数值4,也就是变成 Unit:=4 试试看!
同时将后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,
将Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2
如果今后遇到这种问题,直接打开Word,然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真实值。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建目录,路径就自己改吧,如果路径存在,就没必要创建了
System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档
End Sub