WORD【VBA排版】

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

作者：吴智

来源：《电脑知识与技术》2020年第33期

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

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

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

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

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

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

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

1.1新闻要素不齐备

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

1.2 新闻结构不完整

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

1.3新闻格式不规范

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

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

2 软件主要功能

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

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

1 / 5

WordVBA-- “段落”格式的设置方法示例

一、设置段落的对齐方式

段落的“对齐方式 ”指令格式如下：

Selection.ParagraphFormat.Alignment= 设置值

下面示例设置段落的对齐方式为“左对齐”。

Sub SetAlignment()

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphLeft

End With

End Sub

“大纲级别 ”指令格式如下：

Selection.ParagraphFormat.OutlineLevel = 设置值对齐方式 ParagraphFormat.Alignment 属性值

左对齐 wdAlignParagraphLeft

居中 wdAlignParagraphCenter

右对齐 wdAlignParagraphRight

两端对齐 wdAlignParagraphJustify

分散对齐 wdAlignParagraphDistribute 2 / 5 下面示例设置段落的大纲级别为“正文文本”。

Sub SetOutlineLevel ()

With Selection.ParagraphFormat

.OutlineLevel = wdOutlineLevelBodyText

End With

End Sub 3 / 5 在大纲级别的下拉菜单中除“正文文本”外，还有 1 级到 9 级的大纲级别， 对应的

OutlineLevel 属性值分别为 wdOutlineLevel1 、 wdOutlineLevel2 、 、 wdOutlineLevel9 。

二、设置段落的缩进

设置段落的缩进有两种单位： 厘米和字符。

下面示例将段落的左缩进、右缩进分别设为 0.8cm 、0.5cm

Sub SetIndent ()

With Selection.ParagraphFormat

用VBA操作word表格Word的表格功能是非常重要的一个功能

用VBA操作word表格Word的表格功能是非常重要的一个功能，也是用户经常使用的一项功能，在Word 2003 中，增加了不少新的功能。如果利用VBA 自动处理表格将使用户的效率有极大的提高。

1. 向表格单元格插入文字

下面的代码向活动文档的第一个表格的第一个单元格插入文字。Cell 方法返回单个的Cell 对象。Range 属性返回一个Range 对象。Delete 方法用来删除现有的文字，而InsertAfter 方法用来插入"Cell

1,1"文字。

If ActiveDocument.Tables.Count >= 1 Then

With ActiveDocument.Tables(1).Cell （Row:=1,

Column:=1）.Range .Delete

.InsertAfter Text:="Cell 1,1"

End With

End If

2 在表格中插入文字

下面的代码在文档的开头插入一张3 行4 列的表格。For

Each...Next 结构用来循环遍历表格中的每个单元格。在For

Each...Next 结构中，InsertAfter 方法用来向表格单元格（Cell 1、

Cell 2 等等）添加文字。

Set oDoc = ActiveDocument

Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,

End:=0), NumRows:=3, NumColumns:=4)

iCount = 1

For Each oCell In oTable.Range.Cells

oCell.Range.InsertAfter "Cell " & iCount

iCount = iCount + 1

Next oCell oTable.AutoFormat Format:=wdTableFormatColorful2,

VBA操作WORD（五）批量调整图⽚⼤⼩、居中设置

需求：经常阅读⽹上的研报（没钱买排版漂亮的⾼质量研报），有些需要保存的复制下来到word⾥，图⽚很⼤都超出word的边界了，也没

有居中，⼿⼯⼀张张调整不现实，上百页的研报，⼏⼗张图⽚。

解决⽅案：利⽤VBA宏批量解决。

第⼀种⽅法经过测试，只是前⾯部分有些，后⾯部分⽆效。

Sub setpicsize() '设置图⽚尺⼨

'第⼀种⽅法，经测试，⽂档前⾯部分图⽚有效，后⾯部分⽆效

'Dim n '图⽚个数

'On Error Resume Next '忽略错误

'For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图⽚

'ActiveDocument.InlineShapes(n).Height = 198.45 '设置图⽚⾼度为 7cm

'ActiveDocument.InlineShapes(n).Width = 455 '单位是像素，设置图⽚宽度 16cm

'Next n

End Sub

第⼆种⽅法，经测试，对整篇⽂档图⽚有效：

Sub 设置图⽚格式()

'1.如果图⽚⾏间距设置为固定值，那么⽆论图⽚设置什么格式，图⽚嵌⼊⽂字会重叠，只显⽰部分图⽚。

'2.如果图⽚超出边界才进⾏处理，设置全⽂图⽚⼤⼩不超过某个规格，超过则等⽐例缩⼩

Dim picMaxWidth, picMaxHeight, picWith, picHeight As Long

'纸张宽减去左右边距，不⽤再乘以28.35，已经是像素

picMaxWidth = (ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin)

picMaxHeight = (ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.TopMargin - ActiveDocument.PageSetup.BottomMargin)