[R] Aide pour insérer du texte dans un formulaire Word

[Aurel]

Bonjour,

Je suis en cours de création d'un script, je bloque sur un fichier Word 2013.

J'arrive bien a écrire dans un fichier Word lorsque je l'ouvre, mais le fichier s'ouvre en lecture seul et je ne peux donc l'enregistrer avec les modifications du script.

Auriez-vous des indices pour réussir mon script.

Code : Tout sélectionner

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


        $oWord = _Word_Create(False, True)
        If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, " ", "Erreur de création document Word." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

        ;On ouvre le fichier Word
        $oDoc = _Word_DocOpen($oWord, "c:\temp\Doc1.docx", Default, Default, True)
        If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Impression courbe", "Erreur d'ouverture 'Print.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

       $mavariable = "Bonjour"
       $mavariable2 = "Vous allez bien ?"
        ;Send ("bonjour")
        $oRange = _Word_DocRangeSet($oDoc, -1)
        Dim $asArray[2] = [$mavariable, $mavariable2]

        _Word_DocTableWrite($oRange, $asArray, 0)
 

[parazitenew]

Bonsoir,

Êtes vous sûr que le problème ne vient pas du fichier lui même, avant de toucher au script. Vérifiez dans les propriétés du document que la case "Lecture seule" ne soit pas cochée.

Une alternative est d'utiliser _WordDocSaveAs() au lieu de _WordDocSave()

[Aurel]

Bonjour parazitenew,

J'ai ajouté le script que j'utilise.

Par contre je n'ai pas de problème de droit sur le fichier Doc1.docx

[jbnh]

Salut,

Cfr doc de _Word_DocOpen

_Word_DocOpen ( $oAppl, $sFilePath [, $bConfirmConversions = False [, $iFormat = $WdOpenFormatAuto [, $bReadOnly = False

Vous avez mis True.

[parazitenew]

Bonjour,

Apparemment jbnh l'a trouvé je n'utilise pas la nouvelle version d'autoit, les fonctions sont légèrement différentes.

[Aurel]

Merci cela fonctionne correctement.
Merci a vous deux

[Aurel]

Par contre cela rentre le texte dans un tableau.

Avec Autoit est-il possible d’écrire un texte hors tableau?

Sinon est-il possible de sélectionner le nom du champ (ex: Texte1)

[parazitenew]

Tout dépend de la mise en forme de votre document word. Si vous savez exactement où mettre le texte (comme un formulaire par exemple), vous pouvez utilisez la fonction:

Code : Tout sélectionner

_Word_DocFindReplace()

Elle permet de trouver un texte ou un mot et de le remplacer par ce que vous voulez. Vous pouvez arranger la forme et la mise en page de votre document à votre aise, dans les champs destinés à mettre du texte mettez un mot unique, par exemple:

► Afficher le texte

Code : Tout sélectionner

Nom: nom_1
Date de naissance: ddn
Age: mon_age

Ma fonction serait donc:

► Afficher le texte

Code : Tout sélectionner

_Word_DocFindReplace($oDoc, "nom_1", "Parazitenew")
_Word_DocFindReplace($oDoc, "ddn", "24/11/89")
_Word_DocFindReplace($oDoc, "mon_age", "25 ans")

Donc vous pouvez mettre "texte1" sur votre document et le remplacer avec ce que vous souhaitez en utilisant la fonction, mais faites attention à respecter les paramètres de la fonction de la nouvelle version d'autoit. Elle pourrait différer de la mienne.

[Aurel]

Ok merci je vais tester.

par contre la cellule que je cherche a remplir est vide mais elle a un nom "texte1"

[parazitenew]

Ok merci je vais tester.

par contre la cellule que je cherche a remplir est vide mais elle a un nom "texte1"

Vous devrez mettre quelque chose dans la cellule comme "texte1" par exemple. Et la valeur que vous voulez insérer remplacera le "texte1" à l'intérieur de la cellule.