UDF > Word >

_Word_DocFindReplace

Exécute la recherche spécifié et l'opération de remplacement

#include <Word.au3>
_Word_DocFindReplace ( $oDoc [, $sFindText = "" [, $sReplaceWith = "" [, $iReplace = $WdReplaceAll [, $vSearchRange = 0 [, $bMatchCase = False [, $bMatchWholeWord = False [, $bMatchWildcards = False [, $bMatchSoundsLike = False [, $bMatchAllWordForms = False [, $bForward = True [, $iWrap = $WdFindContinue [, $bFormat = False]]]]]]]]]]]] )

Paramètres

$oDoc Document Word objet
$sFindText [optionnel] Le texte à rechercher. Utilisez une chaîne vide ("") pour rechercher seulement un format.
Vous pouvez rechercher des caractères spéciaux en spécifiant les codes de caractères appropriés.
Par exemple,"^p" correspond à une marque de paragraphe et "^t" correspond à un caractère de tabulation (par default = "")
$sReplaceWith [optionnel] Le texte de remplacement. Pour supprimer le texte trouvé utilisez une chaîne vide ("").
Vous pouvez spécifier des caractères spéciaux et des critères de recherche avancée comme vous pouvez le faire pour l'argument Find (default = "")
$iReplace [optionnel] Combien de remplacements doivent être faits: un, tous ou aucun.
Peut être toute constante de WdReplace (par défaut $wdReplaceAll)
$vSearchRange [optionnel] Spécifie la sélection ou la plage dans laquelle rechercher. Peut être:
    -1 - Indique la sélection actuelle
     0 - Indique le document entier (par défaut)
Tout objet plage de Word.
$bMatchCase [optionnel] Si True, la recherche est sensible à la casse (par défaut = False)
$bMatchWholeWord [optionnel] Si True, seuls des mots entiers sont recherchés (par défaut = False)
$bMatchWildcards [optionnel] Si True, le texte à rechercher contient des opérateurs spéciaux de recherche (par défaut = False)
$bMatchSoundsLike [optionnel] Si True, recherche des mots phonétiquement similaire au texte de la recherche (par défaut = False)
$bMatchAllWordForms [optionnel] Si True, recherche toutes les formes du texte à rechercher
(par exemple, "sit" retiendra "sitting" et "sat") (par défaut = False)
$bForward [optionnel] True pour rechercher vers l'avant (vers la fin du document) (valeur par défaut = True)
$iWrap [optionnel] True, boucle quand le bas ou le haut du document, de la sélection ou de la plage est atteint.
Peut être l'une des constantes de WdFindWrap (par défaut = $wdFindContinue)
$bFormat [optionnel] True, pour que l'opération de recherche concerne un format en plus ou à la place du texte à rechercher (par défaut = False)

Valeur de retour

Succès: Retourne 1.
Échec: Retourne 0 et définit @error <> 0.
@error: 1 - $oDoc n'est pas un objet
2 - $vSearchRange n'est pas un objet
3 - Une erreur est apparue quand l'opération de remplacement a été effectuée. @extended contient le code d'erreur COM.

En relation

_Word_DocFind

Exemple

Exemple 1

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

; Crée un objet application
Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Ouvre un document test en lecture seule
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

;
; Change le document test en remplaçant du texte.
;
_Word_DocFindReplace($oDoc, "test document", "test document with replaced text")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error replacing text in the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", "Text successfully replaced.")

Exemple 2

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

; Crée un objet application
Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Ouvre un document test en lecture seule
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error opening '.\Extras\Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

;
; Remplace le caractère de contrôle paragraph par paragraph + text + paragraph.
; Change seulement la première occurrence.
;
_Word_DocFindReplace($oDoc, "^p", "^pInserted Line^p", $wdReplaceOne)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error replacing text in the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", "Paragraph control character successfully replaced.")