WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"

Private Sub Document_Open()

'Путь к папке, где лежит документ
Dim path
path = Application.ActiveDocument.path + "\"

'Первый объект управления (Microsoft Web Browser), вставленный в активный документ
'задаем полное имя файла gif, которой лежит в той же папке, что и активный документ
WebBrowser1.Navigate2 path + "Рис. 3.gif"

'Второй объект управления (Microsoft Web Browser), вставленный в активный документ
'ссылка на картинку в интернете
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"

End Sub

Sub ВставитьОбъектДляGif()
'
' ВставитьОбъектДляGif Макрос
' Макрос записан 21.07.2018 Тихвинский
'
Dim e As InlineShape, s As String

s = InputBox("Введите ссылку к файлу GIF или нажмите Cancel", "Ввод ссылки к файлу GIF")
If s <> "" Then

Set e = Selection.InlineShapes.AddOLEControl(ClassType:="Shell.Explorer")
e.OLEFormat.Object.Navigate2 s

Set e = Nothing
End If

End Sub

Private Sub Document_Open()
'определение путь к файлу документа
Dim path
path = ActiveDocument.path  + "\"
'программное задание свойства URL определяющее адрес для gif файла для объекта WindowsMediaPlayer1
'предполагается что файл с именем MyFile.gif лежит в той же директории, что и документ
WindowsMediaPlayer1.URL = path + "MyFile.gif"

'установка зацикливание для всех элементов WindowsMediaPlayer
Dim e,i
For i = 1 To ActiveDocument.InlineShapes.Count
On Error GoTo m1
'устанавливаем указатель на объект
Set e = ActiveDocument.InlineShapes(i).OLEFormat.Object
If InStr(e.Name, "WindowsMediaPlayer") <> 0 Then 'Если в имене объекта содержится текст WindowsMediaPlayer
e.settings.setMode "loop", True   'Устанавливаем зацикливание
End If
'снимаем указатель
Set e = Nothing
m1:
Next i

End Sub