Серый форум — VBScript: Формирование отчёта в Word

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

null@example.com (alexii) — Thu, 18 Apr 2013 07:15:09 +0000

У меня никак не получается вставить в закладку текст в национальной кодировке одной из стран СНГ.

Приведите Ваш код.

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

null@example.com (beginer) — Thu, 18 Apr 2013 02:36:35 +0000

Товарищи, подскажите, пожалуйста, vbs в какой кодировке пишет текст? У меня никак не получается вставить в закладку текст в национальной кодировке одной из стран СНГ.

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

null@example.com (alexii) — Wed, 08 Jun 2011 08:22:41 +0000

dacent пишет:

Я понял

Знаки препинания — это ещё и точки в конце предложений.

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

null@example.com (dacent) — Wed, 08 Jun 2011 05:35:56 +0000

Felix Faria, ОГРОМНОЕ СПАСИБО тебе!!!!!!

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

null@example.com (dacent) — Wed, 08 Jun 2011 05:27:39 +0000

alexii пишет:

dacent, здесь не чат. На будущее: начинайте предложения с заглавной буквы и используйте знаки препинания.

Я понял

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

null@example.com (alexii) — Wed, 08 Jun 2011 03:05:12 +0000

dacent, здесь не чат. На будущее: начинайте предложения с заглавной буквы и используйте знаки препинания.

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

null@example.com (Felix Faria) — Tue, 07 Jun 2011 18:49:58 +0000

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

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

null@example.com (dacent) — Tue, 07 Jun 2011 18:19:18 +0000

подскажи пожалуйста

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

null@example.com (dacent) — Tue, 07 Jun 2011 18:13:52 +0000

чёрт. не выходит(

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

null@example.com (dacent) — Tue, 07 Jun 2011 17:37:36 +0000

сохранить Call WriteWordReport("C:\Report.docx") также выходит а вот с вызовом процедуры я похоже запутался и намудрил(

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

null@example.com (dacent) — Tue, 07 Jun 2011 16:57:29 +0000

спасибо!!! сейчас испробую

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

null@example.com (Felix Faria) — Tue, 07 Jun 2011 16:42:38 +0000

Ну я специально и сделал формирование отчета в Word'e в отдельную процедуру. Вставь код процедуры из прошлого кода в свой, только замени там строчку

objWord.Selection.TypeText TimeCompletion&" "&Information&vbCrLf

На такую:

objWord.Selection.TypeText "Ярлык создан и помещен в Автозагрузку"

Строчку "WScript.Echo "Ярлык создан и помещен в Автозагрузку"" у себя можешь убрать. И не забудь вызвать процедуру и указать, как нужно сохранить новый отчет.

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

null@example.com (dacent) — Tue, 07 Jun 2011 16:34:32 +0000

Спасибо большое!!!
но у меня есть 2я часть работы, почти тоже самое, только нужно добавить приложения в папку Автозагрузки
код я сделал а с вордом всё та же проблема(

 ' Этот пример показывает, как создавать ярлык к программе
 ' и копировать его в заданную папку
 
 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

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

null@example.com (dacent) — Tue, 07 Jun 2011 16:31:05 +0000

отчёт о работе скрипта. в принципе этого вполне достаточно. приложение добавилось, а в ворде это зафиксировалось

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

null@example.com (Felix Faria) — Tue, 07 Jun 2011 16:26:43 +0000

Если не нужно закрывать, то уберите или закомментируйте эти строчки:

    objDoc.Close
    objWord.Quit

Остальное всё понятно в коде?