Beiträge von bazii

#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>
#include <Word.au3>
#include <WordConstants.au3>

; https://autoit.de/thread/87817-microsoft-word-suche-und-ersetze-text-in-den-inhalten-der-vba-progammierung-gel%C3%B6/?postID=708429#post708429

; ********** Änderungen nur NACH dieser Zeile **********
; Table with search and replace strings to process
Global $aSearchReplace[][] = [ _
                             ["Text 1","Text 2"], _
                             ["",""], _
                             ["",""] _
                             ]
; For code with the following strings no replacement will be done at all
Global $aIgnore[] = [ _
                    'ActiveDocument.Bookmarks("Text")"', _
                    '.UpdateFieldsAtPrint = True' _
                    ]
; ********** Änderungen nur VOR dieser Zeile **********

Global $sExtension = ".dotm" ; Verarbeite nur MS-Word Vorlagendatei mit Macros.
Global $sTemplate = _FileListToArrayRec(@ScriptDir, "*" & $sExtension, $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_FULLPATH) ; Auflistung der rekursiv zu verarbeitenden MS-Word Vorlagedateien
Global $iTotalProjectCount = 0, $iTotalComponentCount = 0, $iTotalReplacementCount = 0

; Set up debugging
Global $__iWord_Debug = 0 ; Debug level. 0 = no debug information, 1 = Debug info to consWorde, 2 = Debug info to MsgBox, 3 = Debug Info to File
Global $__sWord_DebugFile = @ScriptDir & "\Word_Debug.txt" ; Debug file when $__iWord_Debug is set to 3
Global $__oWord_Error ; COM Error handler

_ArrayDisplay($sTemplate, "");Ansicht der zu verarbeitenden Dateien anzeigen lassen (optional)

; Start the MS Word application
Global $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_Create: @error=" & @error & ", @extended=" & @extended)

_Word_ErrorNotify(2)

; Process the Template
For $i = 1 to $sTemplate[0] ; rekursives Ermitteln der zu verarbeitenden Dateien
    _VBAModify($sTemplate[$i]) ; Start der Search & Replace Funktion in Word
Next

Exit

Func _VBAModify($sTemplate)

    ; Open the Document
    Local $oDoc = _Word_DocOpen($oWord, $sTemplate)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocOpen: @error=" & @error & ", @extended=" & @extended)

    ; Collect statistics and output them to the Console
    ConsoleWrite("PROCESSING: " & $sTemplate & $sExtension & @CRLF)
    ConsoleWrite("  STATISTICS" & @CRLF & "  ==========" & @CRLF)
    For $oVBProject In $oWord.VBE.VBProjects
        ConsoleWrite("  VBProject: " & $oVBProject.Name & ", Typ: " & $oVBProject.Type)
        Switch $oVBProject.Type
            Case 100
                ConsoleWrite(" (vbext_pt_HostProject - Host project)" & @CRLF)
            Case 101
                ConsoleWrite(" (vbext_pt_StandAlone - Standalone Project)" & @CRLF)
            Case Else
                ConsoleWrite(" Unknown Project Type!" & @CRLF)
        EndSwitch
        For $oVBComponent In $oVBProject.VBComponents
            ConsoleWrite("    VBComponent: " & $oVBComponent.Name & ", Typ: " & $oVBComponent.Type)
            Switch $oVBComponent.Type
                Case 1
                    ConsoleWrite(" (vbext_ct_StdModule - Standard module)" & @CRLF)
                Case 2
                    ConsoleWrite(" (vbext_ct_ClassModule - Class module)" & @CRLF)
                Case 3
                    ConsoleWrite(" (vbext_ct_MSForm - Microsoft Form)" & @CRLF)
                Case 11
                    ConsoleWrite(" (vbext_ct_ActiveXDesigner - ActiveX Designer)" & @CRLF)
                Case 100
                    ConsoleWrite(" (vbext_ct_Document - Document Module)" & @CRLF)
                Case Else
                    ConsoleWrite(" Unknown Component Type!" & @CRLF)
            EndSwitch
        Next
    Next

    ; Process all VBProjects and VBComponents
    ConsoleWrite("  SEARCH & REPLACE" & @CRLF & "  ================" & @CRLF)
    For $oVBProject In $oWord.VBE.VBProjects
        ConsoleWrite("  VBProject: " & $oVBProject.Name & @CRLF)
        $iTotalProjectCount += 1
        For $oVBComponent In $oVBProject.VBComponents
            ConsoleWrite("    VBComponent: " & $oVBComponent.Name & @CRLF)
            $iTotalComponentCount += 1
            Switch $oVBComponent.Type
                ; Only Standard Modules and Microsoft Forms will be processed
                Case 1, 3
                    $oCodeModule = $oVBComponent.CodeModule
                    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "CodeModule: @error=" & @error & ", @extended=" & @extended)
                    With $oCodeModule
                        $iReplaceCount = 0
                        For $i = 1 To .CountOfLines
                            $bIgnore = False
                            For $j = 0 To UBound($aIgnore, 1) - 1
                                If StringInStr(.Lines($i, 1), $aIgnore[$j]) Then $bIgnore = True
                            Next
                            If $bIgnore = False Then
                                For $j = 0 To UBound($aSearchReplace, 1) - 1
                                    If StringInStr(.Lines($i, 1), $aSearchReplace[$j][0]) Then
                                        .ReplaceLine($i, StringReplace(.Lines($i, 1), $aSearchReplace[$j][0], $aSearchReplace[$j][1]))
                                        $iReplaceCount = $iReplaceCount + 1
                                    EndIf
                                Next
                            EndIf
                        Next
                        ConsoleWrite("      " & $iReplaceCount & " replacements" & @CRLF)
                        $iTotalReplacementCount = $iTotalReplacementCount + $iReplaceCount
                    EndWith
                Case Else
                    ConsoleWrite("      Not processed!" & @CRLF)
            EndSwitch
        Next
    Next

    ; Send total Statistics for this document to the Console
    ConsoleWrite("  SEARCH & REPLACE - TOTAL STATISTICS" & @CRLF & "  ===================================" & @CRLF)
    ConsoleWrite("  VBProjects processed  : " & $iTotalProjectCount & @CRLF)
    ConsoleWrite("  VBComponents processed: " & $iTotalComponentCount & @CRLF)
    ConsoleWrite("  Replacements done     : " & $iTotalReplacementCount & @CRLF)

    ; Save as new Document
    _Word_DocSaveAs($oDoc, $sTemplate, $WdFormatXMLTemplateMacroEnabled)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocSaveAs: @error=" & @error & ", @extended=" & Hex(@extended))

    ; Close Document
    _Word_DocClose($oDoc)

EndFunc   ;==>_VBAModify

Func _Word_ErrorNotify($iDebug, $sDebugFile = "")
    If $sDebugFile = Default Then $sDebugFile = ""
    If Not IsInt($iDebug) Or $iDebug < -1 Or $iDebug > 4 Then Return SetError(1, 0, 0)
    If $sDebugFile = "" Then $sDebugFile = @ScriptDir & "\Word_Debug.txt"
    Switch $iDebug
        Case -1
            Local $avDebug[4] = [3]
            $avDebug[1] = $__iWord_Debug
            $avDebug[2] = $__sWord_DebugFile
            $avDebug[3] = IsObj($__oWord_Error)
            Return $avDebug
        Case 0
            $__iWord_Debug = 0
            $__sWord_DebugFile = ""
            $__oWord_Error = 0
        Case Else
            $__iWord_Debug = $iDebug
            $__sWord_DebugFile = $sDebugFile
            ; A COM error handler will be initialized only if one does not exist
            If ObjEvent("AutoIt.Error") = "" Then
                $__oWord_Error = ObjEvent("AutoIt.Error", "__Word_ErrorHandler") ; Creates a custom error handler
                If @error <> 0 Then Return SetError(2, @error, 0)
                Return SetError(0, 1, 1)
            ElseIf ObjEvent("AutoIt.Error") = "__Word_ErrorHandler" Then
                Return SetError(0, 0, 1) ; COM error handler already set by a call to this function
            Else
                Return SetError(3, 0, 0) ; COM error handler already set to another function
            EndIf
    EndSwitch
    Return 1
EndFunc   ;==>_Word_ErrorNotify

Func __Word_ErrorHandler()
    Local $sError = "COM Error Encountered in " & @ScriptName & @CRLF & _
            "@AutoItVersion = " & @AutoItVersion & @CRLF & _
            "@AutoItX64 = " & @AutoItX64 & @CRLF & _
            "@Compiled = " & @Compiled & @CRLF & _
            "@OSArch = " & @OSArch & @CRLF & _
            "@OSVersion = " & @OSVersion & @CRLF & _
            "Scriptline = " & $__oWord_Error.Scriptline & @CRLF & _
            "NumberHex = 0x" & Hex($__oWord_Error.Number, 8) & @CRLF & _
            "Number = " & $__oWord_Error.Number & @CRLF & _
            "WinDescription = " & StringStripWS($__oWord_Error.WinDescription, $STR_STRIPTRAILING) & @CRLF & _
            "Description = " & StringStripWS($__oWord_Error.Description, $STR_STRIPTRAILING) & @CRLF & _
            "Source = " & $__oWord_Error.Source & @CRLF & _
            "HelpFile = " & $__oWord_Error.HelpFile & @CRLF & _
            "HelpContext = " & $__oWord_Error.HelpContext & @CRLF & _
            "LastDllError = " & $__oWord_Error.LastDllError
    If $__iWord_Debug > 0 Then
        If $__iWord_Debug = 1 Then ConsoleWrite($sError & @CRLF & "========================================================" & @CRLF)
        If $__iWord_Debug = 2 Then MsgBox($MB_ICONERROR, "Word - Debug Info", $sError)
        If $__iWord_Debug = 3 Then FileWrite($__sWord_DebugFile, @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " " & @CRLF & _
                "-------------------" & @CRLF & $sError & @CRLF & "========================================================" & @CRLF)
    EndIf
EndFunc   ;==>__Word_ErrorHandler

#include <Array.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <WordConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>

; ********** Änderungen nur NACH dieser Zeile **********
; Table with search and replace strings to process
Global $aSearchReplace[][] = [ _
                             ["Tester","Master"], _
                             ["True","False"], _
                             ["Amtsleiter","Amtsleitung"] _
                             ]
; For code with the following strings no replacement will be done at all
Global $aIgnore[] = [ _
                    'ActiveDocument.Bookmarks("Amtsleiter")"', _
                    '.UpdateFieldsAtPrint = True' _
                    ]
; ********** Änderungen nur VOR dieser Zeile **********
Global $sExtension = ".dotm"
Global $sTemplate = _FileListToArrayRec(@ScriptDir, "*" & $sExtension, $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_FULLPATH) ; Zu verarbeitende Word Vorlagedateien
Global $iTotalProjectCount = 0, $iTotalComponentCount = 0, $iTotalReplacementCount = 0

_ArrayDisplay($sTemplate, "");Ansicht der zu verarbeitenden Dateien anzeigen lassen (optional)

; Start the MS Word application
Global $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_Create: @error=" & @error & ", @extended=" & @extended)

; Process the Template
For $i = 1 to $sTemplate[0] ; rekursives Ermitteln der zu verarbeitenden Dateien
    _VBAModify($sTemplate[$i])
Next

Exit

Func _VBAModify($sTemplate)

    ; Open the Document
    Local $oDoc = _Word_DocOpen($oWord, $sTemplate)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocOpen: @error=" & @error & ", @extended=" & @extended)

    ; Collect statistics and output them to the Console
    ConsoleWrite("PROCESSING: " & $sTemplate & $sExtension & @CRLF)
    ConsoleWrite("  STATISTICS" & @CRLF & "  ==========" & @CRLF)
    For $oVBProject In $oWord.VBE.VBProjects
        ConsoleWrite("  VBProject: " & $oVBProject.Name & ", Typ: " & $oVBProject.Type)
        Switch $oVBProject.Type
            Case 100
                ConsoleWrite(" (vbext_pt_HostProject - Host project)" & @CRLF)
            Case 101
                ConsoleWrite(" (vbext_pt_StandAlone - Standalone Project)" & @CRLF)
            Case Else
                ConsoleWrite(" Unknown Project Type!" & @CRLF)
        EndSwitch
        For $oVBComponent In $oVBProject.VBComponents
            ConsoleWrite("    VBComponent: " & $oVBComponent.Name & ", Typ: " & $oVBComponent.Type)
            Switch $oVBComponent.Type
                Case 1
                    ConsoleWrite(" (vbext_ct_StdModule - Standard module)" & @CRLF)
                Case 2
                    ConsoleWrite(" (vbext_ct_ClassModule - Class module)" & @CRLF)
                Case 3
                    ConsoleWrite(" (vbext_ct_MSForm - Microsoft Form)" & @CRLF)
                Case 11
                    ConsoleWrite(" (vbext_ct_ActiveXDesigner - ActiveX Designer)" & @CRLF)
                Case 100
                    ConsoleWrite(" (vbext_ct_Document - Document Module)" & @CRLF)
                Case Else
                    ConsoleWrite(" Unknown Component Type!" & @CRLF)
            EndSwitch
        Next
    Next

    ; Process all VBProjects and VBComponents
    ConsoleWrite("  SEARCH & REPLACE" & @CRLF & "  ================" & @CRLF)
    For $oVBProject In $oWord.VBE.VBProjects
        ConsoleWrite("  VBProject: " & $oVBProject.Name & @CRLF)
        $iTotalProjectCount += 1
        For $oVBComponent In $oVBProject.VBComponents
            ConsoleWrite("    VBComponent: " & $oVBComponent.Name & @CRLF)
            $iTotalComponentCount += 1
            Switch $oVBComponent.Type
                ; Only Standard Modules and Microsoft Forms will be processed
                Case 1, 3
                    $oCodeModule = $oVBComponent.CodeModule
                    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "CodeModule: @error=" & @error & ", @extended=" & @extended)
                    With $oCodeModule
                        $iReplaceCount = 0
                        For $i = 1 To .CountOfLines
                            $bIgnore = False
                            For $j = 0 To UBound($aIgnore, 1) - 1
                                If StringInStr(.Lines($i, 1), $aIgnore[$j]) Then $bIgnore = True
                            Next
                            If $bIgnore = False Then
                                For $j = 0 To UBound($aSearchReplace, 1) - 1
                                    If StringInStr(.Lines($i, 1), $aSearchReplace[$j][0]) Then
                                        .ReplaceLine($i, StringReplace(.Lines($i, 1), $aSearchReplace[$j][0], $aSearchReplace[$j][1]))
                                        $iReplaceCount = $iReplaceCount + 1
                                    EndIf
                                Next
                            EndIf
                        Next
                        ConsoleWrite("      " & $iReplaceCount & " replacements" & @CRLF)
                        $iTotalReplacementCount = $iTotalReplacementCount + $iReplaceCount
                    EndWith
                Case Else
                    ConsoleWrite("      Not processed!" & @CRLF)
            EndSwitch
        Next
    Next

    ; Send total Statistics for this document to the Console
    ConsoleWrite("  SEARCH & REPLACE - TOTAL STATISTICS" & @CRLF & "  ===================================" & @CRLF)
    ConsoleWrite("  VBProjects processed  : " & $iTotalProjectCount & @CRLF)
    ConsoleWrite("  VBComponents processed: " & $iTotalComponentCount & @CRLF)
    ConsoleWrite("  Replacements done     : " & $iTotalReplacementCount & @CRLF)

    ; Save as new Document
    _Word_DocSaveAs($oDoc, $sTemplate & "-NEW" & $sExtension, $WdFormatXMLTemplateMacroEnabled)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocSaveAs: @error=" & @error & ", @extended=" & Hex(@extended))

    ; Close Document
    _Word_DocClose($oDoc)

EndFunc   ;==>_VBAModify

PROCESSING: F:\Test\Word\I-BRIEF.dotm
  STATISTICS
  ==========
  VBProject: TemplateProject, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
    VBComponent: AutoNew, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog1, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Dialog2, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Drucken, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog3, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: NewMacros, Typ: 1 (vbext_ct_StdModule - Standard module)
  VBProject: Normal, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
  SEARCH & REPLACE
  ================
  VBProject: TemplateProject
    VBComponent: ThisDocument
      Not processed!
    VBComponent: AutoNew
      8 replacements
    VBComponent: Dialog1
      19 replacements
    VBComponent: Dialog2
      1 replacements
    VBComponent: Drucken
      0 replacements
    VBComponent: Dialog3
      8 replacements
    VBComponent: NewMacros
      0 replacements
  VBProject: Normal
    VBComponent: ThisDocument
      Not processed!
  SEARCH & REPLACE - TOTAL STATISTICS
  ===================================
  VBProjects processed  : 2
  VBComponents processed: 8
  Replacements done     : 36
PROCESSING: F:\Test\Word\I-BRIEF_2.dotm
  STATISTICS
  ==========
  VBProject: Normal, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
  VBProject: TemplateProject, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
    VBComponent: AutoNew, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog1, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Dialog2, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Drucken, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog3, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: NewMacros, Typ: 1 (vbext_ct_StdModule - Standard module)
  SEARCH & REPLACE
  ================
  VBProject: Normal
    VBComponent: ThisDocument
      Not processed!
  VBProject: TemplateProject
    VBComponent: ThisDocument
      Not processed!
    VBComponent: AutoNew
      8 replacements
    VBComponent: Dialog1
      19 replacements
    VBComponent: Dialog2
      1 replacements
    VBComponent: Drucken
      0 replacements
    VBComponent: Dialog3
      8 replacements
    VBComponent: NewMacros
      0 replacements
  SEARCH & REPLACE - TOTAL STATISTICS
  ===================================
  VBProjects processed  : 4
  VBComponents processed: 16
  Replacements done     : 72
