Firefox Adresse in Word übertragen

kenorjo

Hallo,
kann jemand weiterhelfen?
Bin leider absolut ahnungslos und quäl mich als Anfänger seit Stunden durch Tutorials und Funktionen.
Also:
Ich will in einem aktiven Firefox Fenster die Adressleiste kopieren und sie in Word einfügen.

Weder

Code

WinActivate("[CLASS:MozillaWindowClass]")


Sleep(1000)


Send("!s")


Send("^c")


Sleep(1000)


ShellExecute("C:\Dokumente und Einstellungen\Ich\Desktop\Links.doc")


Sleep(1000)


Send("^v")


Send("{Enter}")

Alles anzeigen

noch

Code

ShellExecute("[CLASS:MozillaWindowClass]")


Sleep(1000)


Send("!a")


Send("^c")


Sleep(1000)


ShellExecute("C:\Dokumente und Einstellungen\Ich\Desktop\Links.doc ")


Sleep(1000)


Send("^v")


Send("{Enter}")

Alles anzeigen

bringen die Lösung.
Das Word-Dokument wird aufgerufen usw, aber ich komme einfach nicht ins Firefox Fenster.

Wäre für einen Tip dankbar!

**water**

Du solltest prüfen, ob die von Dir abgesetzten Befehle auch problemlos funktionieren.
Was ist der Rückgabewert von WinActivate?

**Bitnugger**

AutoIt

;-- TIME_STAMP   2016-01-02 15:18:21


#include <FF.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>


