WORD_VBA文档与字体

VBA语言専攻 2022-09-12

123

【分享成果，随喜正能量】心里不舒服，那是装了不该装的东西，根源不在别人那里，而往往在自己这里；自己的心装什么不装什么，没人可以左右。。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目录和VBA工具目录)，现在已经全部完成。

如果您VBA是入门阶段，可以打包选择7.1.3.9教程，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。

VBA工具系列系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列，这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程的语言，博大精深。很多朋友咨询英语和VBA的关系，这里我会分享些一些有用的VBA案例：《VBA即用型代码案例（汉英）》，案例中我会用汉语和英语同时发布，学员可以更好的领会和掌握VBA中用到的一些英语。今日的内容：WORD_VBA文档与字体

第五章 Word 基本代码示例

Word Basic Macro Examples

3 文档Document

Description	描述	VBA Code
Activate	激活	Documents(“Example.doc”).Activate
Add to Variable	添加到变量	Dim doc As Document
		Set doc = Documents.Add
Add	添加	Documents.Add
Add (From Another Doc)	添加（来自另一个文档）	Documents.Add Template:=”C:\Forms\FormDoc.doc”, _
		NewTemplate:=False
Close	关	Documents(“Example.doc”).Close
Close – Save Changes	关闭 - 保存更改	Documents(“Example.doc”).Close SaveChanges:=wdSaveChanges
Close – Do Not Save	关闭 - 不保存	Documents(“Example.doc”).Close SaveChanges:=wdDoNotSaveChanges
Close – Prompt to Save	关闭 - 提示保存	Documents(“Example.doc”).Close SaveChanges:=wdPromptToSaveChanges
Save As	另存为	Documents(“Example.doc”).SaveAs (“C:\Example\Example.doc”)
Save	节省	Documents(“Example.doc”).Save
Protect	保护	Documents(“Example.doc”).Protect Password:=”password”
Unprotect	取消保护	Documents(“Example.doc”).UnProtect Password:=”password”
Number of Pages	页数	Dim varNumberPages as Variant
		varNumberPages = _
		ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)
Print	打印	Documents(“Example.doc”).Print

4 字体Font

Description	描述	VBA Code
Size	字体大小	Selection.Font.Size = 12
Bold	粗体	Selection.Font.Bold = True
Italics	斜体	Selection.Font.Italic = True
Underline	下划线	Selection.Font.Underline = wdUnderlineSingle
All Caps	全部大写	Selection.Font.AllCaps = True
Color	颜色	Selection.Font.TextColor = vbRed
Name	姓名	Selection.Font.Name = “Abadi”
Subscript	下标	Selection.Font.Subscript = True
SuperScript	上标	Selection.Font.Superscript = True
Highlight Color	高亮颜色	Selection.Range.HighlightColorIndex = wdYellow
Style	样式	Selection.Style = ActiveDocument.Styles(“Normal”)