资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

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


本文标题:vb.net控制word Vb Net
本文来源:http://www.cdkjz.cn/article/dodgjep.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220