备注页”重新应用母版“的批量操作

我的烦恼：十几二十个课程PPT课件需要模板刷新，吭哧吭哧一顿操作，备注页视图下瞬间感觉前功尽弃了~~上千页的胶片，挨个调整备注页格式显然是不可取！！！

---

问题：模板刷新，备注页格式大小与模板不一致

课程开发场景中，有时教材内容变化不多，需要将旧模板刷新到新模板，正文可以通过批量选中多页幻灯片，右键选择“版式”，选择相应版式，然后右键选择“重设幻灯片”，从而实现快速批量重置幻灯片格式。（注意：有少数也无法调整过来，需要新建幻灯片页复制内容。）但备注无法批量调整，这里介绍将旧胶片拷贝到新胶片，并且批量应用幻灯片版式后，如何解决批量调整备注的问题。

• 新模板的备注页格式

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-Y2aIBNQt-1686621860309)(img/image-20230613084610517.png)]

• 旧模板的备注页格式

  [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-AZQpvL5m-1686621860310)(img/image-20230613084718520.png)]

解决方法1：单页操作

存在备注大小和标准母版不一致的问题，通常操作是备注视图下空白处右键选择“备注版式”，选择“重新应用母版”。但只能支持单页操作。

• 步骤1：打开备注页视图

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-FoQIeObJ-1686621860310)(img/image-20230613085155528.png)]

• 步骤2：备注板式

  鼠标右键打开备注板式，如图。

  [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-1qNy7MxJ-1686621860311)(img/image-20230613085442055.png)]

• 步骤3：勾选重新应用母版

  在备注板式窗口中勾选重新应用母版，然后点击确认便可以修改备注页格式。

  [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-0SSLfIyE-1686621860311)(img/image-20230613085546640.png)]

• 步骤4：效果展示

  [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-z6VgDEGL-1686621860311)(img/image-20230613085710023.png)]

除此之外，也可以手动拉动备注页的边框，手动调整。

---

解决方法2：批量操作

方法1对于一个PPT文件中只有个别页备注格式调整比较简单方便，但是当一个文件中有大量需要调整的页面时，挨个操作似乎不太可行。批量操作方法，步骤如下：

注意：这种方法的宏脚本一次有效，下次修改需要重复以上过程重新创建宏并执行。

---

• 步骤1：打开宏页面

  • 快捷方式：Alt + F11

    [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-rBuZGSpU-1686621860312)(img/image-20230613090816783.png)]

    打开宏编辑栏，如图操作步骤，或者点击“运行”创建宏

    [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-4vUKhUFp-1686621860312)(img/image-20230613090917097.png)]

  • 常规方式：视图栏的最右侧，点击“宏”选项，然后输入宏名，点击创建

    [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-FK5dDlhc-1686621860313)(img/image-20230613090512195.png)]

    [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-DYzO7cRf-1686621860313)(img/image-20230613091510936.png)]

• 步骤2：创建宏

  在模块中写入以下代码：

  Sub ApplyMasterToNotes()
  ' Modified version of code originally posted to
  ' msnews.microsoft.com public newsgroups by
  ' David Foster in May of 1999
      Dim ctl As CommandBarControl
      Dim oSl As Slide
      ' 700 is the control ID for Layout
      Set ctl = CommandBars.FindControl(Id:=700)
      ActiveWindow.ViewType = ppViewNotesPage
      If (ctl Is Nothing) Then
          MsgBox "command not available"
          Exit Sub
      End If
      For Each oSl In ActivePresentation.Slides
          ' go to the current slide
          ActiveWindow.View.GotoSlide (oSl.SlideIndex)
          DoEvents
          ' Bring up the dialog
          ctl.Execute
          DoEvents
          ' send it the needed keystrokes
          SendKeys "%r{enter}"
          DoEvents
      Next
  End Sub
  

  [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-LcQngnrM-1686621860313)(img/image-20230613091048407.png)]

• 步骤3：运行宏代码

  运行宏脚本即可完成整个PPT文件的备注页”重新应用母版“的批量操作。

  • 快捷方式：F5键执行宏脚本

  • 常规方式：宏窗口栏的运行按钮

    [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-Y4QF5Rbd-1686621860314)(img/image-20230613091744310.png)]

• 步骤4：关闭宏，保存文件

---

参考资料

1. 【课程开发小技巧】课程开发刷新备注时如何修改标尺及批量重新应用母版？
2. PowerPoint解决方案
3. PowerPoint对象模型