建体彩网|中彩网双色球连号|
?
快捷搜索:  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的開拓平臺中。

免責聲明:以上內容源自網絡,版權歸原作者所有,如有侵犯您的原創版權請告知,我們將盡快刪除相關內容。

您可能還會對下面的文章感興趣:

建体彩网
安徽快3御彩轩 免费的单机麻将 河北福彩排列七奖池 吉林十一选五最大遗漏 老友内蒙古麻将作弊器 黑龙江22选5历史开奖结果查询 陕西省福彩开奖结果 内蒙古时时彩历史开奖号码 广西快乐10分助手 宁夏十一选五手机版