Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <File.au3>
- #include <Array.au3>
- #include <Word.au3>
- #include <_RecFileListToArray.au3>
- $g_replaceList = IniReadSection('config.ini','words')
- ;~ _ArrayDisplay($g_replaceList)
- $aArray = _RecFileListToArray(@ScriptDir, "*.doc*", 1, 1, 0, 2, "", "")
- ;~ _ArrayDisplay($aArray)
- For $i = 1 to UBound($aArray) -1
- ReplaceInWord($aArray[$i])
- Next
- Func ReplaceInWord($pathToFile)
- ConsoleWrite($pathToFile & @CRLF)
- $oAppl = _Word_Create()
- If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen Example", _
- "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
- $oWordDoc = _Word_DocOpen($oAppl, $pathToFile)
- If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
- "Error opening " & $pathToFile & @CRLF & "@error = " & @error & ", @extended = " & @extended)
- ConsoleWrite($oWordDoc & @CRLF)
- for $k=1 to UBound($g_replaceList) -1
- $oFind = _Word_DocFindReplace($oWordDoc, $g_replaceList[$k][0], $g_replaceList[$k][1], $WdReplaceAll, 0, False, True)
- If $oFind Then
- ConsoleWrite("Found and replaced." & @CRLF)
- Else
- ConsoleWrite("Not Found" & @CRLF)
- EndIf
- Next
- _Word_DocSave($oWordDoc)
- _Word_DocClose($oWordDoc)
- _Word_Quit ($oAppl, 0)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement