Word+VB高级应用案例2.doc

案例2：Word中媒体的简单控制与应用（版权所有，请勿转载）目录（说明：用鼠标单击下列目录项，即调用相应内容。）一、Word中的媒体及其简单控制的思路二、Visual Basic编辑器简单介绍三、Word中基于控件的音频与视频对象的插入与简单控制四、Word中“控件（Flash动画）”对象的插入与简单控制五、Word中“控件（Image）”对象的插入与简单控制六、Word中“控件（TextBox）”和“控件（Label）” 的插入与简单控制七、多媒体小报的编制八、初步了解宏、控件与VBA一、Word中的媒体 及其简单控制的思路返回目录大家一般都知道在Word文档中可以插入文本、图像、艺术字、自选图形，但很少有人知道还可以在其中插入音频、视频、动画，以及对它们进行交互控制。本案例将介绍基于“控件”的音频、视频、动画、图像、文本的简单控制，以及它们的应用。由于艺术字、自选图形不是“控件”，而是“Shapes对象”，控制原理和方法不同，将在后续案例中介绍。Word提供的媒体“控件”对象默认对象控件名称媒体文件格式WindowsMediaPlayer1音频：wav、mp3、wma视频：avi、mpg、wmvShockwaveFlash1SwfImage1jpg、bmp等TextBox1交互文本Label文本、图像在Word中可以使用Windows Media Player、Shockwave Flash Object、Image、TextBox、Lable等“控件”对象实现对各自对相应的音频、视频、Flash动画、图像、文本的播放或显示控制。“媒体控件”各自适用的常用“媒体格式”见右表。准备工作与图像通常被嵌入Word文档不同，多媒体“控件”对象通常是以独立文件的形式被引用。为简化路径，本案例假设Word文档和其引用的多媒体文件存于同一个文件夹中。简单控制的思路利用“控件（命令按钮）”、VBA程序（事件、属性、方法）进行简单控制。二、Visual Basic编辑器简单介绍返回目录在Word窗口执行“命令（工具宏Visual Basic编辑器）”，将弹出简化的“窗口（Visual Basic编辑器）”。“Visual Basic编辑器”窗口界面及各部分的基本作用“Visual Basic编辑器”窗口界面结构组成简化的“窗口（Visual Basic编辑器）”（见上图）分为以下三个区域：上部区域：一般用于放置标题栏、菜单栏和工具按钮栏。中部左侧区域：一般用于放置“窗口（工程资源管理器）”等。中部右侧区域：一般用于放置“窗口（代码）”等。从上图中可以看出，上述窗口都是嵌入“窗口（编辑器）”中的“窗格”，称为“窗口”的原因是用鼠标可以把它们中的某些拖出“窗口（编辑器）”，而形成独立显示的“窗口” 。简化的“窗口（Visual Basic编辑器）”各部分的基本作用“窗口（工程资源管理器）”显示一个或多个工程的分层结构列表，其中包含各工程引用的的全部工程（以Word中的工程为例，包括：相关“文档（Document）”、“用户窗体（UserForm）”、“模块”、“类别模块”、“ActiveX设计器”、“引用”等，本课程只简单介绍“模块”和ThisDocument两种工程对象。如果打开“窗口（Visual Basic编辑器）”时其左侧没有显示“窗格（工程资源管理器）”，可执行“命令（视图工程资源管理器）”。“窗口（代码）”显示与编辑指定“模块”中的“宏代码”或指定文档中的VBA程序代码，这是程序编制者的主要工作“窗口”。如果打开“窗口（Visual Basic编辑器）”时其右侧没有显示“窗格（代码）”，可用鼠标单击“窗口”左侧“窗格（工程资源管理器）”中的“模块（NewMacros）”，或“ThisDocument项“。“Visual Basic编辑器”的基本使用插入“模块”与编写“宏代码”在“窗口（Visual Basic编辑器）”中执行“命令（插入模块）”，可在“窗口“左侧的“窗格（工程资源管理器）”当前文档名对应的“Project项“下面插入“模块1”（用户可根据需要继续插入新的“模块”）。单击新插入的“模块1”，即可在“窗口”右侧的“窗格（代码）”中编写“宏代码”。注意：用户录制“宏”时，将自动插入相应“模块”，并在其中自动输入相应“宏代码”。编制VBA代码基本方法：在“窗口（Visual Basic编辑器）”左侧的“窗格（工程资源管理器）”中用鼠标单击当前文档名对应的“Project项”下面的“thisDocument项”，即可在“窗口”右侧的“窗格（代码）”中编写VBA代码。快捷方法：在Word处于“设计模式”时，双击要编写其单击事件的“控件”，则直接输入“单击（Click）”事件的首、尾语句代码，并可进一步输入其中的代码。查看与设置“属性”参数查看“属性”参数的简单方法：在Word文档“窗口”处于“设计模式”时，用鼠标右击“控件”，再在弹出的菜单中选择“命令（属性）”，即可在弹出的“对话框（属性）”中查看“属性”参数。设置“属性”参数有两种方法：其一是人工设置，即在上面介绍的查看“属性”参数时进行设置；其二是通过“宏代码”或VBA代码的赋值语句设置。三、Word中基于控件的音频与视频对象的插入与简单控制返回目录插入“控件对象”执行“命令（插入对象）”，在“对话框（新建）”中选择“Windows Media Player”，按插入的先后自动顺序命名为“WindowsMediaPlayer1、2”。交互界面设置鼠标右击播放器，选择“命令（属性）”，弹出“对话框（属性）”（见右图）。直接在“uiMode”栏中根据需要设置交互界面：Full：含“视频窗口”和“控制区”全部控制。Mini：含“视频窗口”和“控制区”部分控制。None：只含“视频窗口”（需采用“控件（命令按钮）”等和VBA程序控制）。Invisible：对象消隐（可用做背景音频，视频一般不采用消隐）。初学者也可以单击“对话框（属性）”的“自定义”栏右侧“按钮（）”，再在继续弹出的“对话框（Windows Media Player属性）”的“下拉列表框（选择模式）”中选择设置。播放器尺寸设置对于音频，可以通过“属性（Height和Width）”设置播放器的尺寸。对于视频，播放器尺寸通常将自适应视频尺寸，人工设置参数无效。最简控制：属性参数设置法与播放控制 右击“播放器”，选择“命令（属性）”，在“URL”栏（见右图）输入相应音频或视频文件的URL地址。说明：该地址可以是本机硬盘上的媒体文件地址，对于本机文件，一般最好将之与文档存放于同一文件夹中，此时只须简单输入文件全名，如果相应音频或视频不能播放，请改用绝对路径或借助VBA语句；该地址也可以是网上媒体文件的URL地址。点击“工具栏（控件工具箱）”最左侧的“按钮（退出设计模式）”，引用的音频或视频文件应自动播放。 播放器下侧的“控制区”可用于控制播放，如要修改播放器的“属性”参数，可再单击“按钮（设计模式）”切回“设计模式”。几个典型的URL地址：本机绝对地址4/Media/11-music.mp34/pub/Media/14-swan.wmvmms://live1mms:/1/nytv_1基本控制：VBA程序法以插入一个“控件（Windows Media Player）”对象和四个“控件（按钮）”，并通过后者选择和控制两个音频（Music1.wav和Music2.wav）分别在同一播放器中的播放为例。调出“控件工具箱（工具栏）”右击“工具栏”空白区，在弹出的“工具栏”列表中选用“控件工具箱”，对应的工具栏见右图。插入“控件（按钮）”先单击文档中要插入“按钮”的位置，再双击 “命令按钮（）”，连续插入4个按钮。右击插入的按钮，选择“属性”命令，分别修改4个按钮的“Caption”属性为“音频1”、“音频2”、“暂停”和“停止”。编写VBA程序双击插入的“命令按钮（音频1）”，或执行“命令（工具宏Visual Basic编辑器）” 选择“左框架”的ThisDocument，在“右框架”中输入下列代码（CommandButton1、CommandButton2、CommandButton3和CommandButton4，分别用于音频的播放“音频1”、播放“音频2”、“暂停”与“停止”控制）。打开文档时停止播放Private Sub Document_Open() WindowsMediaPlayer1.Controls.stop 播放器控件停止音频播放End Sub播放“音频1”Private Sub CommandButton1_Click() 音频1WindowsMediaPlayer1.Controls.stopWindowsMediaPlayer1.URL = Path & Music1.mp3 设置自动组成的URL WindowsMediaPlayer1.Controls.play 播放音频1End Sub播放“音频2”Private Sub CommandButton2_Click() 音频2请自己参照“音频1”End Sub暂停继续播放Private Sub CommandButton3_Click() 暂停继续播放当前乐曲If WindowsMediaPlayer1.playState = wmppsPlaying Then 根据播放状态决定 WindowsMediaPlayer1.Controls.pause 暂停播放当前乐曲Else WindowsMediaPlayer1.Controls.play 继续播放当前乐曲End IfEnd Sub停止播放Private Sub CommandButton4_Click()WindowsMediaPlayer1.Controls.stopWindowsMediaPlayer1.URL = 请空URL地址 End Sub扩展：插入Real Player控件略。四、Word中“控件（Flash动画）”对象的插入与简单控制返回目录调出“工具栏（控件工具箱）”右击“工具栏”空白区，在弹出的“工具栏”列表中选用“控件工具箱”。插入“控件（Flash对象）”单击“控件工具箱”右侧“其他控件（）”按钮，选择“Shockwave Flash Object”，插入“控件（ShockwaveFlash）”对象图标（见右图，按插入的先后自动顺序命名为“ShockwaveFlash1、2”）。属性参数设置法与播放控制右击“播放器”，选择“命令（属性）”，在Movie栏输入相应动画文件的URL地址，关闭“对话框（属性）”。点击“工具栏（控件工具箱）”最左侧的“按钮（退出设计模式 ）”，引用的Flash文件应自动播放。基本方法：VBA程序法插入按钮单击文档中要插入按钮的位置，双击“命令按钮（）”，连续插入4个按钮。右击插入的按钮，分别修改4个按钮的“Caption”属性为“Flash1”、“Flash2”、“Pause”和“Stop”。编写VBA程序双击任一个按钮，或执行“命令（工具宏Visual Basic编辑器）”，选择“左框架”的ThisDocument，在“右框架”中输入下列代码：打开文档时停止播放Private Sub Document_Open() ShockwaveFlash1.stop 播放器控件停止动画播放End Sub播放“Flash1”Private Sub CommandButton4_Click()ShockwaveFlash1.stopShockwaveFlash1.Movie = Flash1.swfShockwaveFlash1.playEnd Sub播放“Flash2”Private Sub CommandButton5_Click()请自己参照“Flash1”End Sub暂停继续播放Private Sub CommandButton_FlashPause|WMPCont_Click() 暂停继续播放当前Flash动画If ShockwaveFlash1.IsPlaying Then 根据播放状态决定 ShockwaveFlash1.StopPlay 暂停播放Else ShockwaveFlash1.Play 继续播放End IfEnd Sub停止播放Private Sub CommandButton5_Click()ShockwaveFlash1.stop ShockwaveFlash1.Movie = 播放器控件Movie属性参数置空End Sub说明：只对本身无交互特性的Flash动画有效。五、Word中“控件（图像）”对象的插入与简单控制返回目录插入“常用控件（Image）”左击“工具栏（控件工具箱）”中的“控件（图像）”的“按钮（）”，插入“控件（Image）”（见右图，按插入的先后顺序自动命名为“Image1、2”）。“控件（Image）” 显示尺寸设置“控件（Image）”显示尺寸既可以在“设计模式”拖曳对象控制柄随意调整，也可以在“对话框（属性）”中设置“属性（Height和Width）”参数。“属性”参数设置法与图像显示参数设置：以插入单张图片为例，右键单击“控件（Image）”图标，选择“命令（属性）”，单击“对话框（属性）”的Picture栏右侧“按钮（）”（见右图），在弹出的“对话框（加载图片）”中选择要显示的图片文件，单击“按钮（确定）”关闭“对话框（属性）” 注意：相应文件名不显示于Picture栏。图像显示：点击“工具栏（控件工具箱）”最左侧的“按钮（退出设计模式）”，引用的图片文件应自动显示。VBA程序法与播放控制插入“控件（命令按钮）”先单击文档中要插入“命令按钮”的位置，再双击“工具栏（控件工具箱）”的“命令按钮（）”，连续插入2个“命令按钮（CommandButton1CommandButton2）”。右击插入的“命令按钮”，分别修改2个“命令按钮”的“属性（Caption）”为“图像1”和“图像2”。编写VBA程序双击任一个按钮，或执行“命令（工具宏Visual Basic编辑器）”，在 “左框架” 的 “Project（当前文档名）”下面选择“文档（ThisDocument）”对象，在“右框架” 中输入下列代码：显示图像1Private Sub CommandButton1_Click() 显示“图像1”Image1.Picture = LoadPicture(Path & 1.jpg) 通过LoadPicture函数引用图像End Sub显示图像2Private Sub CommandButton2_Click() 显示“图像2”请自己参照“图像1”End Sub问题来回单击“按钮（图像1）”和“按钮（图像2）”，“控件（Image）”中的图像不变。原因：图像“控件”在其引用的图片文件发生变化时，不能自动清除图片内存缓冲区的内容，因而不能自动显示变化后的图片。解决方法：为了清除与变换图片内存缓冲区的内容，显示变化的图片，可先向下翻屏，再向上翻屏。处理1：录制与使用翻屏的“宏”执行“命令（工具宏录制新宏）”进入“宏”录制状态，录制上述两个翻屏操作后，执行“命令（工具宏停止录制）”，在“窗口（Visual Basic编辑器）”的“左框架“中单击“Normal”下面的NewMacros，即可在“右框架“中看到对应的“宏代码”：ActiveWindow.ActivePane.LargeScroll down:=1 向下翻屏ActiveWindow.ActivePane.LargeScroll down:=-1 向上翻屏处理2：换用其他“常用控件”考虑换用其它支持图像的“常用控件”：Label（）；CommandButton（）。六、Word中“控件（文本框）”和“控件（标签）” 的插入与简单控制返回目录“控件（文本框）”与“控件（标签）”的异同均支持文本“文本框”具有交互特性“标签”还支持图像插入“常用控件（TextBox）和（Label）”分别左击“工具栏（控件工具箱）”中的“控件（文本框）和（标签）”的“按钮（）和（）”，插入“控件（文本框）”和“控件（标签）”（按插入的先后顺序自动命名为“TextBox1、2，Label1、2”）。“控件（TextBox）和（Label）”显示尺寸设置可根据具体需求，由下列三种方法中择一：在“设计模式”下拖曳“控件”四周的九个“控制柄”调节；通过“属性”参数“Height”和“Width”设置；通过VBA程序中的“赋值语句”设置。基于VBA程序的显示控制插入“控件（命令按钮）”先单击文档中要插入“命令按钮”的位置，再双击“工具栏（控件工具箱）”的“命令按钮（）”，连续插入2个“命令按钮（CommandButton1CommandButton2）”。右击插入的“命令按钮”，分别修改2个“命令按钮”的 “属性（Caption）”为“文本1”和“文本2”。编写VBA程序双击任一个按钮，或执行“命令（工具宏Visual Basic编辑器）”，在 “左框架” 的 “Project（当前文档名）”下面选择“文档（ThisDocument）”对象，在“右框架” 中输入下列代码 VBA程序代码：Private Sub CommandButton1_Click() 显示“文本1” TextBox1.Text = 文本内容1_1Label1.Caption = 文本内容1_2End SubPrivate Sub CommandButton2_Click() 显示“文本2”请自己参照显示“文本1”End Sub七、多媒体小报的编制返回目录编制多媒体小报的基本思路在Word中制作主题式电子小报是Word应用的一个典型案例与重要环节。国内目前流行的电子小报大多只实现了图文并茂，普遍缺乏音频、视频与Flash动画的引用，因此我们把“基于Word的多媒体小报的编制”作为本课程第二个主题式案例教学内容。制作图、文、音、影并茂的多媒体电子小报需要综合Word以下功能：使用无框线表格来设置小报结构使用嵌套的表格横排或竖排的自选图形（带文本框）、文本框、图片、艺术字来设置各栏文章标题将各种形状的自选图形与文本框结合来变换文章的显示版面插入文字、图像、音频、视频、Flash动画等多媒体多媒体小报的典型结构基于Word的电子小报的典型结构有两类：多个“无框线表格”嵌套结构；多个“自选图形（带文字框）”、“文本框”结构。相比之下，前者具有版面设置简单、定位准确等优点，后者具有灵活多变等优点。我们重点介绍利用“无框线表格”嵌套结构生成电子小报的方法。多个“文本框 （含自选图形中的文字框）”向其他“空白文本框”的链接：右击“文本框”边，执行“命令（创建文本框链接）”，选择其他空白“文本框”；然后也可以“断开向前链接”。可根据需要对所链接的“文本框”继续创建新的“文本框”链接，或转到“下一个文本框”、“前一个文本框”。编制多媒体小报的基本步骤设置小报的尺寸启动Word 2003，新建“空白文档”。小报最大尺寸：执行“命令（文件页面设置）”最大长度和宽度：1584磅（102个字符）建议尺寸：长度：可根据需要设置，最大1584磅（96个字符）；上、下页边距：40磅（3个字符）。宽度：接近占满一屏：700磅（59个字符）；左、右页边距：40磅（3个字符）。设置小报的结构通过“工具栏（常用）”的“按钮（插入表格）”插入表格：列数应等于或大于小报横向的栏数（多余的列可以用于在需要时设置纵向标题）；行数可大于小报纵向的栏数。均可在制作小报过程中调整设置小报的行高参数用鼠标选中表格的全部单元格，右击鼠标执行“命令（表格属性）”，在弹出“对话框”的“参数选项卡（行）”中：选中“复选框（指定）”；设置“指定高度”的值（建议小于实际行高）；保持“行高值”是 “最小值”。建立文章标题可以从下列两种方法中选择一种。标题独占一个单元格（可能是多行或多列单元格合并成的单元格）建议在该单元格中插入一个单列单行表格用于输入标题（可以采用普通文本或艺术字），通过对该表格、文本或艺术字进行边框、背景、字符的设置来美化标题。例1：表格边框、背景色、底纹彩色文本例2：无框表格图像例3：无框表格、背景色、底纹艺术字艺术字工具栏：艺术字字库、设置艺术字格式（填充、线条颜色等）、艺术字形状等例4：无框表格自选图形单元格参数设置技巧对齐：单元格对齐方式（九种）无框线：表格属性（“边框与底纹”按钮）边距：表格属性（“选项”按钮）标题与文章内容合占一个单元格（可能是多行或多列单元格合并成的单元格）文本框标题正文自定义图形（含文本框）正文在单元格中插入“四周型”版式的“文本框”用于输入标题（可以采用普通文本或艺术字），通过对该“文本框”、文字或艺术字进行边框、背景、字符的设置来美化标题；正文输入文章文本内容文章第1部分文章第4部分文章第2部分标题文章第5部分文章第3部分文章第6部分文章可以单独占用一个单元格，也可以在横向或纵向上占用多个单元格，例如：右表格。一组文章：我们可把在横向上占用有同一行表格单元的文章称一组文章。基于表格的小报中的文章一般按组输入。插入图像和表格的方法 对于不带题注的图像可以直接插入，建议取“四周型”版式。对于带题注的图像、表格（不论带题注与否）建议先插入取“四周型”版式的“文本框”，再在“文本框”中插入图像或表格，然后根据需要决定是否将“文本框”转为“图文框”。表格与图像操作若干技巧表格操作若干技巧精细调节列宽：Alt-鼠标，按住鼠标右键-鼠标调整列宽时不影响相邻列宽度：Shift-鼠标将表格一分为二：光标在第二表首行，Ctrl-Shift-Enter将表格合二为一：光标在第一个表格最后一行右的回车上，单击Delete删除表格：选中整个表格，Shift-Delete，或“编辑剪切”如何在表格占满一页时删除后面的多余空白页：光标在空白页第一行：行距（固定值：1磅）选择表格或其部分的键或组合键（请自己练习并掌握） Tab：选定下一单元格内容，添加行Shift-Tab：选定上一个单元格内容按住Shift-方向箭头：扩展选择 Ctrl-Shift-F8-方向箭头：扩展选择 Alt-数字键盘5：选定整张表图像操作若干技巧微调图形（四周型、浮于文字上下方等）：Ctrl-光标移动键。八、初步了解 “宏”、“控件”与VBA返回目录VBA的基本概念对象对象：将数据和处理该数据的过程（函数和子程序）打包在一起而生成的新的数据类型。在VBA中，所有“窗体”和“控件”都是对象。要访问它们的“属性”和“方法”，必须在“对象”和“属性”、“方法”之间加入一个句点。例“控件（标签）”的“属性”：Label1.Caption=“VB学习系统”属性例“控件（文本框）”的“方法”：TextBox1.Select 方法初学者可在“Visual Basic编辑器”通过“下拉列表框”中的“图标”形状区别“属性”和“方法” 。属性反映“控件”的特性参数。例“控件（文本框）”：TextBox1.Text方法反映“控件”的过程.例“控件（文本框）”：TextBox1.Select窗体“窗体”有两种含义：其一是用作定制应用程序界面的“窗口”，其二是用作从用户处收集信息的“对话框”。对于第一种“窗体”，用户可向“窗体”增加“控件”、图形或图片来创建自己的应用程序界面。对于第二种“窗体”，它往往是文档中的一个元素。宏“宏”是VBA的一个子集，它可以通过录制的方法获得其程序代码，因此它通常对应一系列命令、键盘的操作。“宏”可以通过“宏名”、“快捷键”或“窗体”调用 大多数的“宏”也可以直接用于VBA程序中控件“控件”是用户操作对象的图形表示，以便向应用程序提供信息。最基本的“控件”就是“控件工具箱”中提供的“常用控件”，例如：“按钮”、“列表框”或“文本框”等。有的“控件”没有图形表示，如：计时器、WinSocket（用于网络）等。 事件“事件”是指“窗体”或“控件”识别的活动，“事件”发生在用户与应用程序交互时，如：单击控件、键盘输入、移动鼠标等；也有部分事件由系统产生，不需要用户输入，如：计时器事件。通常“控件”可以有一系列“事件”，并通过“事件”下拉列表选用。“命令按钮”的“Click事件”等。“事件驱动程序”设计当程序是由“事件”驱动的时，应编写响应由用户或系统激活的“事件”的代码。“事件驱动程序”起始于代码的第一行，并遵循定义好的路径调用所需的过程；“事件驱动设计”是图形用户界面的本质，即：由用户控制而通过代码做出响应。“宏”与“控件”的基本概念“宏”与“控件”的基本概念Word提供了“工具栏（窗体）”和“工具栏（控件工具箱）”。“窗体”一般与“宏”联系到一起，由于“宏”可以录制，因此无须用户自己编制。“控件”一般与VBA联系在一起，一般需要用户自己编制程序。“宏”是VBA的一个子集，用户可以把一系列菜单命令、工具栏按钮或键盘操作的集合，赋予一个“宏”名或“快捷键”，便于用户在需要时重复使用。MS Office中的“宏”Word、PowerPoint和Excel中都提供了宏。一般说来，宏在Excel应用最广，在Word和PowerPoint中由于没有提供窗体按钮而应用较少。当用户把某些操作（例如打开文档、保存文档等）用“宏”的形式录制下来，在绝大多数情况下，可以将“宏代码”直接，或略加修改用于VBA程序中（个别情况例外）。MS Office中的“控件”右击“工具栏”空白区，在弹出的菜单中选择“控件工具箱”，已显示相应工具栏如右图：第一组：复选框、文本框、命令按钮、选项按钮第二组：列表框、组合框、切换按钮、数值调节钮、滚动条第三组：标签、图像、其他控件运行“宏”与VBA的准备工作为了能在Word（包括PowerPoint和Excel）中运行VBA程序，在打开软件包后执行“命令（工具选项）”，在“参数选项卡（安全性）”中单击“按钮（安全性）”，再在弹出的对话框中选择“单选钮（中）”后关闭软件包“窗口”。重新打开软件包“窗口”再调用含有“控件”的文档。在Word中建立与应用一个简单的“宏”某些Word文档需要在对些字符下面添加“着重号”。为了提高工作效率，我们可以建立在任一个字符下面添加着重号的“宏”（快捷键为Alt-.），方法如下：准备工作将光标移到要添加着重号的字符右侧（为什么？），执行“命令（工具宏录制新宏）”，弹出“对话框（录制宏）”。设置“快捷键”单击其中的“按钮（键盘）”，在弹出的“对话框（自定义键盘）”的“请按新快捷键”栏中按住Alt键单击“键（.）”，再单击左下角“按钮（指定）”，则将该快捷键转入“当前快捷键”栏中，单击“按钮（关闭）”，系统即进入“宏”的录制。录制“宏”按住Shift键，用光标移动键盘向左移动光标选中要添加“着重号”的字符；执行“命令（格式字体）”，在弹出“对话框”的“参数选项卡（字体）”的“所有文字”栏“下拉列表框（着重号）”选用“”，单击“按钮（确定）”，向右移动光标，再执行“命令（格式字体）”，在弹出“对话框”的“参数选项卡（字体）”的“所有文字”栏“下拉列表框（着重号）”选用“无”。停止录制执行“命令（工具宏停止录制）”。使用“宏（Alt-.）”将光标放到要添加着重号字符的右侧，击“快捷键（Alt-.）”，观看“宏”运行的结果。“宏”的代码Sub Macro1() Macro1 Macro 宏在 2011-3-25 由 Pei Chunli 录制Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtendWith Selection.Font .NameFarEast = 宋体 .NameAscii = Times New Roman .NameOther = Times New Roman .Name = 宋体 .Size = 10.5 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 1 .Animation = wdAnimationNone .DisableCharacterSpaceGrid = False .EmphasisMark = wdEmphasisMarkUnderSolidCircleEnd WithSelection.MoveRight Unit:=wdCharacter, Count:=1With Selection.Font .NameFarEast = 宋体 .NameAscii = Times New Roman .NameOther = Times New Roman .Name = 宋体 .Size = 10.5 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 1 .Animation = wdAnimationNone .DisableCharacterSpaceGrid = False .EmphasisMark = wdEmphasisMarkNoneEnd WithEnd Sub“宏”的代码（简化）Sub Macro1() Macro1 Macro 宏在 2011-3-25 由 Pei Chunli 录制Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend