Beiträge von SmilingStar

Ein mischen hatte ich auch nicht beabsichtigt, nur den falschen Code kopiert.

Func _bestp()
Local $sdbvar, $hand, $name, $datearray[1], $var2 = 1, $araten, $oDoc
If WinExists("SDB") Then
$sdbksvar = 1
$WordDoc = _Word_Create()
$hand = _Word_DocOpen(@MyDocumentsDir & "\sdb_zahlung.doc")
$name = "sdb_zahlung"
Else
$WordDoc = _Word_Create()
$hand = _Word_DocOpen(@MyDocumentsDir & "\Zahlung.doc")
$name = "zahlung"
EndIf
WinWait($name)

If Not @error Then
$oDoc = _Word_DocGet($hand, 0)
Sleep(300)
_Word_DocFindReplace($oDoc, "xx Euro zum TT. Monat JJJJ", $araten & " Euro zum " & $datearray[1])
Sleep(100)
;[....] Script gekürzt

Bleibt bei dem von mir genannten Problem.
Ich hab nun das Problem, dass die Funktion _Word_DocFindReplace nicht mehr funktioniert - keine der gewünschten Ersetzungen vornimmt.
Soweit ich der Dokumentation hier folgen kann, hat sich aber nur die Schreibweise geändert.
Was hab ich übersehen?

Ich grab das hier mal wieder aus, da ich jetzt wieder etwas mehr Zeit dafür hatte.

Nach dem dezenten Hinweis, dass mein AutoIt in ein Museum gehört , hab ich mich doch mal für einen Wechsel auf die aktuelle 3.3.10.2 entschieden.
Es hat mich nun nicht wirklich überrascht, dass das Script nicht sofort funktioniert.

Func _bestp()
Local $sdbvar, $hand, $name, $datearray[1], $var2 = 1, $araten, $oDoc
If WinExists("SDB") Then
$sdbksvar = 1
$WordDoc = _Word_Create()
$hand = _WordCreate(@MyDocumentsDir & "\sdb_zahlung.doc")
$name = "sdb_zahlung"
Else
$WordDoc = _Word_Create()
$hand = _WordCreate(@MyDocumentsDir & "\Zahlung.doc")
$name = "zahlung"
EndIf
WinWait($name)

If Not @error Then
$oDoc = _Word_DocGet($hand, 0)
Sleep(300)
_Word_DocFindReplace($oDoc, "xx Euro zum TT. Monat JJJJ", $araten & " Euro zum " & $datearray[1])
Sleep(100)
;[....] Script gekürzt

Ich hab nun das Problem, dass die Funktion _Word_DocFindReplace nicht mehr funktioniert - keine der gewünschten Ersetzungen vornimmt.
Soweit ich der Dokumentation hier folgen kann, hat sich aber nur die Schreibweise geändert - genauso wie für das frühere _WordDocGetCollection.
Was hab ich übersehen?

Ach ich seh gerade, du bist doch der Autor des aktuellen Word.au3
Dann kannst du mir sicher verraten, was ich als Ersatz für die alte Funktion

_WordDocPropertyGet

nehmen soll?
Hab damit die Anzahl der Seiten des Dokuments gezählt, um in bestimmten Fällen noch die Kopfzeile des Dokuments zu bearbeiten.

Der Teil des Codes ist eigentlich eine Altlast.
Um bei deinem Beispiel zu bleiben:
Der Benutzer hatte 2 Word-Dokumente offen und drückt meinen Hotkey.
Nun öffnete sich das Word-Dokument, AutoIt bekam aber keine Zuordnung der Instanz hin - es war keine Bearbeitung über Word.au3 möglich.
Im Task Manager ist bei dem Fehler aufgefallen, dass es zwar 3 Word-Dokumente aber bspw 5 Prozesse Winword.exe gab.
Daher dann das beenden der Prozesse.

Soweit ich weiß, war der Teil aber schon lang nicht mehr notwendig.
Aber meine Überlegung: Könnte der Absturz entstanden sein, weil

$hand = _WordCreate(@MyDocumentsDir & "\sdb_zahlung.doc")

kein Word-Dokument erstellen konnte, oder nicht schnell genug?, und meine "Altlast" dann versucht hat, die nicht vorhandenen Winword-Prozesse mit einer leeren Variable $hand als Refenz zu beenden?

Zitat von water

