VBScript: Формирование отчёта в Word

Dim StartTime,EndTime: StartTime = Now ' For seeing how long the script takes to run
Dim objShell
Dim objFSO
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.Echo "StartTime = " & StartTime

Dim wordApp
Dim DocWord

Set wordApp = WScript.CreateObject("Word.Application")
wordApp.visible = true

wordApp.Documents.Add()

set DocWord = wordApp.ActiveDocument

DocWord.Paragraphs.Add()

    objDoc.Close
    objWord.Quit

 ' Этот пример показывает, как создавать ярлык к программе
 ' и копировать его в заданную папку
 
 L_Welcome_MsgBox_Message_Text   = _
 "Этот скрипт создаст ярлык и поместит его в Автозагрузку"
 

 Call Welcome()
 
  ' Создаем ярлык
 
 Dim WSHShell
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 
 Dim MyShortcut, MyDesktop, StartupPath
 
 ' Узнаем путь к специальной папке Автозагрузка
 StartupPath = WSHShell.SpecialFolders("Startup")
 
 ' Создаем ярлык для Автозагрузки
 Set MyShortcut = WSHShell.CreateShortcut(StartupPath & _
 "\Ярлык.lnk")
 
 ' Устанавливаем свойства для ярлыка
 MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Program Files\AIMP3\AIMP3.exe")
 MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
 MyShortcut.WindowStyle = 4
 MyShortcut.IconLocation = _
 WSHShell.ExpandEnvironmentStrings("C:\Program Files\AIMP3\AIMP3.exe, 0")
 MyShortcut.Save
 
 WScript.Echo "Ярлык создан и помещен в Автозагрузку"
 
 Sub Welcome()
     Dim intDoIt
 
     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                       vbOKCancel + vbInformation,       _
                       L_Welcome_MsgBox_Title_Text )
     If intDoIt = vbCancel Then
     WScript.Quit
     End If
 End Sub

L_Welcome_MsgBox_Message_Text = "Этот скрипт создаст ярлык и поместит его в Автозагрузку"
Call Welcome()
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, StartupPath
StartupPath = WSHShell.SpecialFolders("Startup")
Set MyShortcut = WSHShell.CreateShortcut(StartupPath&"\Ярлык.lnk")
    MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Program Files\AIMP3\AIMP3.exe")
    MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
    MyShortcut.WindowStyle = 4
    MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Program Files\AIMP3\AIMP3.exe, 0")
MyShortcut.Save : TimeCompletion = Now ' Запоминаем время создания

Call WriteWordReport("C:\Report.docx")

Sub Welcome()
    Dim intDoIt
    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
    WScript.Quit
    End If
End Sub

Sub WriteWordReport(FilePath) ' Процедура создания word-отчёта
    Set objWord = CreateObject("Word.Application")
     objWord.Visible = True
    Set objDoc = objWord.Documents.Add()
        objWord.Selection.TypeText TimeCompletion&" Ярлык создан и помещен в Автозагрузку."&vbCrLf
    objDoc.SaveAs(FilePath)
    'objDoc.Close
    'objWord.Quit 
End Sub