请教大家怎么用VB点虐 控制word中文字的行间

添加spire.doc.jar为依赖，百度搜索免费版的下载即可

我们提供的服务有：网站制作、做网站、微信公众号开发、网站优化、网站认证、古交ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的古交网站制作公司

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点虐 怎样控制其它应用程序

你可以查看一下点虐 为你提供的管理进程相关方法；

system.diagnostics.process

有启动停止相关进程的方法，也有传递参数、等待、控制优先级方法。

桌面程序调用帮助文档（CHM），按F1就是个例子。

如何在VB点虐 中用程序控制鼠标移动和点击

调用api

在Visual Baisc点虐 中的声明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模拟鼠标左键按下

本文标题：vbnet怎么控制 vbnet代码
分享URL：http://kswsj.cn/article/ddggiho.html