Як скопіювати макети з головного перегляду на слайди в PowerPoint?

Користувач, з яким я працюю, випадково провів всю свою презентацію в режимі перегляду слайдів. Тобто замість додавання слайдів вони створили макети.

Існує просте часткове рішення, яке полягає лише в додаванні нових слайдів за допомогою кожного з макетів. Це призводить до того, що презентація може відображатися нормально, але має певні обмеження. Зокрема, ми тут багато співпрацюємо, і, обмінюючись цим файлом з іншими користувачами, ніхто більше не зможе редагувати текст на слайдах, не входячи в головний перегляд.

Цілу річ можна було б відновити з нуля, але вона дуже велика, тому це буде занадто багато часу.

Один (можливо, хибний) підхід:

Перейдіть до кожного макета в головному вікні
Натисніть Ctrl + A, щоб вибрати все
Натисніть Ctrl + C, щоб скопіювати
Поверніться до звичайного подання
Додати новий слайд на основі макета BLANK.
Натисніть Ctrl + V, щоб вставити вміст, який ви щойно скопіювали з макета
Після завершення з усіма макетами поверніться до головного перегляду, виберіть і видаліть вміст з кожного макета.

Недолік? Це дасть вам купу слайдів, які більше не підключені до макетів, які контролюватимуть зовнішній вигляд презентації. Щоб внести будь-які широкомасштабні зміни, вам потрібно буде змінити кожен слайд. Але це відносно швидке виправлення, і принаймні залишить вас із редагуванням слайдів.

Якщо презентація буде використовуватися не раз, а декілька людей, відредагована різними людьми, то більш повна виправлення може бути доречнішою, навіть якщо вона забирає більше часу.

Це передбачало б виконати вищезазначене, потім пройти макети та видалити будь-який вміст, який не є а) заповнювачем місця або b) потрібним на кожному слайді на основі макета.

Тоді вам потрібно буде застосувати відповідний макет до кожного слайду, який був заснований на ньому, і, нарешті, скопіюйте текст із випадкових текстових полів у відповідні заповнювачі.

Якщо ви вирішили пройти цей маршрут, ось макрос, який видалить усі фігури, які не заповнюють заповнення, від кожного головного / макета в презентації. Це не зробить всю роботу для вас будь-якими способами, але принаймні автоматизує досить копітку частину:

Sub DeleteNonPlaceholderShapes()
' Deletes non-placeholder shapes from
' each slide master and layout in a presentation
' Run this on a COPY of your presentation, never the only original.

Dim oDes As Design
Dim oLay As CustomLayout
Dim oSh As Shape

With ActivePresentation
    For Each oDes In .Designs
        Call HandleOneContainerObject(oDes.SlideMaster)
        For Each oLay In oDes.SlideMaster.CustomLayouts
            Call HandleOneContainerObject(oLay)
        Next
    Next

End With

End Sub

Sub HandleOneContainerObject(oObject As Object)

Dim x As Long

For x = oObject.Shapes.Count To 1 Step -1
    If Not oObject.Shapes(x).Type = 14 Then
        oObject.Shapes(x).Delete
    End If
Next

End Sub