_Word_DocFindReplace - (Moved)

[djinn]

Hello,

I'm trying to find & replace words in a MS word file, but the file is composed with text zone, image...Check the file in attachment please.

As an example i did this code :

#Include<file.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>
#include <Word.au3>
#include <GUIConstants.au3>

Global $fileword = ("C:\Users\rapha\OneDrive\Documents\Autoit\test Booking Confirmation.docx")
Local $oWord = _Word_Create()
Local $oDoc =_Word_DocOpen ($oWord,$fileword)
$checkin = "1111111"

_Word_DocFindReplace ($oDoc, "check in",$checkin)

any clue ?

Thx !test Booking Confirmation.docx

[Nine]

Working for me.  BTW the document you provided has "check in" already replace with "1111111" !

[Melba23]

Moved to the appropriate forum.

Moderation Team

[water]

You need to check @error and @extended after each function call. They tell you what went wrong.

[djinn]

Hi
thanks for your answer.
But, @error =0 and @extended =3
It doesn't help me so much 😞

[water]

You first need to select the Shape to modify. _Word_DocFindReplace by default just processes the main story of the document.
You need something like this:

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

Global $sDocument = (@ScriptDir & "\Test Booking Confirmation.docx")
Global $sReplace = "1111111"

Global $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error opening MS Word. @error=" & @error & ", @extended=" & @extended)
Global $oDoc = _Word_DocOpen($oWord, $sDocument)
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error opening the document. @error=" & @error & ", @extended=" & @extended)

; Select the textfield to modify
Global $aSelect[] = ["Zone de texte 2"]
$oWord.ActiveDocument.Shapes.Range($aSelect).Select
; Modify the textfield
_Word_DocFindReplace($oDoc, "check in", $sReplace, Default, -1)
If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error changing the document. @error=" & @error & ", @extended=" & @extended)

 

[djinn]

I'll try,
thank you !!