Beiträge von TOMTOM25m

[autoit]

$answer = InputBox("Question", "Passwort ??", "Planet_X2543", "",-1, -1, 0, 0)

[/autoit] [autoit][/autoit] [autoit]

$bPassword = _CryptRDPPassword($answer)

[/autoit] [autoit][/autoit] [autoit]

MsgBox (0,"",$bPassword)
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _CryptRDPPassword($Password)
Local $hcrypt32
Local $arRet
Local $DataIn = "DATA_BLOB"
Local $DataOut = "DATA_BLOB"
Local $bPassword = "string"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$hcrypt32 = DllOpen("crypt32.dll")
If $hcrypt32 = -1 Then Return 0
;// RDP uses UniCode
$arRet = DllCall($hcrypt32, "wstr", "string")
$arRet.DataIn.pbData = "Pointer(WideString(sPassword))";
$arRet.DataIn.cbData = "Length(sPassword) * SizeOf(WChar)";
;// RDP always sets description to psw
$arRet.pwDescription = "WideString(‘psw’)";

[/autoit] [autoit][/autoit] [autoit]

If $arRet.CryptProtectData($DataIn, $arRet.pwDescription, "nil", "nil", "nil", "CRYPTPROTECT_UI_FORBIDDEN", $DataOut) Then
$bPassword = $arRet.BlobDataToHexStr($arRet.DataOut.pbData, $arRet.DataOut.cbData)
EndIf
$arRet.LocalFree($arRet.Cardinal($arRet.DataOut.pbData));
$arRet.LocalFree($arRet.Cardinal($arRet.DataIn.pbData));
Return $bPassword
DllClose($hcrypt32)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_CryptRDPPassword

[/autoit]

function CryptRDPPassword(sPassword: string): string;
var DataIn: DATA_BLOB;
DataOut: DATA_BLOB;
pwDescription: PWideChar;
PwdHash: string;
begin
PwdHash := ”;

DataOut.cbData := 0;
DataOut.pbData := nil;

// RDP uses UniCode
DataIn.pbData := Pointer(WideString(sPassword));
DataIn.cbData := Length(sPassword) * SizeOf(WChar);

// RDP always sets description to psw
pwDescription := WideString(‘psw’);

if CryptProtectData(@DataIn,
pwDescription,
nil,
nil,
nil,
CRYPTPROTECT_UI_FORBIDDEN, // Never show interface
@DataOut) then
begin
PwdHash := BlobDataToHexStr(DataOut.pbData, DataOut.cbData);
end;
Result := PwdHash;

// Cleanup
LocalFree(Cardinal(DataOut.pbData));
LocalFree(Cardinal(DataIn.pbData));

end;

[autoit]

#Region converted Directives from C:\RDPINI\Firma_RR_JACK.au3.ini
#AutoIt3Wrapper_icon=C:\Temp\jack_icon.ico
#AutoIt3Wrapper_outfile=C:\RDPINI\Firma_RR_JACK.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_Res_Comment=made by the Hack
#AutoIt3Wrapper_Res_Description=AutoIt v3 Compiled Script
#AutoIt3Wrapper_Res_Fileversion=2.0.0.6
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=(c) 2006 Garnreiter Thomas
#AutoIt3Wrapper_Run_AU3Check=1
#EndRegion converted Directives from C:\RDPINI\Firma_RR_JACK.au3.ini
;
; ######### Variablen

[/autoit] [autoit][/autoit] [autoit]

