ESEMPIO DI SCRIPT VBS CHE INTERAGISCE COL PROGRAMMA WORD DI WINDOWS
Tempo fà mi fu chiesto un aiuto da uno studente di scuola media superiore il quale al seguito di un’esercitazione in classe doveva creare uno script visual basic che interagisse col programma di video scrittura word.
Lanciando lo script si apriva word e si doveva leggere:
- Documento creato da: il nome dello studente;
- alle ore: ora di creazione del file
- in data: data attuale di creazione del file;
- il carattere doveva essere di colore rosso;
- lo stile del carattere in grassetto;
- famiglia del carattere arial;
- alla chiusura dello script la directory di salvataggio impostata in D:\ e il nome del file VBS – Word.doc
Per eseguire l’esercizio basta utilizzare il blocco note di windows:
Start >Tutti i programmi >Accessori >Blocco note (o qualsiasi programma di video scrittura).
Al momento del salvataggio devi semplicemente aggiungere l’estensione .vbs al nome del file.
Nel sito ho trattato l’argomento parecchie volte quindi se hai difficoltà basta ricercare.
Codice
Dim wApp, wDoc, wRange, sName, sDate, sTime
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Add
Set wRange = wDoc.Range
sName = "https://www.giovannidimauro.it - Download - Visual Basic Script"
sDate = Date()
sTime = Time()
sContent = "Documento creato da " & sName & " alle ore " & sTime & " in data " & sDate & "!"
wRange.Style = -3
wRange.Font.Color = 255
wRange.Text = sContent
wDoc.SaveAs "D:\VBS - Word.doc"
wApp.Quit
Set sRange = Nothing
Set wDoc = Nothing
Set wApp = Nothing
WScript.Echo "Il file è stato appena salvato nella seguente directory D:\VBS - Word.doc"
