计量馆展示课件自动语音播讲的设计与实现关婕【摘要】为在计量馆展馆参观中实现检定校准培训活动数字化，本文设计了一套方便快捷的展示方案，即通过简单的VBA编程控制已设计好的幻灯片播放，并通过PPT动作指令實现简单的人机交互功能，同时利用spvoice实现语音播讲。【关键词】VBA编程;人机交互;语音播讲;数字化【DOI编码】10.3969/j.issn.1674-4977.2019.04.008Abstract：Inordertodigitalizetheverificationandcalibrationtrainingactivitiesinthemetrologypavilion，thispaperdesignsasetofconvenientdemonstrationschemes，thatisthroughsimpleVBAprogrammingtocontrolthedesignedslideplay，realizesimplehuman-computerinteractionthroughPPTactioninstructions，andrealizevoicebroadcastingbyspvoice.Keywords：VBAprogramming;human-computerinteraction;voicebroadcasting;digitalization随着我国信息技术的飞速发展，信息化、数字化已经成为了各类科普展示场馆持续发展的必然选择。辽宁省计量馆的改造设计中要求设计一系列检定校准活动培训教材，向参观者循环介绍各项计量检定活动，并可接受参观者指令播讲某项具体的检测活动。为实现这一要求可通过两种途径，一是将各种具体检测活动单独录制影片，然后编制目录循环播放，同时可以接受指令播放某一项具体检测活动影片;二是制作幻灯片放映，同时利用spvoice在播放时实现讲解，利用VBA实现播放的控制。相比较第二种方案更易实现，同时可以节省人力、物力资源。1实现过程1.1设计MicrosoftOfficePowerPoint根据开展计量检定校准活动的实际情况需要，单独制作好每个检定校准活动的幻灯片，包括技术依据、规程规范介绍、计量标准器展示、检定校准流程展示、制作团队介绍等内容。其中规程规范介绍按照实际检定规程、校准规范，从适用范围、概述、计量特性、校准条件等几个方面进行介绍。MicrosoftOfficePowerPoint（以下简称PPT）课件中可以对某些页面设置介绍性文字，放在PPT页面之外。这些文字仅供PPT播放时由计算机自行朗读，作为旁白。每一个PPT课件做好以后，按照计量专业或者其他标准进行分类，做好目录。辽宁省计量馆按照实际情况分为长度、热工、力学、电学、化学、温度、车辆七大类，每类暂时包含5个项目。PPT课件的制作无需多少计算机知识，计量检定人员即可参与制作，在校准方法变更时也可以随时进行编辑修改。1.2设计PPT播放控制程序利用PPT自带的VBA程序编写播放控制部分。方法为：单击PPT菜单中“工具”-“宏”-“VisualBasic编辑器”，进入VBA编辑器，如图1所示。本文设计了目录播放模式、全文播放模式两种自动播放模式，并可在超出触摸屏后停止自动播放，进入手动模式。为此，程序设计了两个timer（定时器），一个定时启动幻灯片播放程序，按照目录模式或者全文模式自动播放;另一个监视触摸屏消息，在手触屏幕后，进入手动模式，或者长时间（本文设定5分钟）无触屏动作恢复自动播放模式。自动播放实际就是每间隔一定时间调用PPT对象自带的放映跳转函数GotoSlide跳转到下一页或者指定页面。监视触摸屏消息则是利用了API函数GetLastInputInfo（pliiAsLASTINPUTINFO），自动模式下监视到触屏动作，则自动切换到手动模式;手动模式时，长时间无输入则自动切换到自动播放模式;当幻灯片播放到最后一页时，自动切换到第一页，确保PPT持续播放。1.3设计PPT语音播放程序对PPT中介绍性文字朗读，需要用到spvoice对象。其引入方法为：在VBA编辑器中，再点击菜单上的“工具”-“引入”，找到“MicrosoftSpeechObjectLibrary”，在其上勾选，单击确定（见图2）。朗读文本直接调用spvoice对象的speak方法，为使朗读方法更具通用性，本文设计了朗读过程Speak_text，可以在播放PPT时直接调用。SubSpeak_Text（）播放幻灯片内所有内容DimsAsStringDimi，j，kAsIntegerDimiiAsBalloonOnErrorResumeNextIfi_Clause=0Then'首次启动spvoice需初始化Setsp=NewSpVoicesp.Rate=1'设置朗读语速EndIfk=ActivePresentation.SlideShowWindow.View.Slide.SlideIndex'当前幻灯片序号j=ActivePresentation.SlideShowWindow.View.Slide.Shapes.C...