Want to create word documents with autoname

[Aliisonline 0]

I want to create a great many word documents based on names and dates and types.

Simply i just need to know that how can i call strings which are mentioned either earlier or by collected by gui created with AUTOIT. FOR EXAMPLE

Like in this script

#Include <Misc.au3>
#include <GUIConstants.au3>
GUICreate( "Get date", 210,190)
$document = 'Follow-Up'
$Date = GUICtrlCreateMonthCal ("",10, 10)
GUISetState()
While 1
Sleep ( 50 )
If _IsPressed("01") Then
#include <Word.au3>
;$calldate = GUICtrlRead($Date)
$oWordApp = _WordCreate (@DesktopDir & "\Test.doc"); RIGHT HERE I WANT TO SEND THE STRING $Date and $document 
;Run ('notepad.exe')
;WinWaitActive ("Untitled - Notepad")
;Send (GUICtrlRead($Date))
ExitLoop
EndIf
WEnd

[UEZ 1,278]

Try this:

expandcollapse popup

#include <Word.au3>

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 342, 133)
$Label1 = GUICtrlCreateLabel("How many Word files should be created?", 8, 8, 198, 17)
$Input1 = GUICtrlCreateInput("10", 208, 4, 121, 20)
$Button1 = GUICtrlCreateButton("GO", 208, 72, 123, 49)
$Label2 = GUICtrlCreateLabel("Ouput Path:", 8, 40, 61, 17)
$Input2 = GUICtrlCreateInput(@ScriptDir, 72, 36, 257, 21)
;~ $Date1 = GUICtrlCreateDate("", 8, 88, 186, 21, $DTS_SHORTDATEFORMAT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Create_Word(GUICtrlRead($Input1))
    EndSwitch
WEnd

Func Create_Word($n)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    Local $i, $path = GUICtrlRead($Input2)
    Local $filename
    For $i = 1 To $n
        $filename = $path & "\Test_" & @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & ".doc"
         $oWordApp = _WordCreate ($path & $filename, 0, 0)
         If @error Then Return SetError(1, @extended, _WinAPI_ShowError("Unable to create Word doc!"))
         $oDoc = _WordDocGetCollection ($oWordApp, 0)
         $oDoc.Range.InsertAfter ($filename)
        _WordDocSave ($oDoc)
        _WordQuit ($oWordApp)
        Sleep(1000)
     Next
     GUICtrlSetState($Button1, $GUI_ENABLE)
     MsgBox(0, "Ready", "Done!", 10)
     Return SetError(0)
EndFunc

For me it is not working because Word.au3 seems to be not compatible with Word2010!

Br,

UEZ

[KaFu 295]

Just tested a little and found that if you're running on a 64bit machine having 32bit Office 2010 installed, Word needs to be open and running (winword32.exe process exist) and the script needs to be started as 32bit (#AutoIt3Wrapper_UseX64=n), then it works for me.

[UEZ 1,278]

Indeed, I'm using Win7 x64 but I'm using also Office2010 x64!

And it is not working for me with #AutoIt3Wrapper_UseX64=n, compiled, nor when Word is running.

Br,

UEZ

[passimage 0]

here are some word creating APIs i have been using to create work documents. check out:

Public Function CreateEmptyDOCXDocumentDemo(pageCount As Integer) As DOCXDocument

    Return New DOCXDocument(pageCount)
End Function

while i was compliing word document creating codes, i want to add some processing method into it.

so i can edit created word. any help would be appreciated.

Edited January 13, 2014 by passimage

[water 2,391]

Welcome to AutoIt and the forum!

This thread is more than 3 years old. I suggest to create a new one.

Now AutoIt comes with a new Word UDF.