Global $FA = StringLeft(@ComputerName, 2) ; Kst ; OV Workstation
Global $WKS = StringRight(@ComputerName, 4) ; RR Kst
Global $KST = StringLeft(@ComputerName, 6) ; RR Kst
Global $OEVB = "ts.firma.lan"
Global $RUEFA = "rrts.firma.lan"
Global $ITR = "ITRJack.firma.lan"
Global $RRPW = "*****"
Global $OVBPW = "******"
Global $WS = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "WS", @ComputerName, "keine Computer Name konfiguriert")
Global $USR = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "WS", @UserName, "kein USERname konfiguriert")
Global $TSUSER = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "Ruefa_Filialen", $KST, "RR Anmeldename nicht konfiguriert")
Global $OVUSER = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "OEVB_Filialen", $KST, "OV Anmeldename nicht konfiguriert")
Global $SONDER = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "SONDER", @ComputerName, "keine WKST konfiguriert")
Global $SOUSR = IniRead("\\dc1.firma.lan\JACKINI$\jack.ini", "SONDER", @UserName, "kein User konfiguriert")
;~ File kopieren
RunAsSet("Administrator", "OV", "**********")
DirCreate("C:\temp")
FileCopy("\\dc1.firma.lan\JACKINI$\RDPFile.exe", "C:\temp", 0)
FileCopy("\\dc1.firma.lan\JACKINI$\jack_icon.ico", "C:\temp", 0)
RunAsSet()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Select
;~ Ruefa
Case $FA = 't1' Or 'K1' Or 'k0'
If @UserName = $USR Then
$LOGON = $SOUSR
ElseIf @ComputerName = $WS Then
$LOGON = $SONDER
Else
$LOGON = $TSUSER
EndIf
RunWait("C:\Temp\RDPFile.exe -h" & $RUEFA & " -u" & $LOGON & " -p" & $RRPW & "-dOEVB -s", "C:\temp", @SW_HIDE)
;~ ÖVB
Case $FA = 't2' Or Not 'K1' Or Not 'k0' Or Not 'k8'
If @UserName = $USR Then
$LOGON = $SOUSR
ElseIf @ComputerName = $WS Then
$LOGON = $SONDER
Else
$LOGON = $OVUSER
EndIf
RunWait("C:\Temp\RDPFile.exe -h" & $OEVB & " -u" & $LOGON & " -p" & $OVBPW & "-dOEVB -s", "C:\temp", @SW_HIDE)
;~ Intertravel
Case $FA = 't5' Or 'k8'
If @UserName = $USR Then
$LOGON = $SOUSR
ElseIf @ComputerName = $WS Then
$LOGON = $SONDER
Else
$LOGON = $OVUSER
EndIf
RunWait("C:\Temp\RDPFile.exe -h" & $ITR & " -u" & $LOGON & " -p" & $OVBPW & "-dOEVB -s", "C:\temp", @SW_HIDE)
Case Else
MsgBox(0, "ACHTUNG!!!", "Ihre Workstation wurde nicht konfiguriert Bitte melden sie sich beim EDV-Helpdesk +43-1-xxxxxxx-xxx")
EndSelect

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit]

[autoit]

#region --- ScriptWriter generated code Start ---
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

[/autoit] [autoit][/autoit] [autoit]

#endregion --- ScriptWriter generated code End ---

[/autoit] [autoit][/autoit] [autoit]

;~ #NoTrayIcon
Local $oDoc
#include <Word.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $Vorlage = "D:\9. Scripts_ bestätigung\Bestätigung live\k0257_vorlagen\Bestätigung_Orient.dot"
Local $Filepath = "D:\9. Scripts_ bestätigung\Bestätigung live\"
Local $RRLOGO = "D:\9. Scripts_ bestätigung\Ruefa\Ruefa.jpg"
Local $s_mode
Local $oDoc

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(200)
If WinExists("w_precruefpr.", "") Then
ExitLoop
EndIf

WEnd
ClipPut("")
WinWait("w_precruefpr.", "Microsoft Word-Dokument")
If Not WinActive("w_precruefpr.", "Microsoft Word-Dokument") Then WinActivate("w_precruefpr.", "Microsoft Word-Dokument")
WinWaitActive("w_precruefpr.", "Microsoft Word-Dokument")
$handle = WinGetHandle("w_precruefpr.", "Microsoft Word-Dokument")

[/autoit] [autoit][/autoit] [autoit]

$oWordApp = _WordAttach($handle, "HWND");;;; das geöffnete word fenster auswählen
$oDoc = _WordDocGetCollection($oWordApp, 0)
;~ If Not @error Then
;~ $oDoc = _WordDocGetCollection ($oWordApp, 0)
;~ MsgBox(64, "Document FileName", $oDoc.FullName)
;~ EndIf
;~ Exit
$objSelection = $oWordApp.Selection
$my_Text = $objSelection.WholeStory
;~ $objSelection.WholeStory ;;;;; Makiere alles
;~ $objSelection.Copy ;;; Copiere in die Zwischenablage
$objSelection.Font.Spacing = 1;;;;adjust the distance between words to 2.5

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ _WordDocFind($objSelection, $my_Text);;;look up string
_WordDocPageSetup($objSelection);;;;_WordDocPageSetup( $objSelection,$PageWidth,$PageHeight)
_WordDocParagraphFormat($oDoc, $my_Text, 60, 9, 0)

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _WordDocParagraphFormat($s_oDoc, $s_Text, $s_Color, $s_Size, $s_Number)
With $oDoc.Range
.ParagraphFormat.Alignment = 1
.ParagraphFormat.LineSpacing = 9
.InsertAfter ($s_Text)
.Font.Name = "Courier New"
.Font.Color = $s_Color
.Font.Size = $s_Size
.SetRange (0, $s_Number)
.TwoLinesInOne = 0
EndWith
EndFunc ;==>_WordDocParagraphFormat

[/autoit] [autoit][/autoit] [autoit]

Func _WordDocPageSetup($objSelection)
With $objSelection.PageSetup
.LineNumbering.Active = False
.Orientation = "wdOrientPortrait"
.TopMargin = 2.5
.BottomMargin = 2
.LeftMargin = 2.5
.RightMargin = 2.5
.Gutter = 0
.HeaderDistance = 1.25
.FooterDistance = 1.25
.PaperSize ('wdPaperA4')
.PageWidth =21;;;21
.PageHeight = 29.7;;;29,7
.FirstPageTray = "wdPrinterDefaultBin"
.OtherPagesTray = "wdPrinterDefaultBin"
.SectionStart = "wdSectionNewPage"
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = "wdAlignVerticalTop"
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = "wdGutterPosLeft"
EndWith
EndFunc ;==>_WordDocPageSetup
Func _FirstTextremove($objSelection)
$objSelection.MoveDown ('wdLine',10, 'wdExtend')
$objSelection.Delete ('wdCharacter',1)
$objSelection.Find.ClearFormatting
$objSelection.Find.Replacement.ClearFormatting
With $objSelection.Find
.Text = "^p^p^p^p^p^p^p^p^p^p"
.Replacement.Text = ""
.Forward = True
.Wrap = "wdFindContinue"
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
EndWith
$objSelection.Find.Execute ('wdReplaceAll')
EndFunc ;==>_FirstTextremove

[/autoit] [autoit][/autoit] [autoit]

Func _WordDocFind($s_objSelection, $s_Text)
With $s_objSelection.Find
.Text = $s_Text
.Execute
EndWith
EndFunc ;==>_WordDocFind

[/autoit]

[autoit]

D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(119,68) : ERROR: syntax error
$objSelection.MoveDown "Unit:=wdLine, Count:=10, Extend:=wdExtend"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

[/autoit]

[autoit]

D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(92,41) : ERROR: syntax error
.Orientation = (wdOrientPortrait)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(100,25) : ERROR: syntax error
.PaperSize = wdPaperA4
~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(103,45) : ERROR: syntax error
.FirstPageTray = wdPrinterDefaultBin
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(104,46) : ERROR: syntax error
.OtherPagesTray = wdPrinterDefaultBin
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(105,41) : ERROR: syntax error
.SectionStart = wdSectionNewPage
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(108,48) : ERROR: syntax error
.VerticalAlignment = wdAlignVerticalTop
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(115,37) : ERROR: syntax error
.GutterPos = wdGutterPosLeft
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(119,32) : ERROR: syntax error (illegal character)
$objSelection.MoveDown (Unit:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(119,61) : ERROR: syntax error (illegal character)
$objSelection.MoveDown (Unit:= wdLine, Count:= 10, Extend:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(120,31) : ERROR: syntax error (illegal character)
$objSelection.Delete (Unit:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(128,31) : ERROR: syntax error (illegal character)
.Wrap = wdFindContinue
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\9. Scripts_ bestätigung\Bestätigung2PDF.au3(136,32) : ERROR: syntax error
$objSelection.Find.Execute Replace
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

[/autoit]

[autoit]

Func _WordDocPageSetup($objSelection)
With $objSelection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = 2.5
.BottomMargin = 2
.LeftMargin = 2.5
.RightMargin = 2.5
.Gutter = 0
.HeaderDistance = 1.25
.FooterDistance = 1.25
.PaperSize = wdPaperA4
;~ .PageWidth =21;;;21
;~ .PageHeight = 29.7;;;29,7
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
EndWith
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _FirstTextremove($objSelection)
$objSelection.MoveDown Unit:= wdLine, Count:= 10, Extend: = wdExtend
$objSelection.Delete Unit:=wdCharacter, Count: =1
$objSelection.Find.ClearFormatting
$objSelection.Find.Replacement.ClearFormatting
With $objSelection.Find
.Text = "^p^p^p^p^p^p^p^p^p^p"

[/autoit] [autoit][/autoit] [autoit]

.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
EndWith
$objSelection.Find.Execute Replace:=wdReplaceAll
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

' Erste Leerzeichen entfernen
'
Selection.MoveDown Unit:=wdLine, Count:=10, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p^p^p^p^p^p^p^p^p"
' ^p^p^p^p^p^p^p^p^p^p^p^p^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Manuelle Seiteumbrüche entfernen

[/autoit] [autoit][/autoit] [autoit]

' Selection.Find.ClearFormatting
' Selection.Find.Replacement.ClearFormatting
' With Selection.Find
' .Text = "^m"
' .Replacement.Text = ""
' .Forward = True
' .Wrap = wdFindContinue
' .Format = False
' .MatchCase = False
' .MatchWholeWord = False
' .MatchWildcards = False
' .MatchSoundsLike = False
' .MatchAllWordForms = False
' End With
' Selection.Find.Execute Replace:=wdReplaceAll

[/autoit] [autoit][/autoit] [autoit]

' Alles auf Courier NEW schrift 9 einstellen

Selection.WholeStory
Selection.Font.Name = "Courier New"
Selection.Font.Size = 9

' Seiteneinstellungen
'
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(3.7)
.BottomMargin = CentimetersToPoints(0.74)
.LeftMargin = CentimetersToPoints(0.47)
.RightMargin = CentimetersToPoints(0.47)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With

' ein neues Dokument von der der Vorlage Bestätigung.dot erstellen
Dokument = "C:\TEMP\Bestätigung.rtf"

If Dokument = True Then Dokument.DeleteFile "C:\TEMP\Bestätigung.rtf", True

Documents.Add Template:="C:\RUEFA\Vorlagen\Bestätigung.dot", NewTemplate:= _
True, DocumentType:=0
ActiveDocument.SaveAs FileName:="C:\TEMP\Bestätigung.rtf", FileFormat:= _
wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
' ActiveDocuments.Close

' das RTF Dokument und die vorlage zusammenführen

ActiveDocument.Merge FileName:="C:\TEMP\Bestätigung.rtf", _
MergeTarget:=wdMergeTargetSelected, DetectFormatChanges:=True, _
UseFormattingFrom:=wdFormattingFromPrompt, AddToRecentFiles:=False

'
' Makro1 Makro
' Makro aufgezeichnet am 08.02.2005 von Garnreiter Thomas
'
ActivePrinter = "FreePDF XP"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = "HP LaserJet"

[/autoit] [autoit][/autoit] [autoit]

' Die Dokumente Schließen
Documents.Close SaveChanges:=wdDoNotSaveChanges
' Documents("w_precruefpr").Activate
' Documents("w_precruefpr").Close SaveChanges:=wdDoNotSaveChanges

[/autoit] [autoit][/autoit] [autoit]

End Sub

[/autoit]

[autoit]

#region --- ScriptWriter generated code Start ---
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

[/autoit] [autoit][/autoit] [autoit]

#endregion --- ScriptWriter generated code End ---

[/autoit] [autoit][/autoit] [autoit]

;~ #NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

#include <Word.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $Vorlage = "D:\9. Scripts_ bestätigung\Bestätigung live\k0257_vorlagen\Bestätigung_Orient.dot"
Local $Filepath = "D:\9. Scripts_ bestätigung\Bestätigung live\"
Local $RRLOGO = "D:\9. Scripts_ bestätigung\Ruefa\Ruefa.jpg"
Local $s_mode

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(200)
If WinExists("w_precruefpr.", "") Then
ExitLoop
EndIf

WEnd
ClipPut("")
WinWait("w_precruefpr.", "Microsoft Word-Dokument")
If Not WinActive("w_precruefpr.", "Microsoft Word-Dokument") Then WinActivate("w_precruefpr.", "Microsoft Word-Dokument")
WinWaitActive("w_precruefpr.", "Microsoft Word-Dokument")

[/autoit] [autoit][/autoit] [autoit]

Send("{CTRLDOWN}a{CTRLUP}")
Send("{CTRLDOWN}c{CTRLUP}")

[/autoit] [autoit][/autoit] [autoit]

WinClose("w_precruefpr.", "Microsoft Word-Dokument")

[/autoit] [autoit][/autoit] [autoit]

If WinExists("Microsoft Office Word","&Ja") Then
ControlClick("Microsoft Office Word","&Ja",7)
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ Send("{ALTDOWN}EA{ALTUP}")
;~ Sleep(100)
;~ Send(" ^C")
;~ WinClose("w_precruefpr.", "")

[/autoit] [autoit][/autoit] [autoit]

$oWordApp = _WordCreate($Vorlage, 0, 1, 0)
$oDoc = _WordDocGetCollection($oWordApp, 0)

[/autoit] [autoit][/autoit] [autoit]

$handle = ControlGetHandle("Dokument", "", "CLASSNN:_WwG")
If Not WinActive($handle) Then WinActivate($handle)

[/autoit] [autoit][/autoit] [autoit]

;~ ControlSend("", "", $handle, "^v")
;~ ControlSend("", "", $handle, "{CTRLDOWN}v{CTRLUP}")
Send("^v")

[/autoit] [autoit][/autoit] [autoit]

_WordMacroRun ($oWordApp, "Bestätigung")

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

......................................
RunWait(@ScriptDir & '\ROBOCOPY.EXE "' & $JACDAT & '" "' _
& $root & '\Save_NACH_Rebuild" *.* /V /X /TS /FP /ZB /COPY:DAT /E /PURGE /R:10 /W:30 /XF *old.* *.bak *.old *-VaAbr*.* *.Html *.txt /XD ' _
& $JACDAT & '\Belegarchiv ' & $JACDAT & '\Jackold ' & $JACDAT & '\OEVB_Schnittstelle ' _
& $JACDAT & '\Save_NACH_Rebuild /NP /TEE /LOG:' & $root & '\log\Save_nach_rebuild.log ', @ScriptDir)
.......................................

[/autoit]