Откройте Ваш .pptx или .ppt file
Выберите закладку [View]
Нажимаем на “Macros”
В “Macro name:”, вводим любое имя и нажимаем [Create]. Окно Macro editor запускается.
Между “Sub” и “End Sub”, копируем ниже приведённый код:
Dim slide As slide
Dim index As Long
Dim counter As Long
counter = 0
For Each slide In ActivePresentation.Slides
For index = slide.Hyperlinks.Count To 1 Step -1
slide.Hyperlinks(index).Delete
counter = counter + 1
Next index
Next slide
MsgBox ("Removed " + CStr(counter) + " links")
Переводим курсор на самую верхнюю строчку и нажимаем [F5]. Появится сообщение с количеством удаленных ссылок.
Закройте Macro editor и сохраните документ. |