Mit diesem Makro kann ich Webseiten oder LO Dateien, z.B. odt, aufrufen, wenn ich den Pfad in das Feld eingebe. Dank an RobertG für den Hinweis und die Hilfe dazu.
Code: Alles auswählen
REM ***** BASIC *****
SUB Website_Aufruf(oEvent AS OBJECT)
REM Aufruf einer Website oder des Mailprogramms mit einer vorgegebenen Mailadresse
DIM oFeld AS OBJECT
DIM oShell AS OBJECT
DIM stFeld AS STRING
oFeld = oEvent.Source
REM Den Text aus der Dateiauswahl auslesen
stFeld = oFeld.Text
IF stFeld = "" THEN
EXIT SUB
END IF
IF InStr(stFeld,"@") THEN
stFeld = "mailto:"+stFeld
ELSEIF InStr(stFeld,"http://") THEN
stFeld = convertToUrl(stFeld) 'convertToUrl erkennt, dass mit http:// bereits eine Verbindung vorgegeben ist. file:/// wird nicht gesetzt
ELSE
stFeld = "file:///"+stFeld
stFeld = convertToUrl(stFeld) 'convertToUrl erkennt, dass mit http:// bereits eine Verbindung vorgegeben ist. file:/// wird nicht gesetzt
END IF
REM Start des Files mit der entsprechenden URL-Verbindung
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
oShell.execute(stFeld,,0)
END SUB
Grüße
Malt
LibreOffice
Version: 4.4.7.2
Gebietsschema: de_DE
Microsoft Windows 10