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

Nový videokurz na Seduo: Excel pro začátečníky

     

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: 10.01.2010 12:37

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

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

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:




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.


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)







Sdílejte

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

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

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 - 2016 | 4161

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.