Beiträge von cr0co
-
-
Hallo
Ich habe über die Suche diverse Themen gefunden,
jedoch sieh ich nicht so ganz durch.Ich habe eine Excel datei die jederzeit gefüllt wird.
Momentan sind 2601 Zeilen vorhanden.Der Benutzer macht eine Eingabe $Input1 nun soll das Excel nach diesem wort durchgescannt werden.
Wenn das Wort in Tabelle A Gefunden wurde, soll er in der gleichen Zeile in der Tabelle H das Wort nehmen und als Variable speichern,
danach soll sich eine bestimmte URL mit dieser Variable öffnen.Bis jetzt habe ich;
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 411, 164, 192, 124)
$Label1 = GUICtrlCreateLabel("Domainname ?", 24, 48, 75, 17)
$Input1 = GUICtrlCreateInput("Domain", 120, 48, 217, 21)
$Button1 = GUICtrlCreateButton("OK", 104, 104, 209, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit][autoit][/autoit][autoit]
WEndCase $Button1
[/autoit]
_domainname()
EndSwitch
WEnd
Func _domainname()
$sFilePath1 = @ScriptDir & "X:\Domains.xls" ; Diese Datei sollte bereits existieren
$oExcel = _ExcelBookOpen($sFilePath1)
If @error = 1 Then
MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Fehler!", "Die Datei existiert nicht!")
Exit
EndIf -
-
hehe
Jetzt kommt ""domain.ch" konnte nicht gefunden werden. Stellen Sie sicher, dass Sie den Namen korrekt eingegeben haben und wiederholen Sie den Vorgang.
Klicken Sie auf "Start" und anschliessend auf "Suchen", um eine Datei zu suchen."Kann ich bei
[autoit]_Word_DocExport($oDoK, @TempDir & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
[/autoit]einen netzwerk pfad angeben ?
z.B.
[autoit]_Word_DocExport($oDoK, \\XXX\XXXXX\_HOT\ & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
[/autoit] -
-
-
-
-
jetzt heisst die Datei $sPDFName.pdf
[autoit]
[/autoit]
; *****************************************************************************
; Export the current page
; *****************************************************************************
;Global $sFilename = "\\XXX\XXXX\_HOT\Input1.pdf"
$sPDFName = GuiCtrlRead($Input1)
_Word_DocExport($oDoK, $sPDFName, Default, $wdExportCurrentPage)
If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
"Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
"The current page has successfully been exported to: " & $sPDFName)
ShellExecuteWait($sPDFName)
EndFuncMir fehlt jetzt noch,
1. Global $oDok = $oWord.Documents.Open ("\\XXXX\XXXXX\$Input6.docx")
$Input6 importieren2. .pdf Datei umbennen oder mit $Input1 importieren
3. diese PDF datei per mail an $Input3 versenden
-
-
Code
Alles anzeigenFunc _domainname() Global $oWord = objCreate("Word.Application") If @error Then Exit MsgBox(0, "Error!", "Fehler " & @error & " bei Funktion ObjCreate") $oWord.Visible = 1 Global $oDok = $oWord.Documents.Open ("\\XXX\XXX\$Input6.docx") ; Hier öffnet er die "$Input6.docx" Datei ; ***************************************************************************** ; .docx füllen ; ***************************************************************************** $fftext = $oDok.FormFields("Text1") $fftext.Result = GUICtrlRead($Input1) $fftext = $oDok.FormFields("Text2") $fftext.Result = GUICtrlRead($Input2) $fftext = $oDok.FormFields("Text3") $fftext.Result = GUICtrlRead($Input3) $fftext = $oDok.FormFields("Text4") $fftext.Result = GUICtrlRead($Input4) $fftext = $oDok.FormFields("Text5") $fftext.Result = GUICtrlRead($Input5) EndFunc ; ***************************************************************************** ; Export the current page ; ***************************************************************************** Global $sFilename = "\\XXX\XXXX\_HOT\$Input1.pdf" _Word_DocExport($oDoK, $sFilename, Default, $wdExportCurrentPage) If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "The current page has successfully been exported to: " & $sFilename) ShellExecuteWait($sFilename)
-
Da das .docx File bereits geöffnet ist, habe ich mich daran gemacht;
Code; ***************************************************************************** ; Export the current page ; ***************************************************************************** Global $sFilename = @TempDir & "\Test3.pdf" _Word_DocExport($oDoK, $sFilename, Default, $wdExportCurrentPage) If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _ "The current page has successfully been exported to: " & $sFilename) ShellExecuteWait($sFilename)
Jedoch passiert nichts nachdem er die Felder ausgefüllt hat, habe ich da etwas übersehen ?
-
-
1.
Code
Alles anzeigenFunc _domainname() $oWord = objCreate("Word.Application") If @error Then Exit MsgBox(0, "Error!", "Fehler " & @error & " bei Funktion ObjCreate") $oWord.Visible = 1 $oDok = $oWord.Documents.Open ("\\XXXXX\XXXXX\$Input6.docx") $fftext = $oDok.FormFields("Text1") $fftext.Result = GUICtrlRead($Input1) ; Domainname $fftext = $oDok.FormFields("Text2") $fftext.Result = GUICtrlRead($Input2) ; Kundennummer $fftext = $oDok.FormFields("Text3") $fftext.Result = GUICtrlRead($Input3) ; Mail Adresse $fftext = $oDok.FormFields("Text4") $fftext.Result = GUICtrlRead($Input4) ; FTPUser $fftext = $oDok.FormFields("Text5") $fftext.Result = GUICtrlRead($Input5) ; FTPPW EndFunc
2.
3. dort steht "add attachments" aber im beispiel wird dieses nicht aufgeführt,
oder bin ich auf dem falschen link? http://www.autoitscript.com/wiki/OutlookEX_UDF_-_Mail_Item -
Soweit so gut, klappt nun das er die eingaben des Benutzer in das Word Dokument schreibt.
1. Hier öffnet er nicht die eingabe des Benutzers sondern "$Input6.docx" was natürlich nicht existiert
Habs auch wieder mit GuiCtrlRead probiert, hat aber nichts gebracht.2. Wie speichere ich das nun als PDF ab? (PDF Drucker ist Jaws PDF Creator)
der abgespeicherte name sollte $Input1 sein3. Per Outlook 2007 versenden?
-
-
Danke für die Antwort,
CodeFunc _domainname() $oWord = objCreate("Word.Application") $oWord.Visible = 1 $oDok = $oWord.Documents.Open("\\Business\loginblatt\D5.docx") $fftext = $oDok.FormFields("Text1") $fftext.Result = ("$Input1") EndFunc
Wie bringe ich autoit dazu das er anstelle von $Input1, die eingabe von $Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21) nimmt ?
-
Hallo
Ist es möglich per KODAGUI in ein bestehendes geschütztes Word Dokument die beschreibbaren Felder auszufüllen?
das dokument sollte dann in ein PDF umgewandelt und per Mail versendet werden.im KODAGUI wird es ein Eingabe feld geben das Mail: heisst, das Dokument soll dann das erstellte PDF file an diese mailadresse versenden.
bin ein zimlicher neuling.
Gruss
cr0co