摘要：對于高職院校而言，在展示學院形象，提升學院教育品牌等方面，新聞宣傳起重要作用。新聞稿快速生成與排版系統(tǒng)界面美觀簡潔，操作簡單，生成的新聞稿結構完整、格式規(guī)范，大大提高新聞寫作速度，具有很好的實用價值，值得推廣應用。

關鍵詞：新聞稿;WordVBA;快速生成;排版系統(tǒng)

中圖分類號：TP311 文獻標識碼：A

文章編號：1009-3044（2020）33-0214-03

開放科學（資源服務）標識碼（OSID）：

對于高職院校而言，新聞宣傳在展示學院形象，提升學院教育品牌等方面起重要作用。如何高效、準確的生成結構完整、格式規(guī)范、新聞要素齊備的新聞稿件，是高校宣傳工作的重要課題。

1 當前新聞稿寫作存在問題

1.1新聞要素不齊備

新聞基本要素指時間、地點、人物、事件的起因、經(jīng)過、結果共六個要素，新聞要素不完整是指缺少其中某個要素，例如缺少地點，時間不詳細等。

1.2 新聞結構不完整

新聞基本結構一般包括：標題、導語、主體、結語、來源五部分。結構不完整是指缺少某些部分，比如缺少導語、結語。

1.3新聞格式不規(guī)范

新聞稿件中新聞標題、正文的文本字體、大小，對齊方式、行間距，圖片對齊方式、大小不規(guī)范等現(xiàn)象十分常見。

1.4手動輸入效率慢

當前新聞寫作，主要利用文字編輯軟件，比如word來編輯新聞文稿，其寫作效率低。

2 軟件主要功能

2.1快速生成結構完整、要素齊備的新聞

通過簡單設置，能快速生成新聞標題、導語、主體、結語以及稿件來源等信息，結構完整、要素齊備。

2.2 新聞稿自動排版

按規(guī)定格式實現(xiàn)自動排版。

2.3 新聞修改智能提醒

通過在稿件中添加批注，實現(xiàn)智能提醒，快速高效地修改新聞稿件。

3 軟件的選取

WordVBA是基于VB（Visual Basic）發(fā)展而來的，是微軟專門針對MS Office設計的開發(fā)語言，主要用于拓展MS Office的功能[2]，通過訪問WordVBA的屬性或調(diào)用方法即可實現(xiàn)對各個對象（段落、圖片、表格等）的操作。

4 軟件開發(fā)

軟件主要包括三大功能：新聞設置、生成新聞、新聞檢測，打開軟件后，打開右鍵菜單可看到功能設置選項。

4.1 新聞設置

新聞設置主要設置作者姓名、工作（負責攝影或?qū)懜澹┘八诘牟块T，界面如圖1所示，將數(shù)據(jù)寫入數(shù)據(jù)庫，方便主程序調(diào)用，只需設置一次。

4.2 生成新聞

生成新聞是軟件的主要功能，根據(jù)新聞結構和寫作順序，采用五個選項卡，依次設置標題、導語、主體、結語、來源。

4.2.1 生成標題

新聞標題，特別是簡訊類標題，一般包括新聞單位、類型、名稱，通過選擇單位、類型，輸入相關信息（如新聞名稱），快速生成新聞標題，如圖2所示。

以講座類新聞標題為例，選擇單位：部門（若在新聞設置中設置了單位，則不需選擇部門），然后選擇新聞主類型：講座論壇，再選擇子類型：講座，接著設置新聞的相關信息：講座名稱、主講人及職稱，新聞標題自動生成，如圖3（a）所示。

新聞子類型由主類型確定。新聞子類型一旦選定，系統(tǒng)自動生成相應新聞模板，該軟件可生成五十多個模板，以滿足日常新聞寫作的需要。

4.2.2 新聞導語

導語由兩部分組成：新聞導語和新聞要素。新聞導語為可選項，主要表達新聞舉辦的目的，其內(nèi)容由新聞子類型確定。例如新聞子類型為講座，只需要勾選導語復選框，即可得到講座的導語：“為進一步XXX，提高XXX，”可根據(jù)實際情況進行修改;新聞要素為必選項，包括時間、地點、參加人員、主持人等，要素的個數(shù)由新聞類型確定。選擇不同新聞要素時，導語預覽及時更新，方便查看。如圖3（b）所示。

