MS Word VBA - odebrání hypertexového odkazu

Cíl

Automatické odebrání hypertextových odkazu v MS Word pomocí VBA (programu ve Visual Basicu).

Řešení

Možností jak daný problém vyřešit je mnoho. Popsané řešení je funkčí.

Důležité: Před experimentováním s následujících maker si prosím zálohujte upravovaný text. Zalohování dokumentu před pokusy s makry určitě berete jako samozdřejmost, ale upozornění se hodí.

Řešení - jen hypertextový odkaz

Sub Odebrat_Hypertextovy_Odkaz()

Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Delete
Next
Next

End Sub


Řešení - hypertextový odkaz i s textem

Sub Odebrat_Hypertextovy_Odkaz_I_S_Textem()

Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Range.Delete
Next
Next

End Sub


| článek zveřejněn: 24.4.2008 |

Komentáře » přidat

Marie Franců

Pro rychlé odebrání hypertextových odkazů ve Wordu stačí celý dokument označit (Ctrl+A) a pak stisknout klávesy Ctrl+Shift+F9. Je to vlastně zpěvnění polí jako výsledek, ale funguje to spolehlivě právě i na odkazy. Jen formátování může zůstat, ale to už se snadno upraví.

   14. 10. 2009, 08:31:57

Přidání komentáře

Chcete-li můžete článek komentovat. Neodpovídám za názory čtenařů, jen si vyhrazuji právo vulgarní výrazy a názory odporující dobrým mravům vymazat.

• jsou povinné všechny tři položky
• IP adresa je zaznamanávána, ale nezobrazuje se
• Jsou povoleny tagy <b></b>, <u> </u> a <i></i>

Jméno

Text komentáře

Napište číslici sedm. Děkuji (ochrana proti Spamu)

---