OpenOffice.info

Code: Alles auswählen

Sub get_urls

sel = thisComponent.CurrentSelection
rowsize = sel.Rows.Count -1
colsize = sel.Columns.Count -1

for c = 0 to colsize
	for r = 0 to rowsize
		cell = sel.getCellByPosition( c, r )
		on Error goto skip ' Zellen ohne Hyperlink überspringen
		url = cell.createTextCursor.Text.getTextFields().getByIndex(0).url
		cell.setString(url)
		skip:
	next r
next c

End Sub

Code: Alles auswählen

Function isohyp(Tabellenname As String, Zellname As String)
	akt_zelle = ThisComponent.Sheets(Tabellenname).getCellRangeByName(Zellname)
	tmp = akt_zelle.getText().createEnumeration()
	Do While tmp.hasMoreElements()
		tmp_next = tmp.nextElement()
		tmp_akt = tmp_next.createEnumeration()
		Do While tmp_akt.hasMoreElements()
			eintrag = tmp_akt.nextElement()
			If eintrag.TextPortionType = "TextField" Then
				If eintrag.TextField.supportsService("com.sun.star.text.TextField.URL") Then
					isohyp = eintrag.TextField.URL
				End If
			End If
		Loop
	Loop
End Function