;***************************** ;* RoboTask Task file ;* Do not edit in text editor! ;***************************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|-1 CatID=INTEGER|235983816 Comment=STRINGLIST ContinueOnError=INTEGER|0 DisableOnError=INTEGER|0 DoNotStopWhenShutdown=INTEGER|0 ExternalName=STRING|"Task1500" Hide=INTEGER|0 ID=INTEGER|696059742 LogOnAsUser=INTEGER|0 Name=STRING|"[DEMO.BASIC] MS Word" OnErrorTaskID=INTEGER|-1 Priority=INTEGER|3 RunOnClose=INTEGER|0 RunOnStartup=INTEGER|0 ToLog=INTEGER|3 UnicodeFormat=INTEGER|1 WriteGeneralLog=INTEGER|0 [Actions] Action1=FOLDER Action2=FOLDER [Actions\Action1] ActionID=STRING|"A_FILE_DELETE" Enabled=INTEGER|-1 Name=STRING|"Delete File" Params=FOLDER [Actions\Action1\Params] Count=STRING|"1" deletedirs=STRING|"0" file0=STRING|"{TempDir}\doc1.doc" subdir=STRING|"0" ToRecycleBin=STRING|"0" [Actions\Action2] ActionID=STRING|"A_SCRIPT_VBSCRIPT" Enabled=INTEGER|-1 Name=STRING|"VB Script" Params=FOLDER [Actions\Action2\Params] expandvars=STRING|"0" line00000000=STRING|"Sub Main" line00000001=STRING|" Dim App" line00000002=STRING|" Dim TempDir" line00000003=STRING|" TempDir = RoboTaskApp.ExpandText(""{TempDir}"")" line00000004=STRING|" Set App = CreateObject(""Word.Application"")" line00000005=STRING|" With App" line00000006=STRING|" .visible = True" line00000007=STRING|" 'Create a new document" line00000008=STRING|" .Documents.Add" line00000009=STRING|" 'Add text to the document" line0000000A=STRING|" With .Selection.Font" line0000000B=STRING|" .Size =14" line0000000C=STRING|" .Bold =True" line0000000D=STRING|" End With" line0000000E=STRING|" With .Selection.ParagraphFormat" line0000000F=STRING|" .Alignment = 1" line00000010=STRING|" End With" line00000011=STRING|" .Selection.TypeText(""This demo text created by "")" line00000012=STRING|" With .Selection.Font" line00000013=STRING|" .Underline = True" line00000014=STRING|" End With" line00000015=STRING|" .Selection.TypeText(""RoboTask"")" line00000016=STRING|" With .Selection.Font" line00000017=STRING|" .Underline = False" line00000018=STRING|" End With" line00000019=STRING|" .Selection.TypeText("" basic script"")" line0000001A=STRING|" .Selection.TypeParagraph" line0000001B=STRING|" .Selection.TypeParagraph" line0000001C=STRING|" .Selection.TypeParagraph" line0000001D=STRING|" With .Selection.Font" line0000001E=STRING|" .Size =12" line0000001F=STRING|" .Bold = False" line00000020=STRING|" End With" line00000021=STRING|" With .Selection.ParagraphFormat" line00000022=STRING|" .Alignment = 0" line00000023=STRING|" End With" line00000024=STRING|" .Selection.TypeText(""RoboTask can easily automate any series of tasks on your computer system, whether you are a novice or advanced user. You don't even have to know how to program—use RoboTask to build your own automated solutions quickly and easily. Yes RoboTask is powerful."")" line00000025=STRING|" .Selection.TypeParagraph" line00000026=STRING|" .Selection.TypeParagraph" line00000027=STRING|" .Selection.TypeText(""For example, RoboTask can Help you avoid losing important data when you create a backup Task For placing files On a remote server."")" line00000028=STRING|" .Selection.TypeParagraph" line00000029=STRING|" With .Selection.Font" line0000002A=STRING|" .Size = 10" line0000002B=STRING|" .Italic = True" line0000002C=STRING|" End With" line0000002D=STRING|" .Selection.TypeText(""(See help file for more details...)"")" line0000002E=STRING|" .Selection.TypeParagraph" line0000002F=STRING|" .Selection.TypeParagraph" line00000030=STRING|" With .Selection.Font" line00000031=STRING|" .Size = 8" line00000032=STRING|" .Italic = False" line00000033=STRING|" End With" line00000034=STRING|" With .Selection.ParagraphFormat" line00000035=STRING|" .Alignment = 2" line00000036=STRING|" End With" line00000037=STRING|" .Selection.TypeText(""This text saved as ""+TempDir+""\Doc1.doc"")" line00000038=STRING|" 'Save the document" line00000039=STRING|" On Error Resume Next" line0000003A=STRING|" .ActiveDocument.SaveAs(TempDir+""\Doc1.doc"")" line0000003B=STRING|" End With" line0000003C=STRING|" 'Quit Word" line0000003D=STRING|" 'App.Quit" line0000003E=STRING|"End Sub" line00000040=STRING|"main" linecount=STRING|"66" savescript=STRING|"0"