Du erstellst auf der einen Seite ein Word Dokument über COM (_WordCreate), beendest Word dann aber über die Automatisierung des GUI.
Warum verwendest Du nicht einfach

[autoit]

_WordQuit($hand)

[/autoit]

Ich beende ja nicht mein eigenen Handle. Nur wenn er das erstellte Word-Dokument nicht finden kann, ist passiert wenn weitere Prozesse mit dem Namen Winword.exe existierten, sollte er diese weiteren Prozesse schließen.

#include <Array.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
Opt("WinTitleMatchMode", 1)
Opt("TrayAutoPause", 0)

Func _bestp()
Local $sdbvar, $hand, $name, $datearray[1], $var2 = 1, $araten, $oDoc
If WinExists("SDB") Then
$sdbksvar = 1
$hand = _WordCreate(@MyDocumentsDir & "\sdb_zahlung.doc")
$name = "sdb_zahlung"
Else
$hand = _WordCreate(@MyDocumentsDir & "\Zahlung.doc")
$name = "zahlung"
EndIf

If Not @error Then
WinWait($name)
$oDoc = _WordDocGetCollection($hand, 0)
;[....] Script gekürzt
If WinExists("Microsoft Word") Then WinClose("Microsoft Word")

Else
$pid = WinGetProcess($name)
$i = 1
$list = ProcessList("WINWORD.exe")
If $list[0][0] > 1 Then
Do
If $list[$i][1] <> $pid Then ProcessClose($list[$i][1])
$i = $i + 1
Until $i >= $list[0][0]
WinActivate($name)
Send("{F4}")
Else
MsgBox(48, "", "Schreiben konnte nicht erkannt werden. Bitte Schreiben schließen und erneut öffnen.")

EndIf
EndIf
EndFunc

Mit deinem

_WordQuit($hand)

würde ich ja nur mein Handle beenden.

Hab es jetzt mal beim Problem-Computer mit deinem ErrorHandler in meinem Code getestet.
Der einzige Fehler ist...

Hotkey.exe (-1) : ==> COM Error intercepted !
	err.number is: 		0x80020009
	err.windescription:	
	err.description is: 	Unzureichender Arbeitsspeicher. Speichern Sie jetzt Ihr Dokument.
	err.source is: 		Microsoft Word
	err.helpfile is: 	C:\Programme\Microsoft Office\OFFICE11\1031\wdmain11.chm
	err.helpcontext is: 	24577
	err.lastdllerror is: 	0
	err.scriptline is: 	-1
	err.retcode is: 	0x800A13E9

Was mir auffällt, am Ende der problematischen Funktion habe ich den folgenden Code:

Else
$pid = WinGetProcess($name)
$i = 1
$list = ProcessList("WINWORD.exe")
If $list[0][0] > 1 Then
Do
If $list[$i][1] <> $pid Then ProcessClose($list[$i][1])
$i = $i + 1
Until $i >= $list[0][0]
WinActivate($name)
Send("{F4}")
Else
MsgBox(48, "", "Schreiben konnte nicht erkannt werden. Bitte Schreiben schließen und erneut öffnen.")

EndIf
EndIf

Dieses Else, Zeile 1, bezieht sich auf die Zeile "If Not @error Then", welche nach dem öffnen des Word-Dokument kommt.
Damit habe ich, wenn die Erkennung des Word-Prozess/Fenster nicht funktioniert hat, zusätzliche Prozesse mit dem Namen WINWORD.exe aufgelistet und beendet. Nur wenn auch das nicht funktioniert hat, kam die MsgBox, Zeile 13, mit der Bitte, das Schreiben zu schließen.
Hängt das irgendwie zusammen?

Zitat von water

Vielleicht beschreibt dieser Artikel das Problem.
Ich ahtte mal ein ähnliches Problem mit einem schlecht programmierten Add-On. Kannst Du mal alle Add-Ons in Word ausschalten und nochmals testen?

Eigentlich sind wir ja jetzt etwas vom Kurs abgekommen, bei meinem Computer hatte das ja immer funktioniert.^^
Hab jetzt mal beim betroffenen Computer beides getestet.

Hab dein ObjEvent die Ausgabe in eine TXT machen lassen, positiv ist schon mal, das Word-Dokument geht auf.
Dazu die folgende Fehlerausgabe:

