RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
VB.NET如何实现Word文档创建Document对象

这篇文章主要介绍了VB.NET如何实现Word文档创建Document对象,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

目前创新互联建站已为超过千家的企业提供了网站建设、域名、网站空间绵阳服务器托管、企业网站设计、澧县网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

VB.NET Word文档的创建

1、Visual Basic中创建Document对象

所有的工作都从Document对象开始,首先在Visual Basic中创建一个Document对象的实例,然后就可以对该实例进行各种可控制:

Dim newDoc As Word.Document  Set newnewDoc = new Word.Document

一旦创建了Document对象,就可以设置文档的缺省格式,通过设置Content子对象的字体、行间距等属性加以实现:

  1. With newDoc  

  2. .Content.Font.Name = "宋体"   

  3. .Content.Font.Size = 12 

  4. .Content.Paragraphs.LineSpacing = 15.5  

  5. End With    

由此得到了一个空Word文档。

2、向Word文档中添加文本

接下来,向空文档中添加文本,这将使用Paragraphs集合对象来完成此项工作。InsertAfter方法将文本插入到Selection 或 Range 对象后;InsertBefore 方法将文本插入到Selection 或 Range 对象前。以下代码向文档结尾处添加一个段落并设置本段落格式:

With newDoc  .Content.InsertAfter "示例段落…"  .Paragraphs(NewDoc.Paragraphs.count).Alignment = wdAlignParagraphCenter .Paragraphs(NewDoc.Paragraphs.count).Range.Font.Bold = True .Paragraphs(NewDoc.Paragraphs.count).Range.Font.Size = 28 End With


可用 Paragraphs(index) 返回一个 Paragraph 对象,其中 index 为索引号;count属性值表示该文档主文字部分中的Paragraph对象数。NewDoc.Paragraphs.count恰好为当前正在添加的文本段落的索引号。

如果需要插入表格,可以使用Table 对象。Add 方法可以在指定范围内新增一表格。下例在活动文档的起始处添加一 3 x 4 的表格。

Set myRange = ActiveDocument.Range(Start:=0, End:=0)  ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

以可以使用制表字符得到表格。以下代码在文档尾部插入一个1x4 的表格。

  1. NewDoc.Content.InsertAfter "得分" & vbTab & " " & vbTab & "评卷人" & vbTab & " " & vbCr  

当所有段落都添加到文档以后,可以使用 PageSetup对象进行页面设置,这需要通过设置PageSetup对象的各种属性来完成。

1)设置分栏和栏间距:

newDoc.PageSetup.TextColumns.SetCount NumColumns:=2 newDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(2)


2)设置页边距:

With newDoc.PageSetup  .TopMargin = CentimetersToPoints(4.5)  .BottomMargin = CentimetersToPoints(1.5)  .LeftMargin = CentimetersToPoints(0.8)  .RightMargin = CentimetersToPoints(2)  End With

3)设置纸张大小:

With newDoc.PageSetup  .PageHeight = CentimetersToPoints(28.1)  .PageWidth = CentimetersToPoints(38.9)  End With

其他的设置项目不再详述。

3、输出文档

对创建完毕的文档,我们可以选自保存为磁盘文件或直接打印输出:

newDoc.SaveAs FileName:="Sample.doc" newDoc.PrintOut

该系统产生的试卷要求直接用于考核和选拔基层干部的考试中,首先由出题者输入试卷参数,即组卷规则,然后由软件自动组卷并输出Word格式的试卷。笔者应用上述方法开发的软件系统完全满足了用户需求。系统现已投入运行,极大地提高了工作效率,获得了用户的好评。

感谢你能够认真阅读完这篇文章,希望小编分享的“VB.NET如何实现Word文档创建Document对象”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


网站名称:VB.NET如何实现Word文档创建Document对象
当前地址:http://scyingshan.cn/article/pjhodi.html