Leggere il testo tramite script vbs
Tempo fà mi era stato chiesto un aiuto da uno studente di scuola media superiore il quale al seguito di un’esercitazione in classe gli imponevano di editare uno script visual basic che interagisse col programma di video scrittura word dove si doveva leggere:- carattere in rosso;
- carattere in grassetto;
- carattere della famiglia arial;
- Documento creato da: il nome dello studente;
- alle ore: ora di creazione del file;
- in data: data attuale di creazione del file;
- alla chiusura dello script la directory di salvataggio impostata in D: e il nome del file VBS – Word.doc
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://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" |
N.B.: le scritte in rosso sono modificabili ma tieni presente di rispettare la directory e il nome del file.
Articoli Correlati
