Beiträge von water

**water** · Vor 15 Stunden

Kannst Du bitte kurz beschreiben, wofür Du einen Impressumgrabber brauchst

**water** · 18. September 2022

Vor Zeile 68 könntest Du noch die Fehlerprüfung einbauen. Damit wird die Verarbeitung für die aktuelle Component beendet und die nächste verarbeitet.

Code

If @error Then ContinueLoop

**water** · 14. September 2022

Dann braucht es einen COM error handler. Damit wird der Fehler abgefangen und das Skript crashed nicht mehr. Der Fehlercode kann dann im Skript abgefragt werden und die Funktion _VBAModify mit Return beenet werden.

C

#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"], _
                             ["Maier","Müller"] _
                             ]
; For code with the following strings no replacement will be done at all
Global $aIgnore[] = [ _
                    'ActiveDocument.Bookmarks("Amtsleiter")"', _
                    '.UpdateFieldsAtPrint = True' _
                    ]
Global $sTemplate = @ScriptDir & "\I-Brief" ; Zu verarbeitende Word Vorlagedatei
; ********** Änderungen nur VOR dieser Zeile **********
Global $sExtension = ".dotm"
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

; 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
_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)

    ; 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

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

Alles anzeigen

**water** · 14. September 2022

Einen solchen Check gibt es für Excel.
Ob das auch für Word funktioniert, müsstest Du testen.

**water** · 13. September 2022

Gerne Seit 2009 (so lange bin ich schon im Forum) hat sch einiges Wissen angesammelt.

Das gebe ich gerne weiter bzw. erarbeite ich mir gerne neues Wissen. Die grauen Zellen müssen in meinem Alter ja beschäftigtg werden

**water** · 12. September 2022

Zitat von bazii

Hingegen wurde bei meinem Test unter $aIgnore das Wort "Amtsleiter" mit "Amtsleitung" trotz Eintrag in $aIgnore überschrieben.

Mein Fehler.
Das muss natürlich

Code

Global $aIgnore[] = [ _
                    'ActiveDocument.Bookmarks("Amtsleiter")' _
                    ]

lauten. Das doppelte Anführungszeichen vor dem einfachen Anführungszeichen war zu viel.
Nun sollte es funktionieren.
Meine Testdaten aus beiden Tabellen kannst Du natürlich rauslöschen - verwirrt sonst irgendwann

**water** · 12. September 2022

Ich denke, dass das Statement

Code

Global $aIndex = _FileListToArrayRec(@ScriptDir, "*" & $sExtension, $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_FULLPATH)

lauten sollte, da $sExtension auf ".dotm" gesetzt ist. Das allein ist noch kein gültiger Filter.

**water** · 12. September 2022

Zu Punkt 1:

Das sollte jetzt schon funktionieren, da die Components vom Type 1 und 3 bearbeitet werden (die rot markierten Zeilen).

**water** · 12. September 2022

Zu Punkt 2:

In Array $aIgnore die zu ignorierenden Strings erfassen. ACHTUNG: Wenn einer der Strings gefunden wird, dann wird keine Ersetzung in dieser Zeile durchgeführt!

C

#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"], _
                             ["Maier","Müller"] _
                             ]
; For code with the following strings no replacement will be done at all
Global $aIgnore[] = [ _
                    'ActiveDocument.Bookmarks("Amtsleiter")"', _
                    '.UpdateFieldsAtPrint = True' _
                    ]
Global $sTemplate = @ScriptDir & "\I-Brief" ; Zu verarbeitende Word Vorlagedatei
; ********** Änderungen nur VOR dieser Zeile **********
Global $sExtension = ".dotm"
Global $iTotalProjectCount = 0, $iTotalComponentCount = 0, $iTotalReplacementCount = 0

; 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)

    ; 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

Alles anzeigen

**water** · 11. September 2022

Zu Punkt 1: Muss ich mir anschauen.

Zu Punkt 2: Wäre vermutlich einfach umzusetzen. In einem zweiten Array könnte man die Ausnahmen festlegen.
Da mache ich Dir einen Vorschlag.

**water** · 11. September 2022

Ich verwende sowas um ungültige Zeichen in einem Dateinamen durch "_" zu ersetzen.
Wo genau ich das gefunden habe ... keine Ahnung mehr

Code

$sNewName = StringRegExpReplace($sFilename, '[ \/:*?"<>|]', '_') ; replace invalid characters with underscore

**water** · 11. September 2022

Kleine Anpassung.
Nun kannst Du in einem Durchlauf mehrere Strings ersetzen lassen.

C

#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"], _
                                ["Maier","Müller"] _
                                ]
; 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"
Global $iTotalProjectCount = 0, $iTotalComponentCount = 0, $iTotalReplacementCount = 0

; 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)

    ; 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
                            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
                        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

Alles anzeigen

**water** · 11. September 2022

Gerne

**water** · 10. September 2022

AutoIt

For $i = 1 to $aIndex[0]
    _VBAModify($aIndex[$i])
Next

**water** · 10. September 2022

Habe das Skript aktualisiert. Nun werden alle Projects und Components eines Dokumentes verarbeitet und entsprechende Statistiken ausgegeben:

AutoIt

#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"
Global $iTotalProjectCount = 0, $iTotalComponentCount = 0, $iTotalReplacementCount = 0

; 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)

    ; 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
                            If StringInStr(.Lines($i, 1), $sSearch) Then
                                .ReplaceLine($i, StringReplace(.Lines($i, 1), $sSearch, $sReplace))
                                $iReplaceCount = $iReplaceCount + 1
                            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

Alles anzeigen

**water** · 10. September 2022

Ich habe mir das nochmals angeschaut.
Wenn "I-Brief.dotm" ident mit dem Dokument ist, das Du mir per PM gesendet hast, dann kann ich das Ergebnis nachvollziehen.

Ich habe in meinem Beispielskript das Project "TemplateProject" und darin die Componente "AutoNew" verarbeitet. Es gibt dort kein "Tester" das ersetzt werden könnte.

Aber in einem der Dialgn Forms habe ich "Tester" gefunden.

Soll die Ersetzung daher in allen Projects und Components (Macro, GUI ...) des Dokumentes durchgeführt werden?

Code

PROCESSING: ...\I-Brief.dotm
  STATISTICS
  ==========
  VBProject: Normal, Typ: 100 (vbext_pt_HostProject - Host project)
    VBComponent: ThisDocument, Typ: 100 (vbext_ct_Document - Document Module)
    VBComponent: NewMacros, Typ: 1 (vbext_ct_StdModule - Standard 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)

Alles anzeigen

**water** · 9. September 2022

Muss ich testen - morgen

**water** · 9. September 2022

Bei mir hat es funktioniert.

Poste mal Dein Skript.

**water** · 9. September 2022

In MS Word: Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen für Entwickler > Zugriff auf das VBA-Projektmodell vertrauen > aktivieren

**water** · 9. September 2022

Beispielscript für das konkrete Problem.

Es müssen nur mehr die markierten Variablen eingesetzt werden
Die Originaldateien werden nicht überschrieben
Im Ursprungsverzeichnis wird die geänderte Datei als Dateiname-NEW.dotm gespeichert
Für die Stapelverarbeitung muss nun nur noch mit _FileListToArray ein Array der zu verarbeitenden Dateien erstellt und für jede Datei dann die Funktion mit dem Dateinamen als Parameter aufgerufen werden

AutoIt

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

; ********** Änderungen nur NACH dieser Zeile **********
Global $sSearch = "True"                     ; Wonach soll gesucht werden?
Global $sReplace = "FALSE"                   ; 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

Alles anzeigen

Beiträge von water

Automatisierung eines Impressum-Grabbers

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Suche Hilfe - unzulässige Zeichen bei Dateinamen ersetzen - mit "StringRegExp" für ANFÄNGER!

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)

Microsoft Word: Suche und ersetze Text in den Inhalten der VBA-Progammierung (gelöst)