Word 2003 Mazání hyperlinků z obrázků Vyřešeno

[sutrserpa]

Zdravím Mike 007.
Posledně jsi vyřešil můj dotaz na mazání hypertextových odkazů z obrázků v Excelu.
Sub smazat_odkazy_obrazky()
Dim GetShape As Shape
For Each GetShape In ActiveSheet.Shapes
mazeme (GetShape.Name)
Next
End Sub
Function mazeme(WhatShape As String)
On Error Resume Next
ActiveSheet.Shapes(WhatShape).Hyperlink.Delete
End Function

Teď bych to potřeboval ve Wordu 2003.
To výše uvedené makro tam nejede.
A rád bych takové makro umístil někde v Office, abych ho mohl rychle spustit a v upravovaném dokumentu nebylo.
Dík.

[Reklama]

[mike007]

Sub smazat_odkazy_obrazky()
Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub

[sutrserpa]

Výborné, funguje to.
Pro ty, kteří by chtěly makro používat častěji, uvedu, jak dostat tlačítko na lištu.
Není to tak jednoduché , jako v Excelu, kde si v Nástroje/vlastní/příkazy/makra, vybereme ikonu a po přetažení na lištu k ní přiřadíme makro.
Ve Wordu tam žádna ikona není.
Použije se Nástroje/makra/organizátor, označí se makro, které jsme si předtím nakopírovali do otevřeného listu "Dokument 1" Ve visual Basic do module 1 , tedy označíme dokument 1 module 1, tlačítkem kopírovat se překopíruje do soubor normal a ikonu z tohoto formuláře si přetáhneme na lištu, kde se může ikona přejmenovat.
Otevřený Dokument 1 zavřeme a neuložíme.
Pokud existuje jednoduší způsob,tak prosím o uveřejnění.
Sutrserpa