基于WordVBA新闻稿快速生成与排版系统的研究

摘要：对于高职院校而言，在展示学院形象，提升学院教育品牌等方面，新闻宣传起重要作用。新闻稿快速生成与排版系统界面美观简洁，操作简单，生成的新闻稿结构完整、格式规范，大大提高新闻写作速度，具有很好的实用价值，值得推广应用。

关键词：新闻稿;WordVBA;快速生成;排版系统

中图分类号：TP311 文献标识码：A

文章编号：1009-3044（2020）33-0214-03

开放科学（资源服务）标识码（OSID）：

对于高职院校而言，新闻宣传在展示学院形象，提升学院教育品牌等方面起重要作用。如何高效、准确的生成结构完整、格式规范、新闻要素齐备的新闻稿件，是高校宣传工作的重要课题。

1 当前新闻稿写作存在问题

1.1新闻要素不齐备

新闻基本要素指时间、地点、人物、事件的起因、经过、结果共六个要素，新闻要素不完整是指缺少其中某个要素，例如缺少地点，时间不详细等。

1.2 新闻结构不完整

新闻基本结构一般包括：标题、导语、主体、结语、来源五部分。结构不完整是指缺少某些部分，比如缺少导语、结语。

1.3新闻格式不规范

新闻稿件中新闻标题、正文的文本字体、大小，对齐方式、行间距，图片对齐方式、大小不规范等现象十分常见。

1.4手动输入效率慢

当前新闻写作，主要利用文字编辑软件，比如word来编辑新闻文稿，其写作效率低。

2 软件主要功能

2.1快速生成结构完整、要素齐备的新闻

通过简单设置，能快速生成新闻标题、导语、主体、结语以及稿件来源等信息，结构完整、要素齐备。

2.2 新闻稿自动排版

按规定格式实现自动排版。

2.3 新闻修改智能提醒

通过在稿件中添加批注，实现智能提醒，快速高效地修改新闻稿件。

3 軟件的选取

WordVBA是基于VB（Visual Basic）发展而来的，是微软专门针对MS Office设计的开发语言，主要用于拓展MS Office的功能[2]，通过访问WordVBA的属性或调用方法即可实现对各个对象（段落、图片、表格等）的操作。

4 软件开发

软件主要包括三大功能：新闻设置、生成新闻、新闻检测，打开软件后，打开右键菜单可看到功能设置选项。

4.1 新闻设置

新闻设置主要设置作者姓名、工作（负责摄影或写稿）及所在的部门，界面如图1所示，将数据写入数据库，方便主程序调用，只需设置一次。

4.2 生成新闻

生成新闻是软件的主要功能，根据新闻结构和写作顺序，采用五个选项卡，依次设置标题、导语、主体、结语、来源。

4.2.1 生成标题

新闻标题，特别是简讯类标题，一般包括新闻单位、类型、名称，通过选择单位、类型，输入相关信息（如新闻名称），快速生成新闻标题，如图2所示。

以讲座类新闻标题为例，选择单位：部门（若在新闻设置中设置了单位，则不需选择部门），然后选择新闻主类型：讲座论坛，再选择子类型：讲座，接着设置新闻的相关信息：讲座名称、主讲人及职称，新闻标题自动生成，如图3（a）所示。

新闻子类型由主类型确定。新闻子类型一旦选定，系统自动生成相应新闻模板，该软件可生成五十多个模板，以满足日常新闻写作的需要。

4.2.2 新闻导语

导语由两部分组成：新闻导语和新闻要素。新闻导语为可选项，主要表达新闻举办的目的，其内容由新闻子类型确定。例如新闻子类型为讲座，只需要勾选导语复选框，即可得到讲座的导语：“为进一步XXX，提高XXX，”可根据实际情况进行修改;新闻要素为必选项，包括时间、地点、参加人员、主持人等，要素的个数由新闻类型确定。选择不同新闻要素时，导语预览及时更新，方便查看。如图3（b）所示。

4.2.3 新闻主体

新闻主体包括两部分：新闻图片和主体内容两部分。新闻图片为可选项，当不设置时，新闻为纯文字新闻，设置新闻图片时，单击插入图片按钮，系统自动判断图片的类型及大小，目前支持最多插入3张图片;图片标题和新闻主体内容由系统自动设置，可根据需要进行修改，图4为新闻主体设置界面。

4.2.4 新闻结语、来源

新闻结语主要介绍新闻举办的意义，新闻来源主要介绍作者信息及所在部门，二者的内容由系统自动设置，可根据需要进行修改，如图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”内容（即修改的内容），若查到，则在文档相应位置加上批注，实现智能提醒。如图8所示。

5 软件的应用

启动软件后单击右键，首先点击【新闻设置】项（首次使用时设置），然后在右键菜单中点击【生成新闻】项，通过设置各选项卡，生成新闻稿，并编辑，最后在右键菜单中点击【新闻内容检测】，借助批注修改新闻稿。

该软件界面美观简洁，操作简单，方便实用，通过在学院推广使用，受到师生一致好评。目前该软件是学院版，各功能还需要继续完善，其数据扩展性还需要进一步提高。

6 结束语

軟件根据新闻的写作顺序，符合人们写作习惯，其界面美观简洁，操作简单，生成新闻稿件，结构完整、格式规范，大大提高新闻写作的速度，具有较高的实用价值，在高职院校新闻写作中值得大力推广。

参考文献：

[1]邵小兵，廖慧芬.利用VBA实现Word自动排版[J].中国教育技术装备，2005（10）：45-46

[2]吴智.基于WordVBA毕业设计论文格式自动检测研究[J].电脑知识与技术，2019，15（15）：105-107.

[3]宋作臣.基于Word VBA自动排版系统的设计与开发[D].济南：齐鲁工业大学，2016.

[4]张亮.基于ExcelVBA的文书快速生成工具[J].电脑知识与技术（学术交流），2016（112）：264-265.

【通联编辑：谢媛媛】

作者简介：吴智（1978-），男，四川广元人，高级工程师，学士，主要研究方向为机电一体技术与办公自动化。