Seite 1 von 1
Liste aller Links eines Dokumentes
Verfasst: Mi, 31.07.2019 10:39
von mtriebler@mail.de
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
Re: Liste aller Links eines Dokumentes
Verfasst: Mi, 31.07.2019 12:47
von Stephan
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