快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

葡萄京娱乐场手机APP:在Visual Basic 6.0 中创建Word文档



择要:阐发了Word工具模型的布局,分外是Document工具及其应用措施,提出了在Visual Basic中创建Word款式文档的措施,并给出了该措施的利用实例。

关键词:Visual Basic,Word工具模型,文档

小序

Word文档是实际事情进修中最为常用的文档款式之一。

跟着社会信息化程度的前进,一些传统的由人工完成事情徐徐转向由谋略机来处置惩罚。谋略机自动组卷系统就是一个范例的例子。为了追求更高的效率,一些谋略机自动组卷系统的单位用户要求由软件输出Word款式的试卷不需排版直接供印刷应用。

因为Microsoft Office套件的遍及,Word文档、电子表格文档、电子幻灯片等文档日渐常用。虽然在Office中各个法度榜样的文档可以方便地转换,然则这种转换因此掉去文档蓝本的款式为价值的。例如,在自动组卷系统中,存储在Access数据库中的试卷可以经由过程Access供给的导出功能孕育发生Word文档,但孕育发生的文档是无款式的,需花费大年夜量光阴从新排版方可相符用户在试卷款式上的要求。

针对这一问题,本文评论争论经由过程钻研Word工具模型,提出应用该工具模型创建相符用户所要求的特定款式的Word文档的措施。

Word工具模型

1、Word工具模型层次布局

工具是 Visual Basic的基石,险些在 Visual Basic 中的每个操作都与改动工具有关。Word 的任何元素(如文档、表格、段落、域、书签等)都可以用 Visual Basic 中的工具来代表。

工具代表一个 Word 的元素,如文档、段落、书签或单个的字符。聚拢也是一个工具,该工具包孕其他数个工具,平日这些工具属于相同的类型,例如,一个聚拢工具中可包孕文档中的所有书签工具。经由过程应用属性和措施,可以改动单个的工具,也可改动全部的工具聚拢。

Microsoft Word Visual Basic供给一套完备的Word工具模型,这是一个以Application为顶层工具的工具层次布局。其布局如图-1所示。

工具由两种类型的成员构成,一种是属性,第二种成员是措施。

属性是工具的一个特点或者该工具行径的一个方面。例如,文档属性包孕名称、内容、保存状态以及是否启用修订。要变动一个工具的特性,可以改动其属性值。要设置一个属性的值,需在工具的后面紧接一个句点、属性名称、一个等号及新的属性值。下面的示例在"MyDoc.doc"文档中启用修订。

Documents("MyDoc.doc").TrackRevisions = True

措施是工具可以进行的动作。例如,只要文档可以打印,Document 工具就具有 PrintOut 措施。措施平日都带有参数,限制动作将若何进行。下面的示例打印活动文档的前三页。

ActiveDocument.PrintOut From:=1, To:=3

在大年夜多半环境下,措施是动作,而属性是性子。应用措施将导致针对工具的某些工作发生,而应用属性则会返回工具的信息,或者引起工具的某个性子的改变。

2、Document工具和Documents 聚拢工具

在 Visual Basic 中,可应用 Document 工具或 Documents 聚拢工具的措施来改动文件。Document 工具是本文用来创建Word 文档的主要工具。

Word工具模型中Documents(Document)工具集(或Document)工具的布局如图-2所示。

此中的 Paragraphs 聚拢工具与PageSetup工具将是下文的主角。Paragraphs 聚拢工具是由选定内容、范围或文档中的 Paragraph 工具组成的聚拢。PageSetup 工具代表页面设置描述。PageSetup 工具包孕了文档的所有页面设置属性(左边距、下边距、纸张大年夜小,等等)。

在认识了Word 工具模型的根基上,我们可以应用Document 工具对Word 文档进行各类操作,例如:

2.1 新建一篇文档

Documents 聚拢包孕所有打开的文档。要新建一葡萄京娱乐场手机APP篇文档,可应用 Add 措施将一个 Document 工具添至 Documents 聚拢。

新建文档的措施之一是应用Add措施。Add 措施将返回 Document 工具,该工具引用新文档。鄙人面的示例中,把 Add 措施返回的 Document 工具付与一个工具变量 newDoc。然后设置该 Document 工具的几种属性和措施。经由过程 newDoc 工具变量,可以很轻易地节制新文档。

Set newDoc = Documents.Add

With newDoc

.Content.Font.Name = "Arial"

.SaveAs FileName:="Sample.doc"

End With

2.2 打开文档

要打开一篇现有的文档,可应用 Documents 聚拢的 Open 措施。下面的代码打开名为 MyDocument.doc 的文档(该文档位于"MyFolder"文件夹中)。

Documents.Open FileName:="C:\MyFolder\MyDocument.doc"

2.3 保存一篇现有文档

要保存一篇文档,可应用 Document 工具的 Save 措施。下面的代码保存名为 Sales.doc 的文档。

Documents("Sales.doc").Save

假如对 Documents 聚拢利用 Save 措施,可以保存所有打开的文档。下面的代码保存所有打开的葡萄京娱乐场手机APP文档。

Documents.Save

2.4 保存一篇新文档

要保存一篇文档,可应用 Document 工具的 SaveAs 措施。下面的代码将活动文档保存于当前文件夹,取名为"Temp.doc"。

ActiveDocument.SaveAs Fil葡萄京娱乐场手机APPeName:="Temp.doc"

FileName 参数可以只包孕文件名,也可包孕完备的路径(例如"C:\Documents\Temporary File.doc")。

2.5 关闭文档

要关闭单个文档,可应用 Document 工具的 Close 措施。下面的代码关闭并保存名为 Sales.doc 的文档。

Documents("Sales.doc").Close SaveChanges:=wdSaveChanges

可利用 Documents 聚拢的 Close 措施关闭所有的文档。下面的代码在不保存改动的环境下关闭所有的文档。

Documents.Close SaveChanges:=wdDoNotSaveChanges

在Visual Basic中创建Word文档

1、Visual Basic中创建Document工具

所有的事情都从Document工具开始,首先在Visual Basic中创建一个Document工具的实例,然后就可以对该实例进行各类可节制:

Dim newDoc As Word.Document

Set newDoc = n葡萄京娱乐场手机APPew 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、输出文葡萄京娱乐场手机APP档

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

newDoc.SaveAs FileName:="Sample.doc"

newDoc.PrintOut

利用实例

以上措施在笔者为某市市委组织部开拓的谋略机自动组卷系统中加以利用,该系统流程如图-4所示。

该系统孕育发生的试卷要求直接用于稽核和选拔基层干部的考试中,首先由出题者输入试卷参数,即组卷规则,然后由软件自动组卷并输出Word款式的试卷。笔者利用上述措施开拓的软件系统完全满意了用户需求。系统现已投入运行,极大年夜地前进了事情效率,得到了用户的好评。

停止语

本文提出的在Visual Basic中创建Word文档的措施基于工具模型,实用性强,也可以用于其它支持ActiveX的开拓平台中。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: