Wo gibt der User den Namen der PDF Datei ein? $Input1 oder $Input6?
Was gibt der User genau ein? "Test" oder "Test.pdf" oder "C:\temp\Test.pdf"?
Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden
-
- [ offen ]
-
cr0co -
16. April 2014 um 11:43 -
Erledigt
-
-
Der name der PDF datei ist $Input1
der user gibt einen domain namen ein z.B. test.com (stellt der punkt ein problem dar?) -
Habe Post #20 angepasst. Im temporären verzeichnis sollte nun die PDF Datei stehen.
-
"Error exporting the document. @error =3, @extended = -2147352567"
-
Der Code heisst in hex: 0x80020009 - General Exception Error - also alles und nichts.
[autoit]
Kannst Du bitte das Debugging aktivieren mit:#include <Debug.au3>
[/autoit]
_DebugSetup()
_DebugCOMDebug()und dann den Inhalt des Ausgabefensters posten?
-
error: _DebugCOMDebug(): undefined function.
-
Dann verwendest Du eine "alte" AutoIt Version (<= 3.3.8.1).
-
Laut AutoUpdateIt habe ich v3.3.10.2
-
Stimmt. Denn die Funktion heisst ja auch _DebugCOMError.
-
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] -
Probier's.
Sonst vorher den Share auf einen Laufwerksbuchstaben mappen und dann dorthin schreiben. -
[autoit]
_Word_DocExport($oDoK, \\XXX\XXXX\_HOT\ & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
[/autoit]error: syntax error (illegal character)
wo mache ich den fehler ?
-
Muss
[autoit]_Word_DocExport($oDoK, "\\XXX\XXXX\_HOT" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
[/autoit]
lauten. -
Nach _HOT gehört noch ein Backslash in den String. Aber Editor wirft das immer wieder raus.
-
Der fehler
"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."
erscheint immer noch.
Hast du eine idee an was das liegen könnte ?
-
Dann mappe den Share auf ein Laufwerk wie oben von mir vorgeschlagen.
-
das möchte ich ungern tun,
gibt es da keine andere möglichkeit die Datei im netzwerk zu speichern ?(local funktioniert es auch nicht)
[autoit]#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <OutlookEx.au3>
#include <Debug.au3>#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Desktop\remo\Form1.kxf
[/autoit][autoit][/autoit][autoit]
$Form1 = GUICreate("Loginblatt erstellen", 623, 442, 585, 150)
$Label1 = GUICtrlCreateLabel("Domainname:", 48, 80, 101, 17)
$Label2 = GUICtrlCreateLabel("Kundennummer:", 48, 112, 97, 17)
$Label3 = GUICtrlCreateLabel("Mail Adresse:", 48, 144, 83, 17)
$Label4 = GUICtrlCreateLabel("FTPUser:", 48, 176, 73, 17)
$Label5 = GUICtrlCreateLabel("FTPPasswort:", 48, 208, 86, 17)
$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)
$Input2 = GUICtrlCreateInput("Kundennummer", 152, 112, 161, 21)
$Input3 = GUICtrlCreateInput("Mail Adresse", 152, 144, 161, 21)
$Input4 = GUICtrlCreateInput("FTPUser", 152, 176, 161, 21)
$Input5 = GUICtrlCreateInput("FTPPasswort", 152, 200, 161, 21)
$Label6 = GUICtrlCreateLabel("Server:", 48, 240, 94, 17)
$Input6 = GUICtrlCreateInput("Server", 152, 240, 161, 21)
$Button1 = GUICtrlCreateButton("Lets Go", 192, 336, 169, 41)GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Label1
[/autoit][autoit][/autoit][autoit]
Case $Input1Case $Button1
[/autoit][autoit][/autoit][autoit]
_domainname()EndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _domainname()
[/autoit][autoit][/autoit][autoit]
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 ("C:\Dokumente und Einstellungen\Administrator\Desktop\D5.docx") ; Server Loginblatt öffnen; *****************************************************************************
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
; .docx füllen
; *****************************************************************************
$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; *****************************************************************************
[/autoit][autoit][/autoit][autoit]
; Export the current page
; *****************************************************************************$sPDFName = GuiCtrlRead($Input1)
[/autoit][autoit][/autoit][autoit][/autoit]
_Word_DocExport($oDoK, "C:\Dokumente und Einstellungen\Administrator\Desktop\remo\_HOT" & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
ShellExecuteWait($sPDFName)
EndFunc
_DebugSetup()
_DebugCOMError -
Was heisst "local funkioniert es auch nicht"? Wohin speicherst du?
-
C:\Dokumente und Einstellungen\Administrator\Desktop\remo\_HOT\
-
Ich gehe davon aus, dass Du da Schreibrechte hast. Kannst du manuell dort eine Dtei erstellen?
-