●文员文职办公软件应用课程:从零基础开始,一次交费,长期有效,可反复学习。
●计算机二级Office等级考试课程:合格通过率高,一次未通过,全额退学费。
◆添加老师微信,为你安排两节课免费试学,微信号:2208315588
如果在word中重复进行某项工作可用宏使其自动执行

如果在word中重复进行某项工作可用宏使其自动执行

更新:2024-07-02 10:11:22
详情
将 word Basic 宏转换为 Visual Basic
    宏可使任务自动化,如果在 word 中重复进行某项工作,可用宏使其自动执行。宏是将一系列的 word 命令和指令组合在一起,形成一个命令,以实现任务执行的自动化。用户可创建并执行一个宏,以替代人工进行一系列费时而重复的 word 操作。事实上,它是一个自定义命令,用来完成所需任务。
    宏的一些典型应用如:加速日常编辑和格式设置、组合多个命令、使对话框中的选项更易于访问、使一系列复杂的任务自动执行等。
    word 提供了两种创建宏的方法:宏录制器和 Visual Basic 编辑器。宏录制器可帮助用户开始创建宏。word 在 VBA 编程语言中把宏录制为一系列的 word 命令。可在 Visual Basic 编辑器中打开已录制的宏,修改其中的指令。也可用 Visual Basic 编辑器创建包括 Visual Basic 指令的非常灵活和强有力的宏,这些指令无法采用录制的方式。
    当第一次进行下列任何操作时,word 2000 将自动转换 word 6.x 或 word 95 模板中的宏。 打开该模板。 基于该模板创建一篇新文档。 使用【工具】菜单中的【模板】命令将模板附加给一篇文档。在转换宏时,在状态栏会显示一条信息。转换结束后,必须保存模板,以保存转换后的宏。如果不保存模板,那么下次使用该模板时,word 会再次转换这些宏。
    宏里面的每个 word Basic 语句和函数都转换为相应的 word Basic 方法。转换过程将每个宏都转换为 Visual Basic 模块。如要查看转换过的宏,可在【工具】菜单上将鼠标指向【宏】,并单击【宏】命令。在【宏】对话框中的宏名称显示为 macroname.Main,其中 Main 指转换宏中的主子程序(该子程序在以前版本的 word 中以 Sub MAIN 开头)。要编辑转换过的宏,可选择一个宏名,单击【编辑】按钮,就可在 Visual Basic 编辑器中显示该 Visual Basic 模块。
Sub MAIN
FormatFont .Name = "Arial", .Points = 10
Insert "Hello World"
End Sub
    当该模板在 word 2000 中打开时,该宏转换为下列代码。 Public Sub Main()
word Basic.FormatFont Font:="Arial", Points:=10
word Basic.Insert "Hello World"
End Sub
    转换过的宏中的每个语句以 word Basic 属性(word Basic 属性返回一个自动化对象【word.Basic】,该对象包含了在 word 6.0 和 word for Windows 95 中所有可用的 word Basic 语句和函数的方法)开头。word Basic 是 word 2000 对象模型中的一个属性,该模型返回一个对象及所有的 word Basic 语句和函数;该对象使得在 word 2000 中运行 word Basic 宏成为可能。
注意:
    如果在保存该模板时覆盖原来的模板,则该 word Basic 宏会永久地丢失,并且以前版本的 word 也不能使用转换过的宏。
    word 97 中的宏在word 2000 中像在word 97 中一样使用而无需转换。
    下面的 Visual Basic 宏与以前的 word Basic 宏的功能相同,但是没有使用 word Basic 属性。
Public Sub Main() With Selection.Font .Name = "Arial" .Size = 10 End With Selection.TypeText Text:="Hello World" End Sub
    下面的示例是用 word.Basic 对象新建一篇文档,然后插入有效字体的名称。每个字体名称以与之相应的字体显示。如:“楷体,隶书、宋体”。
With word Basic
.FileNewDefault
For aCount = 1 To .CountFonts()
.Font .[Font$](aCount)
.Insert .[Font$](aCount)
.InsertPara
Next
End With
相关