If _FFConnect() Then
	Local $sHref = _FFCmd(".location.href")
	ConsoleWrite("$sHref: " & $sHref & @CRLF)
	; disconnect from FireFox
	_FFDisConnect()
	If $sHref <> "" Then
		; Create application object
		Local $oWord = _Word_Create()
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		; Open test.doc read-only
		Local $oDoc = _Word_DocOpen($oWord, "C:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\Test.doc", Default, Default, True)
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error opening 'C:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


		; *****************************************************************************
		; Insert the link from current FireFox-Tab as the fourth word
		; *****************************************************************************
		Local $oRange = _Word_DocRangeSet($oDoc, -1, $wdWord, 3, $wdWord, 1)
		_Word_DocLinkAdd($oDoc, $oRange, $sHref)
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error adding a link to the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", "The link from current FireFox-Tab has been inserted as the fourth word.")
	Else
		MsgBox($MB_SYSTEMMODAL, "FF UDF: _FFCmd() failed", _
			"Error - the actual Tab is empty." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		Exit 2
	EndIf
Else
	MsgBox($MB_SYSTEMMODAL, "FF UDF: _FFConnect() failed", _
		"Error - Do you have the MozRepl addon installed / running?" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
	Exit 1
EndIf

Alles anzeigen

kenorjo

Zitat von water

Du solltest prüfen, ob die von Dir abgesetzten Befehle auch problemlos funktionieren.
Was ist der Rückgabewert von WinActivate?

Tut mir leid, ich verstehe leider "Rückgabewert" nicht.
Ich habe mit Hilfe von AUTOIT WINDOW INFO das Firefox Fenster ausgelesen.
Den Titel kann ich ja nicht angeben, weil der sich doch immer ändert.
Also musste ich CLASS nehmen (??)

Wie gesagt: Die Befehle funktionieren leider nur zur Hälfte.
Ich schaffe es einfach nicht, ein aktives Firefox Fenster zu öffnen.
Also absurderweise ist es einfacher FIREFOX neu zu starten, aber der Sinn des Skriptes soll ja sein,
dass ich während ich mit Firefox arbeite/irgendwo surfe, das Skript ausführen kann.

Zitat von Bitnugger

AutoIt

;-- TIME_STAMP   2016-01-02 15:18:21


#include <FF.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>


If _FFConnect() Then
	Local $sHref = _FFCmd(".location.href")
	ConsoleWrite("$sHref: " & $sHref & @CRLF)
	; disconnect from FireFox
	_FFDisConnect()
	If $sHref <> "" Then
		; Create application object
		Local $oWord = _Word_Create()
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		; Open test.doc read-only
		Local $oDoc = _Word_DocOpen($oWord, "C:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\Test.doc", Default, Default, True)
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error opening 'C:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


		; *****************************************************************************
		; Insert the link from current FireFox-Tab as the fourth word
		; *****************************************************************************
		Local $oRange = _Word_DocRangeSet($oDoc, -1, $wdWord, 3, $wdWord, 1)
		_Word_DocLinkAdd($oDoc, $oRange, $sHref)
		If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", _
				"Error adding a link to the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocLinkAdd Example", "The link from current FireFox-Tab has been inserted as the fourth word.")
	Else
		MsgBox($MB_SYSTEMMODAL, "FF UDF: _FFCmd() failed", _
			"Error - the actual Tab is empty." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		Exit 2
	EndIf
Else
	MsgBox($MB_SYSTEMMODAL, "FF UDF: _FFConnect() failed", _
		"Error - Do you have the MozRepl addon installed / running?" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
	Exit 1
EndIf

Alles anzeigen

Sorry, aber ich versteh leider überhaupt nichts.
Soll ich das ALLES eintragen in meine au3-Skript-Datei?!
Und wo kommen dann die Befehle, die funktionieren?
Also z.b.

Code

ShellExecute("C:\Dokumente und Einstellungen\Ich\Desktop\Links.doc ")
Sleep(1000)
Send("^v")
Send("{Enter}")

Weil dieser Abschnitt funktioniert ja reibungslos.
Also ich führe das Skript aus, nichts tut sich, verharrt auf Desktop und dann wird Word-Datei geöffnet und dann da was hineinkopiert, was in Zwischenablage vorher war.
Nur in das aktive Firefox Fenster komme ich leider nicht rein.

**water**

Bitnugger automatisiert nicht das Firefox/Word GUI sondern verwendet UDFs die die Programme über COM ansprechen.

Ich meine mit Rückgabewert, das was die Funktion zurückgibt. In der Hilfe steht dann, wie dies im Fehlerfall aussieht. Wenn Du z.B. mit WinActivate ein nicht existentes Window ansprichst, dann erhältst du den Wert 0, sonst ein Handle für das Window.

kenorjo

Zitat von water

Bitnugger automatisiert nicht das Firefox/Word GUI sondern verwendet UDFs die die Programme über COM ansprechen.

Ich meine mit Rückgabewert, das was die Funktion zurückgibt. In der Hilfe steht dann, wie dies im Fehlerfall aussieht. Wenn Du z.B. mit WinActivate ein nicht existentes Window ansprichst, dann erhältst du den Wert 0, sonst ein Handle für das Window.

Achso.
Soll ich das einfach kopieren und in die au3-Skript-Datei einfügen?
Nicht, dass da irgendwas fälschlicherweise gelöscht/verschoben wird...
Solange es funktioniert.
Auch wenn es schade ist, weil ich als absoluter Laie die (einfachen) befehle wie WINACTIVE/SLEEP usw
einfach nachvollziehen konnte und mit Bitnuggers Lösungsansatz überhaupt nicht mehr verstehe.
Über 30 Schritte "nur" um in ein aktives Firefox Fenster zu springen?!
Wow. Dann ist das ganze wirklich für Experten.

Hm, Rückgabewert.
Die Skriptdatei gibt - wie ich schon schrieb - NICHTS zurück, also ich aktiviere es vom Desktop und springt einfach nicht ins Firefox-Fenster.
Kannst du mir vielleicht den englischen Begriff für Rückgabewert geben?
Weil die Hilfsdatei ist auf englisch.

**Bitnugger**

AutoIt

;-- TIME_STAMP   2016-01-02 18:13:56


If WinExists("[CLASS:MozillaWindowClass]") = 0 Then
	MsgBox(266256,"Error", "'Firefox' ist wohl noch nicht gstartet worden!")
Else
	WinActivate("[CLASS:MozillaWindowClass]")
	If WinWaitActive("[CLASS:MozillaWindowClass]", "", 30) = 0 Then
		MsgBox(266256,"Error", "'Firefox' konnte nicht aktiviert werden!")
	Else
		Sleep(1250)
		Send("!s")	; Alt + s - Adressfeld aktivieren
		Sleep(250)
		Send("^c")	; Ctrl + c - Adresse in Zwischenablage kopieren


		; Links.doc in Word öffnen
		ShellExecute(@DesktopDir & "\Links.doc")
		WinActivate("Links.doc")
		If WinWaitActive("Links.doc", "", 30) = 0 Then
			MsgBox(266256,"Error", "'" & @DesktopDir & "\Links.doc' konnte nicht geöffnet werden!")
		Else
			Send("^v")
			Send("{Enter}")
		EndIf
	EndIf
EndIf

Alles anzeigen

Edit: Rückgabewert = Return Value

Wobei zwei Fälle zu unterscheiden sind...
Erfolg (Success) - meist ungleich 0
Fehler (Failure) - meist 0 oder -1 und/oder @error und evtl. @extended ist/sind gesetzt