Sub a()For n = 1 To 3 Step 1 Sheets(n)Select Dim mCom As Comment For Each mCom In ActiveSComments With mCSTextFCharacters With Font Bold = False Size = 11 Name = "宋体" End With End With NextNextEnd Sub
样式是一种可以命名的属性集合；在其之上改变属性则称之为格式，格式是不可命名的。从样式可以派生很多个格式。 例如，“目录1”是一种样式，如果某文字块被设置“目录1”，然后又设置了新的属性（例如改变了对齐方式），此时就叫格式了。可以看见下拉框选“有效格式”“有效样式”时有不同：“有效格式”中就有刚刚设置的“目录1＋右对齐”，而“有效样式”中就只有“目录1” ;一、宏的录制 在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。 单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。 给宏取名为“Yuan”，再单击“键盘”。 在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。 运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“NNewMYuan”拖放到工具栏中。 单击“停止录制”工具栏中的“停止录制”按钮。 单击“工具”选单中“宏”子选单，再单击“宏”命令。 选择第二步中的宏名称，再单击“编辑”按钮。 这时我们可以从中看到以下代码： Sub Yuan() SInsertSymbol Font:=〃楷体—GB2312〃，CharacterNumber:=－27，Unicode:=True End Sub 以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“NNewMYuan”便可以了。 二、宏的编辑 宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。 具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。 然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。 例如，在C:/My Document中有200个Word文档，依次命名为“doc”，“doc”，“doc”，…“doc”，我们需要把文件格式改变为文本文件，即txt文件。 先以doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下： Sub Macro1() ChangeFileOpenDirectory 〃C:/My document〃 DOpen FileName:=〃doc〃 ActiveDSaveAs FileName:=〃xt〃，FileFormat:=wdFormatText ActiveWClose End Sub 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下： Sub Macro1() dim i for i=1 to 200 ChangeFileOpenDirectory 〃C:/My document〃 DOpen FileName:=i ＆ 〃doc〃 ActiveDSaveAs FileName: =i ＆ 〃xt〃， FileFormat:=wdFormatText ActiveWClose next i End Sub 再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑。
