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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Dim wApp, wDoc, wRange, sName, sDate, sTime Set wApp = CreateObject("Word.Application") Set wDoc = wApp.Documents.Add Set wRange = wDoc.Range sName = "http://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" |