Error_Handler.au3 (155) : ==> COM Error intercepted !
	err.number is: 		0x800401E3
	err.windescription:	Vorgang nicht verfügbar.


	err.description is: 	
	err.source is: 		
	err.helpfile is: 	
	err.helpcontext is: 	
	err.lastdllerror is: 	14007
	err.scriptline is: 	155
	err.retcode is: 	0x00000000


ErrorHandler.exe (-1) : ==> COM Error intercepted !
	err.number is: 		0x80020009
	err.windescription:	
	err.description is: 	Unzureichender Arbeitsspeicher. Speichern Sie jetzt Ihr Dokument.
	err.source is: 		Microsoft Word
	err.helpfile is: 	C:\Programme\Microsoft Office\OFFICE11\1031\wdmain11.chm
	err.helpcontext is: 	24577
	err.lastdllerror is: 	0
	err.scriptline is: 	-1
	err.retcode is: 	0x800A13E9

Hab danach mal meinen unveränderten Quellcode getestet, da gab es wieder den Absturz ohne öffnen des Word-Dokument.

Zitat von water

Kannst Du bitte die Zeile 155 aus dem Word UDF hier posten?
In der Version 3.3.8.1 steht da:

[autoit]

Local $o_object = ObjGet("", "Word.Application")

[/autoit]

Ist hier identisch
Local $o_object = ObjGet("", "Word.Application")

Word.au3 ist
; Version: V1.0-1
; Last Update: 4/14/07

Zitat von water

3.3.4.0 ist natürlich schon 4 Jahre alt. Da hat sich die Art, wie der Error handler funtkioniert, geändert:
[...]
Aber vielleicht probierst Du es ja auch mit einem Upgrade auf 3.3.8.1 oder 3.3.10.2?

3.3.10.2 müsste ich erst mit administrativen Berechtigungen installieren - was ich auf meinem Arbeitscomputer nicht wirklich mag; mein "altes AutoIt" kann ich problemlos ohne Installation benutzen.
Hab dein Error-Handler gerade mal mit meiner alten Version an meinem eigentlich funktionierenden Computer probiert.
Word-Dokument wird geöffnet, aber in der Console trotzdem folgendes geschrieben:

Zitat von water

Noch ne Frage:
Mit welcher AutoIt Version arbeitest Du?

Die Autoit3.exe ist Version 3.3.4.0, der von mir verwendete SciTE.exe hat die Version 1.7.9.0.
Hab dein Schnipsel gerade mal in eine neue Au3 gepackt und gestartet, gleiches Ergebnis. Neben dem Hinweis
Word.au3 Warning from function _WordCreate, Cannot register internal error handler, cannot trap COM errors (Use _WordErrorHandlerRegister() to register a user error handler)
wird die Konsole gefühlt endlos hiermit gefüllt:

Zitat

Error_Handler.au3 (0) : ==> COM Error intercepted !
err.number is: 0x00000000
err.windescription: 0
err.description is: 0
err.source is: 0
err.helpfile is: 0
err.helpcontext is: 0
err.lastdllerror is: 0
err.scriptline is: 0
err.retcode is: 0x00000000

Alles anzeigen

Hm... hab es auf meinem "funktionierenden Computer" getestet, da wollte er über _WordErrorHandlerDeRegister() erst einmal einen benutzerdefinierten ErrorHandler haben, da er auf den Internen nicht zugreifen konnte.
Entsprechend der Dokumentation hab ich es dann so angepasst.

Func _bestp()
Local $sdbvar, $hand, $name, $datearray[1], $var2 = 1, $araten, $oDoc
_WordErrorHandlerRegister("MyErrFunc")

If WinExists("SDB") Then
$sdbksvar = 1
$hand = _WordCreate(@MyDocumentsDir & "\sdb_zahlung.doc")
$name = "sdb_zahlung"
Else
$hand = _WordCreate(@MyDocumentsDir & "\Zahlung.doc")
$name = "zahlung"
EndIf
_WordErrorHandlerDeRegister()
; Registriert den Standard-Errorhandler aus Word.au3
_WordErrorHandlerRegister()

If Not @error Then
WinWait($name)
$oDoc = _WordDocGetCollection($hand, 0)
;[....] Script gekürzt

Statt in die Console hab ich das ganze in eine TXT-Datei umgeleitet.
Nach meiner Funktion hab ich die Func _ErrFunc($oError) eingebaut und mal bei mir testweise gestartet.
Nun klappt meine Funktion, erstmal der Aufruf des Word-Dokuments, auch bei mir nicht mehr.
Die TXT-Datei wird stattdessen in einer Schleife mit dem folgenden befüllt:

