Liste aller Links eines Dokumentes

Das Präsentationsgrafikprogramm

Moderator: Moderatoren

mtriebler@mail.de
Beiträge: 1
Registriert: Mi, 31.07.2019 10:33

Liste aller Links eines Dokumentes

Beitrag von mtriebler@mail.de » Mi, 31.07.2019 10:39

Hallo!

Gibt es die Möglichkeit, sich alle Links, die in einem Präsentation sind, in Form z.B einer Liste ausgeben zu lassen?

MfG mtriebler

Stephan
********
Beiträge: 11256
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Liste aller Links eines Dokumentes

Beitrag von Stephan » Mi, 31.07.2019 12:47

Folgendes Makro (angelehnt an https://www.uni-due.de/~abi070/ooo.html) sollte das erledigen:

Code: Alles auswählen

Sub Main
	Dim k As String
	
	On Error Resume next
	dp = ThisComponent.DrawPages.GetCount
	For i = 0 To dp-1
		dpe = ThisComponent.DrawPages.getByIndex(i).getCount
		For j = 0 To dpe-1
			x = ThisComponent.DrawPages.getByIndex(i).getByIndex(j) '.getString
			oParEnum = x.Text.createEnumeration()
 			 Do While oParEnum.hasMoreElements()
   			 oPar = oParEnum.nextElement()
   			 If oPar.supportsService("com.sun.star.text.Paragraph") Then
		      oSecEnum = oPar.createEnumeration()
      			Do While oSecEnum.hasMoreElements()
			        oParSection = oSecEnum.nextElement()
			       If oParSection.TextPortionType = "TextField" Then
			       	k = k & oParSection.TextField.URL & CHR(13)
			       End If
			      Loop
      		End If
   			 Loop
		Next j
	Next i
	
	oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
	oDoc.Text.String = k 

End Sub

Gruß
Stephan

Antworten