[R] error: _WordCreate () : undefined function

[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 ?

[mikell]

L'obsolescence ...
Le topic date de 2008, depuis l'udf Word.au3 a évolué et notamment le nom des fonctions (_Word_Create() , etc)

[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.

[jguinch]

Code : Tout sélectionner

#include <Word.au3>
Local $objWord = _Word_Create()
$objDoc = _Word_DocAdd($objWord)
$objDoc.ApplyTheme("water")

https://msdn.microsoft.com/en-us/librar ... 35740.aspx

Voir également ApplyDocumentTheme : https://msdn.microsoft.com/en-us/librar ... 40910.aspx
.

[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()

[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)

[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()

[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é.

[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.

[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" 

[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 .