1、Hi，以下代码通过调用 PPT 的打开文件对话框并结合筛选器 *potx 可以成功获取模板路径Public Sub GetTemplatePath Dim fd As FileDialog Set fd = ApplicationFileDialogmsoFileDialogFilePicker With fd With Filters Clear Add quotPowerPoint Templatequot， quot*potxquot End W；亲，这是一个简单但繁琐的任务附件已上传，下载后打开，按“Alt+F11”打开VBA编辑窗口，查看模块中的代码测试效果如下图使用时，只需选中要设置格式的单元格，然后点击按钮即可。

2、故障分析一般这种情况是跟宏里面的VBA编辑器有关系，或者是用户版本几用户安装了新的工具箱所导致工具宏无法运行，出现出现“子过程或函数未定义”的故障解决方法一如果你制作了worddot模板的话，应该是你的dot模板被修改了，找到normaldot文件删除掉应该就可以了或者尝试进入CUsersSoloman；Excel本身只提供了保护工作簿或工作表，要保护单元格区域，需要用VBA但可下载一个叫kotools for Excel的工具，该工具提供了单元格区域保护，能实现你的要求现在有180天注册码的免费版本。

3、的值quotMsgBox zdrq End Sub 方法步骤3这段代码没有任何问题，实际使用中；报告改版， 需要将之前的报告都改成新模板其中都是表格，我想将已有报告中表格的内容通过VBA复制到新报告模板中，下面是代码的例子， Sub Macro1 Dim wdApp As WordApplication On Error Resume Next Set myDoc = quotG\12 展开 卡。

4、vb中类模块可以设定一个类，面向对象设计的最重要的东西，虽然vb对类的支持不太好，不过也可以使用，在类模块里面可以设定类所具有的方法属性等比如一个叫animal的类模块，里面有public的方法eat，属性有Hp，Mp等，那么你在其他模块中一旦声明了animal对象后便可以使用了比如声明了一个clsLion的类。