Hallo Eva,
ja, es ist kein Problem.
viewtopic.php?t=9474
In diesem Thread hat Karolus, dazu ein Makro geschrieben.
Allerdings müßte es noch für Deine Bedürfnisse angepaßt werden,
da die URL ledglich in einer MSGBox ausgegeben wird.
Es müßte hier für Dich ein Part eingearbeitet werden, der die aktuelle
Cursorposition (Zelladresse) ermittelt, dort ein URL-Feld einfügt und
in dieses dann den Clipboard-Text.
-------------------------------------------------------------------------------------------
Ich habe hier mal einen Code geschrieben, OH
, Verzeihung ich habe Codeteile
von 2 Personen ineinanderkopiert und auf Deine Wünsche hin nachgearbeitet.
Die Urheber sind
Komma4 und
Karolus.
Code: Alles auswählen
SUB calc_Hyperlink_In_Zelle()
' 20150705
' de 65989
' Author Komma4
' Quelle:http://de.openoffice.info/viewtopic.php?t=65989
' Author Karolus
' Quelle:http://de.openoffice.info/viewtopic.php?t=65989
' Author: DavidG
' Ich habe mir aus beiden Makros die erfoderlichen Dinge herauskopiert
' und entsprechend angepaßt.
' Objekte
Dim oDoc as Object
Dim oSel as Object ' aktuelle Cursorposition
Dim oClip as Object
Dim oConverter as Object
Dim oClipContents as Object
Dim oTypes as Object
Dim textobjekt as Object
Dim oField as Object
Dim convertedString$ as Object
Dim i%, iPlainLoc% as Object
Dim url
Dim link
oDoc = ThisComponent
' Instanz: Clipboard Objekt
oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
' Instanz: Converter
oConverter = createUnoService("com.sun.star.script.Converter")
' aktuelle Cursorposition
oSel=oDoc.CurrentSelection
mri oSel
oClipContents = oClip.getContents()
oTypes = oClipContents.getTransferDataFlavors()
Dim msg$, iLoc%, outS
msg = ""
iLoc = -1
For i=LBound(oTypes) To UBound(oTypes)
If oTypes(i).MimeType = "text/plain;charset=utf-16" Then
iPlainLoc = i
Exit For
End If
'msg = msg & "Mime type = " & x(ii).MimeType & " normal = " & x(ii).HumanPresentableName & Chr$(10)
Next
' dient nicht nur der Anzeige des Clipboard-Inhalts,
' sondern auch, um ggf. einen Fehler abzufangen, falls der Inhalt kein Text ist.
' Die msgboxen dürfen aber auskommentiert werden.
If (iPlainLoc >= 0) Then
convertedString = oConverter.convertToSimpleType(oClipContents.getTransferData(oTypes(iPlainLoc)), com.sun.star.uno.TypeClass.STRING)
msgbox convertedString
Else
' Für den Fall, dass Clipboard keine einfügbaren Daten enthält
MsgBox "Nichts zum Einfügen vorhanden"
End If
oSel.String=convertedString
textobjekt = oSel.getText()
' Aufbereiten der URL
url = ConvertToURL(convertedString)
' ÚRL Instanz
link = oDoc.createInstance( "com.sun.star.text.TextField.URL" )
' Instanz besetzen
WITH link
.URL = url
.Representation = convertedString
END WITH
' einfügen in Zelle
oSel.insertTextContent( textobjekt.createTextCursor() , link , TRUE )
END SUB
Gruß
David