160114.au3 (0) : ==> COM Error intercepted !
err.number is: 0x00000000
err.windescription: 0
err.description is: 0
err.source is: 0
err.helpfile is: 0
err.helpcontext is: 0
err.lastdllerror is: 0
err.scriptline is: 0
err.retcode is: 0x00000000

Zitat von water

Zwei Dinge fallen mir ein:

• Ein COM error handler sollte mehr Informationen übr den aufgetretenen Fehler bringen. Ein Beispiel findet sich in der Hilfe unter ObjEvent
• Ist auf diesem PC die volle Office Installation? Also keine Trial Version? Dann fehlt nämlich COM.

Auf dem Computer ist wie auf allen anderen eine Vollversion von Office 2003 installiert - unter Windows XP.
Kannst du mir das mit dem Com Error Handler etwas näher erläutern?

Hallo Zusammen

Eines meiner Programme macht mir unerwartet Probleme, die ich mir nicht erklären kann. Ich hoffe, ihr habt dafür vielleicht eine Lösung.

Zu den Rahmenbedingungen:
Mein Programm wird von verschiedenen Benutzern an verschiedenen Computern benutzt und aktualisiert sich bei Bedarf über eine gemeinsame Netzwerkquelle.
Ein Teil seiner Funktion ist es, dass mittels HotkeySet ein vorhandenes Word-Dokument geöffnet, eine GUI zur Abfrage zusätzlicher Informationen eingeblendet wird und nach dem schließen der GUI eine entsprechende Anpassung des Word-Dokument mit anschließenden Druck erfolgt - eigentlich sehr simpel.

Nun hat es sich bei einer neuen Benutzerin ergeben, dass das Programm beim Start der entsprechenden Funktion abstürzt - jedoch nur bei dieser Benutzerin.
Als Erklärung gibt es dazu die folgende Meldung:

Der Quellcode samt Includes sieht, zur Übersichtlichkeit gekürzt, wie folgt aus.

#include <Array.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
Opt("WinTitleMatchMode", 1)
Opt("TrayAutoPause", 0)

Func _bestp()
Local $sdbvar, $hand, $name, $datearray[1], $var2 = 1, $araten, $oDoc
If WinExists("SDB") Then
$sdbksvar = 1
$hand = _WordCreate(@MyDocumentsDir & "\sdb_zahlung.doc")
$name = "sdb_zahlung"
Else
$hand = _WordCreate(@MyDocumentsDir & "\Zahlung.doc")
$name = "zahlung"
EndIf

If Not @error Then
WinWait($name)
$oDoc = _WordDocGetCollection($hand, 0)
;[....] Script gekürzt

Else
$pid = WinGetProcess($name)
$i = 1
$list = ProcessList("WINWORD.exe")
If $list[0][0] > 1 Then
Do
If $list[$i][1] <> $pid Then ProcessClose($list[$i][1])
$i = $i + 1
Until $i >= $list[0][0]
WinActivate($name)
Send("{F4}")
Else
MsgBox(48, "", "Schreiben konnte nicht erkannt werden. Bitte Schreiben schließen und erneut öffnen.")

EndIf
EndIf
EndFunc

