Possible to automaticly add an macro to a doc/excel file ?

[Vivi]

hey guys,

is it possible to add automaticly a macro to a word file ?

i already saw the word udf (word.au3 standard include) but it didnt had any functions for it.

do you guys know a way ?

 

Best Regards,

 

Vivi

[water]

For Excel it works this way:

$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import("C:\temp\Modul1.bas")

so I think for Word it should be similar:

$oWord.Application.VBE.ActiveVBProject.VBComponents.Import("C:\temp\Modul1.bas")

 

[Vivi]

1 hour ago, water said:

For Excel it works this way:

$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import("C:\temp\Modul1.bas")

so I think for Word it should be similar:

$oWord.Application.VBE.ActiveVBProject.VBComponents.Import("C:\temp\Modul1.bas")

 

hugh vouch !

worked.

now i just need to make it silent

 

my code :

 

$word = ObjCreate("Word.Application")
$word.visible = False
$word.Documents.open(@ScriptDir & "/doc.doc")
$word.Application.VBE.ActiveVBProject.VBComponents.Import(@ScriptDir  & "/macro.txt")
$word.Application.Quit

 

 

[water]

Use the Word UDF that comes with AutoIt:

#include <Word.au3>

Global $oWord = _Word_Create()
Global $oDoc = _Word_DocOpen($oWord, @ScriptDir & "/doc.doc")
$oWord.Application.VBE.ActiveVBProject.VBComponents.Import(@ScriptDir  & "/macro.txt")
_Word_DocSave($oDoc)
_Word_DocClose($oDoc)
_Word_Quit($oWord)

 

[Vivi]

Just now, water said:

Use the Word UDF that comes with AutoIt:

#include <Word.au3>

Global $oWord = _Word_Create()
Global $oDoc = _Word_DocOpen($oWord, @ScriptDir & "/doc.doc")
$oWord.Application.VBE.ActiveVBProject.VBComponents.Import(@ScriptDir  & "/macro.txt")
_Word_DocSave($oDoc)
_Word_DocClose($oDoc)
_Word_Quit($oWord)

 

thanks man.

works perfectly

[water]

NB: Add some error checking after each call to a _Word* function. Examples can be found in the example scripts provided in the help file for each function.

[Vivi]

hey man,

i just realized that the macro gets added, but not in the file itself.

 

 

 

[water]

Should then be:

$oDoc.VBProject.VBComponents.Import("C:\temp\Modul1.bas")

[Vivi]

works great.

 

thanks

Edited February 20, 2016 by Vivi

[water]