von Dorus » Mi, 03.10.2018 12:16
Hallo, danke für die Antwort. Ich habe mich weiter umgesehen und habe jedenfalls einen Ansatz gefunden, der aber mein Problem noch nicht löst:
Ich habe jetzt ein Sub, das Webseiten-Inhalte in ein Writer-Fenster kopiert und zum Clipboard hinzufügt. Da ich an dem Writer-Fenster nicht interessiert bin, habe ich rumprobiert, wie man diese Writer-Ausgabe verhindern kann, was mir aber nicht gelungen ist (unten auskommentiert). Ich stelle außerdem leider fest, dass der Erfolg dieses Codes von der Url abhängt. Mit der unten eingesetzten Url geht es ganz gut. Dagegen öffnet sich bei
https://de.wikipedia.org/wiki/Charles_Aznavour
zwar der Writer mit Webseiten-Inhalt, aber er wird nicht automatisch kopiert.
Und wenn ich
http://www.oddsportal.com/soccer/austri ... undesliga/
einsetze (woran mir am meisten liegen würde), kriege ich einen Basic-Laufzeitfehler.
Wer kann mir bitte weiterhelfen, und mir erklären, warum es mit mancher Url geht, mit einer anderen nicht?
Sub LoadWebsite()
Dim Out As Object
Dim Url As String
Dim Props(0) As New com.sun.star.beans.PropertyValue
Dim Dummy()
Props(0).Name="Hidden" : Props(0).Value=True
Url = "
http://www.bbc.co.uk/news/"
'Out = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Props())
Out = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
CopyToClipboard(Out)
End Sub
sub CopyToClipboard(Document as object)
Dim dispatcher as object
docframe = Document.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(docframe, ".uno:SelectAll", "", 0, Array())
dispatcher.executeDispatch(docframe, ".uno:Copy", "", 0, Array())
end sub
Hallo, danke für die Antwort. Ich habe mich weiter umgesehen und habe jedenfalls einen Ansatz gefunden, der aber mein Problem noch nicht löst:
Ich habe jetzt ein Sub, das Webseiten-Inhalte in ein Writer-Fenster kopiert und zum Clipboard hinzufügt. Da ich an dem Writer-Fenster nicht interessiert bin, habe ich rumprobiert, wie man diese Writer-Ausgabe verhindern kann, was mir aber nicht gelungen ist (unten auskommentiert). Ich stelle außerdem leider fest, dass der Erfolg dieses Codes von der Url abhängt. Mit der unten eingesetzten Url geht es ganz gut. Dagegen öffnet sich bei
https://de.wikipedia.org/wiki/Charles_Aznavour
zwar der Writer mit Webseiten-Inhalt, aber er wird nicht automatisch kopiert.
Und wenn ich
http://www.oddsportal.com/soccer/austria/tipico-bundesliga/
einsetze (woran mir am meisten liegen würde), kriege ich einen Basic-Laufzeitfehler.
Wer kann mir bitte weiterhelfen, und mir erklären, warum es mit mancher Url geht, mit einer anderen nicht?
Sub LoadWebsite()
Dim Out As Object
Dim Url As String
Dim Props(0) As New com.sun.star.beans.PropertyValue
Dim Dummy()
Props(0).Name="Hidden" : Props(0).Value=True
Url = "http://www.bbc.co.uk/news/"
'Out = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Props())
Out = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
CopyToClipboard(Out)
End Sub
sub CopyToClipboard(Document as object)
Dim dispatcher as object
docframe = Document.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(docframe, ".uno:SelectAll", "", 0, Array())
dispatcher.executeDispatch(docframe, ".uno:Copy", "", 0, Array())
end sub