vb.net修改word vbnet修改word内容

vb.net怎么对word进行操作？？？？

不清楚报错信息，只能给以下提示：

庆安网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、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项导入就可以了。

vb.net操作word

将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！

同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2,

将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2

如果今后遇到这种问题，直接打开Word，然后

sub xx()

msgbox wdParagraph

end sub

就可以得到wdParagraph的真实值。

vb.net 关于word 问题请教

从菜单：项目\添加引用，在打开的对话框的.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对象库的引用，大体一样吧，只是路径有所不同。

请教大家怎么用VB.net控制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