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.








Sdílejte

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

Nové články

25.01.2017:
WorksheetFunctions funkce k dispozici ve VBA Excel

09.02.2017:
Jak na logaritmy LN, LOG, LOGZ

14.02.2017:
TEXTJOIN spojuje texty a přidá oddělovač


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 - 2017 | 4481

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