vb.net控制word Vb Net

vb.net编程，对已打开的word或excel进行控制性编程

旧的技术 Ole，可以控制。

泰宁网站建设公司创新互联公司,泰宁网站设计制作，有大型网站制作公司丰富经验。已为泰宁1000多家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的泰宁做网站的公司定做！

现在一般使用ActiveX DLL的控制方式，像

Dim gApp As Word.Application

Dim gDoc As Word.Document

If Process.GetProcessesByName("Word").Length 0 Then

gApp = GetObject("Word.Application")

set gDoc=gApp.ActiveDocument

// 这样得到Document，就可以进行控制了。

End If

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

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

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中文字的行间距

你可以参考下这篇教程里面的方法C#设置段落间距，不过需要在你的工程文件中引用Spire.Doc.dll这个类库，

请教大家怎么用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