Page 1 sur 1
[R] error: _WordCreate () : undefined function
Posté : lun. 14 mars 2016 20:06
par GMH
Bonjour,
Je tente de tester le code trouvé à l'adresse (message #6) :
http://autoitscript.fr/forum/viewtopic.php?p=6223
J'obtiens ces deux messages d'erreur :
#include <Word.au3>
#include <IE.au3>
; Ouverture d'un document word type
$oWordApp = _WordCreate ("")
error: _WordCreate () : undefined function
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Document type.doc")
error: _WordDocOpen () : undefined function
Quelle peut en être la cause ?
Re: [..] error: _WordCreate () : undefined function
Posté : lun. 14 mars 2016 21:01
par mikell
L'obsolescence ...
Le topic date de 2008, depuis l'udf Word.au3 a évolué et notamment le nom des fonctions (_Word_Create() , etc)
Re: [..] error: _WordCreate () : undefined function
Posté : lun. 14 mars 2016 21:21
par GMH
Effectivement...un trait de soulignement se glisse après le mot Word dans chacune des fonctions... On n'arrête pas le progrès !
Les signalements d'erreur ont disparu, mais le programme plante...
Existe-t-il une fonction qui permette de fixer le thème de Word que l'on souhaite ?
Merci à vous.
Re: [..] error: _WordCreate () : undefined function
Posté : lun. 14 mars 2016 22:16
par jguinch
Code : Tout sélectionner
#include <Word.au3>
Local $objWord = _Word_Create()
$objDoc = _Word_DocAdd($objWord)
$objDoc.ApplyTheme("water")
Voir également ApplyDocumentTheme :
https://msdn.microsoft.com/en-us/librar ... 40910.aspx
.
Re: [..] error: _WordCreate () : undefined function
Posté : mar. 15 mars 2016 15:41
par GMH
Merci beaucoup.
Voici mon code... qui malheureusement ne remplit pas ma feuille Word du contenu d'une page Web, via le presse-papier :
Pouvez-vous me dire où je fais erreur ?
#include <IE.au3>
#include <Word.au3>
Func Main()
Local $objWord = _Word_Create()
$objDoc = _Word_DocAdd($objWord)
$objDoc.ApplyTheme("C:\Users\portable\AppData\Roaming\Microsoft\Templates\Document Themes\MonTheme.thmx")
$objDoc.Visible = 1
send("{PGDN 5}")
; Ouverture du fichier html et copie
$oIE = _IECreate (@ScriptDir & "\fichiersWeb\monFichierWeb.html")
sleep(1000)
Send("^a") ; sélection (= CTRL + a)
sleep(100)
Send("^c") ; copie dans le presse-papier (= CTRL + c)
Winclose(@ScriptDir & "\fichiersWeb\monFichierWeb.html")
$objDoc.Text = ClipGet() ; récupération du contenu du presse-papier, versement dans la feuille Word
sleep(2000)
EndFunc
Main()
Re: [..] error: _WordCreate () : undefined function
Posté : mer. 16 mars 2016 19:55
par jguinch
Code : Tout sélectionner
#include <Word.au3>
#include <IE.au3>
Local $oIE = _IECreate("http://perdu.com")
Local $sText = _IEBodyReadText($oIE)
_IEQuit($oIE)
Local $objWord = _Word_Create()
$objDoc = _Word_DocAdd($objWord)
$objDoc.ApplyDocumentTheme ("C:\Users\portable\AppData\Roaming\Microsoft\Templates\Document Themes\MonTheme.thmx")
Sleep(100)
$oRange = _Word_DocRangeSet($objDoc, -1)
$oRange.Select
$oRange.InsertBefore($sText)
Re: [..] error: _WordCreate () : undefined function
Posté : mer. 16 mars 2016 21:06
par walkson
Bonsoir,
Je me suis fait coiffer sur le poteau !
J'ai un code à proposer mais il est pas beau !
D'abord, je n'aime pas les "send') et en suite je ferme IE par ProcessClose() ce qui n'est pas terrible mais _IEQuit() semble ne pas vouloir fonctionner avec une adresse sur le PC (pas de HTTP)
Code : Tout sélectionner
#include <IE.au3>
#include <Word.au3>
Func Main()
Local $objWord = _Word_Create()
$objDoc = _Word_DocAdd($objWord)
$objDoc.ApplyTheme("C:\Users\portable\AppData\Roaming\Microsoft\Templates\Document Themes\MonTheme.thmx")
$objDoc.Visible = 1
send("{PGDN 5}")
; Ouverture du fichier html et copie
$oIE = _IECreate (@ScriptDir & "\WWWW.html")
Sleep(1000)
Send("^a") ; sélection (= CTRL + a)
sleep(100)
Send("^c") ; copie dans le presse-papier (= CTRL + c)
;_IEQuit($oIE)
Const $wdPasteDefault = 0
$objWord.Select
$objWord.Selection.PasteAndFormat($wdPasteDefault) ; récupération du contenu du presse-papier, versement dans la feuille Word
ProcessClose("iexplore.exe")
EndFunc
Main()
Re: [..] error: _WordCreate () : undefined function
Posté : mer. 16 mars 2016 21:11
par GMH
merci à tous deux.
Le code de jGuinch fonctionne uniquement avec une adresse sur l'Internet. La copie ne se fait pas si le fichier html se trouve sur le disque dur.
Dans les deux cas, le Thème n'est pas appliqué.
Re: [..] error: _WordCreate () : undefined function
Posté : mer. 16 mars 2016 21:17
par GMH
Le code de Walkson que je viens de tester fonctionne même avec un fichier Html du disque dur.
D'autre part, le thème est bien chargé.
J'ai l'impression que la question est résolue.
Merci à tous deux.
Re: [R] error: _WordCreate () : undefined function
Posté : mer. 16 mars 2016 21:44
par walkson
Je viens de tester et ça marche
Code : Tout sélectionner
$objWord.ActiveDocument.ApplyDocumentTheme ("C:\Program Files\Microsoft Office\Document Themes 12\Verve.thmx")
L'adresse est celle indiquée par l'aide VBA
Code : Tout sélectionner
Visual Basic pour Applications
ActiveDocument.ApplyDocumentTheme _
"C:\Program Files\Microsoft Office\" & _
"Document Themes 12\Verve.thmx"
Re: [R] error: _WordCreate () : undefined function
Posté : jeu. 17 mars 2016 10:08
par GMH
Votre code fonctionne. Mais celui de jguinch ne transcrit dans la page Word qu'un zéro. Sans doute l'ID de $oIE plutôt que le contenu $sText .