_word_DocFindReplace

[neypro]

can you help me!!!!
I use the _Word_DocFindReplace function in word.au3 to replace the word, when I use it for the paragraph it works well.
But do not substitute words written in the text box

[water]

Welcome to AutoIt and the forum!

Can you please post the script you run?

[neypro]

18 minutes ago, water said:

Welcome to AutoIt and the forum!

Can you please post the script you run?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <word.au3>
Local $msg
GUICreate("My Program", 200, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
$button=GUICtrlCreateButton("drag here",10,10,150,150)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_DROPPED Then
        $nhap=@gui_DragFile
        ExitLoop
    EndIf
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()

Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, $nhap, Default, Default, True)
_Word_DocFindReplace($oDoc, "test document", "hiuhiuhiu",$WdReplaceAll)
_Word_DocSaveAs($oDoc, @ScriptDir&"\finis.doc")
_Word_Quit($oWord)

[neypro]

[water]

A possible solution has been posted here:

 

[neypro]

7 hours ago, water said:

A possible solution has been posted here:

 

I have seen some related posts. But I'm not good at English so I do not understand much :(((

[water]

The following example processes all text box shapes

#include <Word.au3>
$oWord = _Word_Create()
$oDoc = _Word_DocOpen($oWord, @ScriptDir & "\test.docx")
Global Const $msoTextBox = 17 ; Text box
For $oShape In $oWord.ActiveDocument.Shapes
    If $oShape.Type = $msoTextBox Then
        $oShape.Select
        _Word_DocFindReplace($oDoc, "FindMe", "ReplaceMe", Default, -1)
    EndIf
Next

 

[neypro]

3 hours ago, water said:

The following example processes all text box shapes

#include <Word.au3>
$oWord = _Word_Create()
$oDoc = _Word_DocOpen($oWord, @ScriptDir & "\test.docx")
Global Const $msoTextBox = 17 ; Text box
For $oShape In $oWord.ActiveDocument.Shapes
    If $oShape.Type = $msoTextBox Then
        $oShape.Select
        _Word_DocFindReplace($oDoc, "FindMe", "ReplaceMe", Default, -1)
    EndIf
Next

 

 Oh, thank you. You helped me a lot

[water]