PROCESSING: F:\Test\Word\I-BRIEF_3.dotm
  STATISTICS
  ==========
  VBProject: Normal, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
  VBProject: TemplateProject, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
    VBComponent: AutoNew, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog1, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Dialog2, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: Drucken, Typ: 1 (vbext_ct_StdModule - Standard module)
    VBComponent: Dialog3, Typ: 3 (vbext_ct_MSForm - Microsoft Form)
    VBComponent: NewMacros, Typ: 1 (vbext_ct_StdModule - Standard module)
  SEARCH & REPLACE
  ================
  VBProject: Normal
    VBComponent: ThisDocument
      Not processed!
  VBProject: TemplateProject
    VBComponent: ThisDocument
      Not processed!
    VBComponent: AutoNew
      8 replacements
    VBComponent: Dialog1
      19 replacements
    VBComponent: Dialog2
      1 replacements
    VBComponent: Drucken
      0 replacements
    VBComponent: Dialog3
      8 replacements
    VBComponent: NewMacros
      0 replacements
  SEARCH & REPLACE - TOTAL STATISTICS
  ===================================
  VBProjects processed  : 6
  VBComponents processed: 24
  Replacements done     : 108
+>22:19:40 AutoIt3.exe ended.rc:0
+>22:19:40 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 39.78

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

; ********** Änderungen nur NACH dieser Zeile **********
Global $sSearch = "Tester"                     ; Wonach soll gesucht werden?
Global $sReplace = "Master"                   ; Wodurch soll es ersetzt werden?
Global $sTemplate = @ScriptDir & "\I-Brief"  ; Zu verarbeitende Word Vorlagedatei
; ********** Änderungen nur VOR dieser Zeile **********
Global $sExtension = ".dotm"

; Start the MS Word application
Global $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_Create: @error=" & @error & ", @extended=" & @extended)

; Process the Template
_VBAModify($sTemplate)

Exit

Func _VBAModify($sTemplate)
    ; Open the Document
    Global $oDoc = _Word_DocOpen($oWord, $sTemplate & $sExtension)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocOpen: @error=" & @error & ", @extended=" & @extended)

    ; Open TemplateProject
    $oVBProject = $oWord.VBE.VBProjects("TemplateProject")
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "VBProjects: @error=" & @error & ", @extended=" & @extended)

    ; Open AutoNew VBComponent
    $oVBComponent = $oVBProject.VBComponents("AutoNew")
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "VBComponents: @error=" & @error & ", @extended=" & @extended)

    ; Modify line by line
    $oCodeModule = $oVBComponent.CodeModule
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "CodeModule: @error=" & @error & ", @extended=" & @extended)
    With $oCodeModule
        For $i = 1 To .CountOfLines
            If StringInStr(.Lines($i, 1), $sSearch) Then .ReplaceLine($i, StringReplace(.Lines($i, 1), $sSearch, $sReplace))
        Next
    EndWith

    ; Save as new Document
    _Word_DocSaveAs($oDoc, $sTemplate & "-NEW" & $sExtension, $WdFormatXMLTemplateMacroEnabled)
    If @error Then Exit MsgBox($MB_ICONERROR, "Error", "_Word_DocSaveAs: @error=" & @error & ", @extended=" & Hex(@extended))

    ; Close Document
    _Word_DocClose($oDoc)
EndFunc   ;==>_VBAModify

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "D:\Documents\Autoit_Software\Word\Vorlagen.au3" /UserParams    
+>20:26:54 Starting AutoIt3Wrapper (19.1127.1402.0} from:SciTE.exe (4.2.0.0)  Keyboard:00000407  OS:WIN_10/  CPU:X64 OS:X64  Environment(Language:0407)  CodePage:0  utf8.auto.check:4
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\juerg\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.16.0)  from:C:\Program Files (x86)\AutoIt3  input:D:\Documents\Autoit_Software\Word\Vorlagen.au3
+>20:26:54 AU3Check ended.rc:0
>Running:(3.3.16.0):C:\Program Files (x86)\AutoIt3\autoit3.exe "D:\Documents\Autoit_Software\Word\Vorlagen.au3"    
+>Setting Hotkeys...--> Press Ctrl+Alt+Break to Restart or Ctrl+BREAK to Stop.
"D:\Documents\Autoit_Software\Word\Vorlagen.au3" (26) : ==> The requested action with this object has failed.:
$oVBProject = $oWord.VBE.VBProjects("TemplateProject")
$oVBProject = $oWord^ ERROR
->20:26:58 AutoIt3.exe ended.rc:1
+>20:26:58 AutoIt3Wrapper Finished.
>Exit code: 1    Time: 4.484