科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件在Visual Basic 6.0 中创建Word文档

在Visual Basic 6.0 中创建Word文档

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文分析了Word对象模型的结构,提出了在VB中创建Word格式文档的方法。

作者:寻大勇 来源:计算机与信息技术 2007年10月14日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
在Visual Basic中创建Word文档

  1、Visual Basic中创建Document对象

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

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

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

With newDoc
.Content.Font.Name = "宋体"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.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 的表格。

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

  创建的表格如图-3所示:


  3、页面设置

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

  3.1 设置分栏和栏间距:

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

  3.2 设置页边距:

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

  3.3 设置纸张大小:

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

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

  4、输出文档

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

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

  应用实例

  以上方法在笔者为某市市委组织部开发的计算机自动组卷系统中加以应用,该系统流程如图-4所示。


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

  结束语

  本文提出的在Visual Basic中创建Word文档的方法基于对象模型,实用性强,也可以用于其它支持ActiveX的开发平台中。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章