UDF > Word >

_Word_DocAttach

Attache � la premi�re instance d'un document Word, la recherche d'une cha�ne dans le mode s�lectionn�

#include <Word.au3>
_Word_DocAttach ( $oAppl, $sString [, $sMode = "FilePath" [, $iCase = 0]] )

Param�tres

$oAppl Objet Word retourn� par un appel pr�c�dent � _Word_Create()
$sString Cha�ne � rechercher
$sMode [optionnel] Mode de recherche � utiliser. Les modes valides sont:
    "FileName" - nom du document ouvert
    "FilePath" - chemin complet vers le document ouvert (par d�faut)
    "Text" - texte dans le corps du document
$iCase [optionnel] Sp�cifie la sensibilit� � la casse de la fonction StringInStr() utilis�e pour le mode de recherche "Text":
    0 - insensible � la casse, en utilisant la locale de l'utilisateur (par d�faut)
    1 - sensible � la casse
    2 - insensible � la casse, en utilisant une comparaison de base/rapide

Valeur de retour

Succ�s: Retourne une variable pointant sur l'objet de document.
�chec: Retourne 0 et d�finit @error <> 0.
@error: 1 - $oAppl n'est pas un objet
2 - $sString est vide
3 - $sMode est invalide. Doit �tre "FilePath","FileName" ou "Text"
4 - La recherche a �t� infructueuse

Remarque

Cette fonction retourne seulement l'objet du document trouv�.
Pour acc�der � l'application Word correspondante utilisez: $oAppl = $oDoc.Application.

En relation

_Word_DocClose, _Word_DocGet

Exemples

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_DocAttach Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Ouvre un document test en lecture seulement
_Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", "Error opening '.\Extras\Test.doc'." & _
        @CRLF & "@error = " & @error & ", @extended = " & @extended)

;
; Attache au document test par "FileName" et d�finit le focus dans la fen�tre
;
Local $oDoc = _Word_DocAttach($oWord, "Test.doc", "Filename")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", _
        "Error attaching to '.\Extras\Test.doc' by 'FileName'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; D�finit le focus dans le document Word - le param�tre $f_takeFocus de l'ancienne fonction _WordCreate
WinActivate($oWord.ActiveWindow.Caption & " - " & $oWord.Caption)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", "Attach to document by 'FileName' successfull!" & @CRLF & _
        @CRLF & "Text of the attached document:" & @CRLF & $oDoc.Range().Text)

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_DocAttach Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Ouvre un document test en lecture seulement
_Word_DocOpen($oWord, @ScriptDir & "\Extras\Test.doc", Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", "Error opening '.\Extras\Test.doc'." & _
        @CRLF & "@error = " & @error & ", @extended = " & @extended)

;
; Attache au document test par "Text"
;
Local $oDoc = _Word_DocAttach($oWord, "Test", "Text")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", _
        "Error attaching to '\Extras\Test.doc' by 'Text'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocAttach Example", "Attach to document by 'Text' successfull!" & _
        @CRLF & @CRLF & "Text of the attached document:" & @CRLF & $oDoc.Range().Text)