Mit simplen MsgBox bin ich zumindest so weit gekommen, dass der Absturz mit dem Befehl $hand = _WordCreate(@MyDocumentsDir & "\ geschieht.

Mir erschließt sich allerdings nicht, warum. Soweit ersichtlich ist die Word-Version des Computers identisch zu den anderen. Es handelt sich hier um das etwas betagte Word 2003.
Hat jemand von Euch eine Idee, woran er sich stören könnte?

Niemand eine Idee hierzu?

Nabend zusammen

Da ich nicht recht weiß, ob sowas überhaupt problemlos möglich ist, hoffe ich einfach mal auf eure Weisheit.

Worum es geht: Auf einem Laptop mit Windows 7 soll eine externe Anwendung gestartet werden, sobald dieser sich in einem namentlich bekannten WLAN befindet, welches entsprechend als vertrauenswürdiges Heimnetz, oder wie Microsoft das nochmal nennt, in Windows eingestuft ist.

Grundsätzlich ja sehr einfach aber gibt es eine Variable die man Abfragen kann, um den Namen des verbunden WLAN zu erfahren?
Notfalls könnte es auch genügen, die Verfügbarkeit eines Netzlaufwerks, welches sich im entsprechenden WLAN befindet, abzufragen.

Danke schon einmal im voraus.

Zitat von chesstiger

Kein Ding.

Da dein Problem/deine Probleme ja offensichtlich gelöst wurden, wäre es nett, wenn du den Thread als gelöst markieren würdest.
Dazu den ersten Beitrag bearbeiten und das Präfix von offen auf gelöst stellen.

lg

So ganz gelöst ist die Sache für mich noch nicht, kam nur nicht zum Schreiben.
Grundsätzlich funktioniert das Erstellen der E-Mail und einfügen des Anhangs wunderbar, danke für Eure Hilfe.
Da Outlook mir eine entsprechende Sicherheitswarnung liefert, greife ich auf die angebotene Lösung der kompilierten _OL_Warnings.au3 zurück.
Die nötigen Anpassungen an das deutsche Outlook habe ich auch gemacht.
Mir fällt jedoch auf, dass er mehrfach den Haken setzt, den Zugriff für die nächste 1 Minute zu gestatten. Da auch der zugehörige ToolTip blinkt, gehe ich davon aus, dass er die zugehörige Schleife mehrfach ausführt.
Hat dazu jemand eine Idee warum das geschieht ?
Kann ich die innere While-Schleife nicht auch entfernen und mich dort auf die IF-Schleifen beschränken ?

While 1
If WinExists($sWindowTitle, $sWindowText) Then
Local $aOL_WinSize = WinGetPos($sWindowTitle, $sWindowText)
ToolTip(@CRLF & "OL_Warning will automatically click these buttons" & @CRLF, $aOL_WinSize[0] + 50, $aOL_WinSize[1] + 70, "Don't touch")
While 1
WinActivate($sWindowTitle, $sWindowText)
If ControlCommand($sWindowTitle, $sWindowText, "Button3", "IsEnabled") Then
ControlFocus($sWindowTitle, $sWindowText, "[CLASS:Button; INSTANCE:3]")
ControlClick($sWindowTitle, $sWindowText, "Button3")
EndIf
If ControlCommand($sWindowTitle, $sWindowText, "Button4", "IsEnabled") Then
ControlFocus($sWindowTitle, $sWindowText, "[CLASS:Button; INSTANCE:4]")
Send("{SPACE}")
ToolTip("")
ExitLoop
EndIf
Sleep($iOL_CtrlCheckTime)
If Not WinExists($sWindowTitle, $sWindowText) Then ExitLoop
WEnd
EndIf
Sleep($iOL_WinCheckTime)
If Not ProcessExists($iOL_ProcessID) Then Exit
WEnd

Aaah, hätte mir Anhand des HTML auch auffallen können.
Dank dir

Hab die UDF gefunden und ausprobiert.
Email erstellen und Anhang einfügen funktioniert wunderbar - Danke für den Tipp. Nun habe ich aber ein Problem mit dem Text, den ich in die EMail schreiben will.
Ich will Text mit Zeilenumbruch bzw Leerzeilen schreiben und verwende dafür @CRLF. In der EMail ignoriert er dies jedoch und schreibt alles hintereinander.
Kann mir wer sagen was ich falsch mache?

Nutze das folgende Beispiel um die UDF zu verstehen.

#include <OutlookEX.au3>
Global $oOutlook = _OL_Open()
$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=Subject for BodyFormat=RTF")
$oItem.BodyFormat = $olFormatRichText
$oItem.GetInspector
$sBody = $oItem.HTMLBody
$oItem.HTMLBody = "Text" & @CRLF & "Neue Zeile" & @CRLF & @CRLF & "Noch eine Zeile" & $sBody
$oItem.Display

Inetget sieht gut aus, danke.
Aber OutlookEx sagt mir nix, gehört die UDF standardmäßig zu Autoit?

Nabend

Ich hoffe für das folgende Thema auf Eure Hilfe.
Ich habe eine PDF-Datei, welche in einem Fenster des Internet Explorer angezeigt wird. Diese möchte ich speichern, zum Bsp auf dem Desktop, und anschließend in eine Mail packen.
Gibt es eine Möglichkeit das PDF zu speichern, ohne dabei nur über Send die Kombination [alt]d etc zu senden?

Wie füge ich das PDF am besten in eine Mail ein?