4.2.3 新聞主體

新聞主體包括兩部分：新聞圖片和主體內(nèi)容兩部分。新聞圖片為可選項，當不設置時，新聞為純文字新聞，設置新聞圖片時，單擊插入圖片按鈕，系統(tǒng)自動判斷圖片的類型及大小，目前支持最多插入3張圖片;圖片標題和新聞主體內(nèi)容由系統(tǒng)自動設置，可根據(jù)需要進行修改，圖4為新聞主體設置界面。

4.2.4 新聞結語、來源

新聞結語主要介紹新聞舉辦的意義，新聞來源主要介紹作者信息及所在部門，二者的內(nèi)容由系統(tǒng)自動設置，可根據(jù)需要進行修改，如圖5所示。

4.2.5 生成新聞模板

按上述順序設置后，單擊【生成新聞】按鈕，自動生成新聞稿。程序主要功能如圖6所示。

下面重點介紹文檔排版。文檔排版，指按新聞稿格式要求，對文檔排版，如圖7所示，以正文排版為例，設置正文文本的字體、大小、對齊方式、首行縮進、行間距、段前段后的距離等。

程序如下：[1][3][4】

'正文樣式

For i=2 To ActiveDocument.Paragraphs.Count

If InStr（1， ActiveDocument. Paragraphs（i）. Range. Text，”信息來源”）Then

m=i

Exit For

Else

m= ActiveDocument.Paragraphs.Count

Exit For

End If

Nexti

Fori=2 Tom -1

With ActiveDocument.Styles（wdStyleNormaI）.Font

'設置字體、大小

.Name=”宋體”

.Size= 12

End With

With ActiveDocument. Styles（wdStyleNormal）. Paragraph-Format

對齊方式，左對齊

.Alignment= wdAlignParagraphLeft

'首行縮進

.CharacterUnitFirstLinelndent=2

'行間距，2倍行距

.LineSpacingRule= wdLineSpaceDouble

'設置段前段后的距離

.SpaceBefore=0

.SpaceAfter=0

End With

ActiveDocument.Paragraphs（i）.Style= wdStvleNormal

Nexti

文檔排版后加批注，主要利用正則表達式查找文檔中的“XXX”內(nèi)容（即修改的內(nèi)容），若查到，則在文檔相應位置加上批注，實現(xiàn)智能提醒。如圖8所示。

5 軟件的應用

啟動軟件后單擊右鍵，首先點擊【新聞設置】項（首次使用時設置），然后在右鍵菜單中點擊【生成新聞】項，通過設置各選項卡，生成新聞稿，并編輯，最后在右鍵菜單中點擊【新聞內(nèi)容檢測】，借助批注修改新聞稿。

該軟件界面美觀簡潔，操作簡單，方便實用，通過在學院推廣使用，受到師生一致好評。目前該軟件是學院版，各功能還需要繼續(xù)完善，其數(shù)據(jù)擴展性還需要進一步提高。

6 結束語

軟件根據(jù)新聞的寫作順序，符合人們寫作習慣，其界面美觀簡潔，操作簡單，生成新聞稿件，結構完整、格式規(guī)范，大大提高新聞寫作的速度，具有較高的實用價值，在高職院校新聞寫作中值得大力推廣。

參考文獻：

[1]邵小兵，廖慧芬.利用VBA實現(xiàn)Word自動排版[J].中國教育技術裝備，2005（10）：45-46

[2]吳智.基于WordVBA畢業(yè)設計論文格式自動檢測研究[J].電腦知識與技術，2019，15（15）：105-107.

[3]宋作臣.基于Word VBA自動排版系統(tǒng)的設計與開發(fā)[D].濟南：齊魯工業(yè)大學，2016.

[4]張亮.基于ExcelVBA的文書快速生成工具[J].電腦知識與技術（學術交流），2016（112）：264-265.

【通聯(lián)編輯：謝媛媛】

作者簡介：吳智（1978-），男，四川廣元人，高級工程師，學士，主要研究方向為機電一體技術與辦公自動化。