包含vb点虐 doc版的词条
vb点虐 怎么找doc中关键字的在第几页
,,,,,,,,。。。。。。。。?????????!!!!!!!!!
为嘉峪关等地区用户提供了全套网页设计制作服务,及嘉峪关网站建设行业解决方案。主营业务为成都网站设计、成都网站建设、嘉峪关网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
请教大家怎么用VB点虐 控制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点虐 怎么对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中建立word文档,并写入文字和图片?
首先说明,你这样是写TXT,不是DOC,虽然Word可以打开,但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'这个过程不必做修改,是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字,请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片,请使用这种格式,路径自己写
End
Sub
其他问题再找我。
当前文章:包含vb点虐 doc版的词条
转载源于:http://scjbc.cn/article/ddsshdc.html