Код VBA для автоматического обновления ссылок PowerPoint на Word

Question

У меня есть сотни презентаций PowerPoint, в которых все связаны объектами Word. Как я могу автоматически обновить все ссылки, не открывая каждую презентацию? Я предполагаю, что это будет сделано с VBA, но единственные примеры VBA, которые я могу найти, для автоматического обновления связанных объектов Excel. Я недостаточно знаком с VBA, чтобы изменить код.

В конечном счете, я хотел бы запустить это через командную строку.

Использование PowerPoint и Word 2013.

Answer 1

DragonSamu прав... но, чтобы начать, попробуйте это из самого PPT, а затем решите, как переписать его на языке сценариев или что-то, что будет компилироваться в EXE

Для каждого файла, который вы хотите обработать, откройте файл (через код), затем

Call UpdateLinks(ActivePresentation)


Sub UpdateLinks(oPres As Presentation)

    Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In oPres.Slides
        For Each oSh In oSl.Shapes
            If oSh.Type = msoLinkedOLEObject Then
                oSh.LinkFormat.Update
            End If
        Next
    Next

End Sub