MS Word 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 zveřejněn: 24.4.2008 |