利用WORDVBA快速制作评审佐证材料

利用 WORD VBA快速制作评审佐证材料

摘要：VBA 是 Visual Basic For Applications 的缩写，是内嵌于office软件中的一个开发模块，是Visual Basic的一种宏语言。WORD中的很多任务通过编写 VBA代码，可以快速实现，并且重复性操作。本文阐述了应用WORD VBA实现教员在各种评审过程中佐证材料的快速准备，包括多个业绩证明图片的批量导入、单个或者批量图片的大小处理、图片说明标题的设置和佐证材料目录的生成等，为WORD VBA应用提供了有益的尝试和实践。

关键词：WORD VBA，佐证材料，图片导入，图片处理，标题设置，目录生成

一、佐证材料制作要求

教员在开展年度考评、调职调级、职称评审和职称续任的时候通常需要制作业绩佐证材料文档，这个文档主要是把教员在规定时间段内各种业绩的证明以电子图片的形式集中在一起。大量图片、文字的处理和混合排版是非常繁琐并且容易混乱错位。佐证材料通常还要求以目录的形式显示各项业绩清单并附有页码。教员们经常需要使用WORD制作佐证材料，但往往是费时费力、事倍功半。

二、WORD VBA特点

WORD是一个高级的办公软件，但是绝大多数用户只用到了WORD的极少数功能，这些未用到的功能很多是和VBA相关的。VBA被称为宏语言，但是它决不能和宏划上等号，宏是一条指令或者几条指令的集合，控制WORD执行一连串的操作。而VBA则是编程高级语言，通过面向对象的方法来实现复杂的功能。VBA使应用程序具有“生命”的特征，以适应不同的环境，不同的应用和不同的用户，主要表现为定制化、自动化、协作化。

VBA的特点是将VB语言与应用对象模型结合起来，处理各种应用需求。WORD VBA则是将VB应用于WORD对象模型，以达到各种应用的要求。要通过VBA控制WORD，必须同时熟悉VB语言和WORD对象模型。

三、WORD VBA制作评审佐证材料

评审佐证材料制作一般包括单个图片导入、批量图片导入、单个图片大小调整、批量图片大小调整、设置图片说明标题和生成佐证材料目录等具体操作要求。

（一）批量导入图片

功能说明：把预先准备好的各种业绩证明图片批量导入到佐证材料文档中。

实现代码：

Sub 批量插入图片()

Application.DisplayAlerts = False

Dim myfile As FileDialog

Set myfile = Application.FileDialog(msoFileDialogFilePicker)

With myfile

.InitialFileName = "d:\pic" '插入图片的目标文件夹

If .Show = -1 Then

For Each Fn In .SelectedItems

Selection.Text = Basename(Fn)

突变体

蓟县莱德商厦大火Selection.EndKey

If Selection.Start = ActiveDocument.Content.End - 1 Then '光标在文末则加空段

农夫山泉京华时报Selection.TypeParagraph

Else

Selection.MoveDown

End If

Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整图片尺寸

WidthNum = MyPic.Width

c = 13 '修改图片宽，单位为厘米

MyPic.Width = c * 28.35

MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height

If Selection.Start = ActiveDocument.Content.End - 1 Then

Selection.TypeParagraph

Else

Selection.MoveDown

End If

Next Fn

Else

End If

End With

Set myfile = Nothing

Selection.WholeStory

Selection.Style = ActiveDocument.Styles("标题 1") '定义标题1

Selection.Find.ClearFormatting奥本海默

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Style = ActiveDocument.Styles("正文")

With Selection.Find

牛荫冠

.Text = "^g"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindAsk

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting '图片居中

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.ParagraphFormat

.SpaceBeforeAuto = False

.SpaceAfterAuto = False

.Alignment = wdAlignParagraphCenter

.WordWrap = True

End With

With Selection.Find

错误郑愁予赏析.Text = "^g"

本文发布于:2024-09-21 13:26:54，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/163345.html

上一篇：在PowerPoint课件中如何用VBA技术制作交互型测试题

下一篇：vba中将一个数记录在指定的表格代码

标签：图片佐证材料应用语言

留言与评论（共有 0 条评论）