Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » word » visual-basic-vba » vba-odebrani-hypertextoveho-odkazu

VBA - odebrání hypertexového odkazu

jak ve Visual Basicu automaticky odebrat hypertextové odkazy.

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 byl aktualizován: 19.09.2020 10:38

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil



Komentáře


Josef

Přidáno: 14.04.10 09:31

Mám dotaz: Lze ve Wordu po spuštění souboru automaticky spustit makro ? Jak ?

Pavel Lasák

Přidáno: 14.04.10 17:44

To Josef: LZE :) Podobně jako v MS Excel, jen deklaruješ, že při otevíraní dokumentu se má provést požadovaná akce:

Private Sub Document_Open()
   MsgBox "office.lasakovi.com"
End Sub

Míra Jirásek

Přidáno: 17.09.10 18:02

Ahoj a dobrý den, když už se to tu motá kolem mazání hypertextového odkazu, mám menší problém. Potřeboval bych vytvořit relativní hypertextový odkaz pomocí VBA. Problém je v tom, že formulář, který by měl uživatel používat, má obsahovat CommandButton, který by měl zobrazit dialog pro uložení hypertextového odkazu do určité buňky na určitém listě. Předem ale nevím, jak se tato složka bude jmenovat. Děkuji všem za případnou pomoc.

Pavel Lasák

Přidáno: 20.09.10 17:55

To Míra: Takže hypertextový odkaz bude zaviset na znění složky ve které je výsledný soubor umistěn? Adresa buňky i název listu budou vždy stejné?

Petr Seifert

Přidáno: 30.10.15 13:34

Zatímco v Excelu mě makra hodně ulehčují práci, ve Wordu nevím jak např. uzamknout dokument tak, abych nemusel tuto akci provádět složitě přes neustálé vypisování hesla. Odemčení mi funguje obdobně, jak v Excelu, ale se zamčením jsem nepochodil.








Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2021 |