MindManager-Makro: Hyperlinks entfernen

MindManager bietet mit dem Makro-Editor eine interessante Entwicklungsumgebung, um die Funktionalitäten zu erweitern. Damit lassen sich ausgefeilte Lösungen realisieren (z.B. spezielle Word-Exporte), aber auch kleine Helferlein, die einem in mancher Situation das Leben erleichtern bzw. Zeit sparen können. Ein solches Helferlein ist das folgende kleine Makro, das einfach alle Zweig-Hyperlinks aus einer Map entfernt.

Wofür braucht man das? In meinem Fall hatte ich mir eine umfangreiche Ordnerstruktur über den Dateiexplorer in eine Map importiert. Mir ging es aber nur um die Ordnernamen, die Links benötigte ich nicht mehr. Da es sich um ein paar hundert Zweige handelte, machten diese zudem die Map etwas träge.

Also, nichts wie ran und in fünf Minuten folgendes Makro gebastelt:

Dim WithEvents tf As TopicFinder

Sub Main
	Dim t As Topic

	Set t = ActiveDocument.CentralTopic
	Set tf = t.NewTopicFinder
	tf.Start
End Sub

Private Sub tf_TopicFound (t As Topic)
	If t.HasHyperlink Then
		t.Hyperlink.Delete
	End If
End Sub

Hinterlasse eine Antwort

 

 

 

Du kannst diese HTML-Tags benutzen

<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="">