Se capita di dover convertire dei files creati con Microsoft Works (.wps) a Word (.doc) si può utilizzare Office con un apposito plugin. Se capita invece di dover convertire molti files, l’operazione potrà essere lunga e noiosa. A questo punto ci può venire incontro un piccolo ed utilissimo script che ho trovato qui che permette di convertire i files di un’intera cartella utilizzando un solo comando.
——————-
‘ convertire i documenti *.wps di work in *.doc di word la cartella che
‘ viene convertita è in c:\cartella e tutti i file contenuti vengono convertiti , )
Const wdFormatDocument = 0
strComputer = “.”
Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colFiles = objWMIService.ExecQuery _
(”ASSOCIATORS OF {Win32_Directory.Name=’C:\cartella’} Where ” _
& “ResultClass = CIM_DataFile”)
Set objWord = CreateObject(”Word.Application”)
For Each objFile in colFiles
If objFile.Extension = “wps” Then
strFile = “C:\cartella\” & objFile.FileName & “.” & objFile.Extension
strNewFile = “C:\cartella\” & objFile.FileName & “.doc”
Set objDoc = objWord.Documents.Open(strFile)
objDoc.SaveAs strNewFile, wdFormatDocument
objDoc.Close
End If
Next
objWord.Quit
——————-
- Praticamente basta creare un file di testo e rinominarlo “script.vbs”
- Copiare ed incollare lo script sopra evidenziato in rosso nel file “script.vbs”
- Creare una cartella (nello script c:\cartella)
- Copiare all’interno della cartella creata il file “script.vbs” e tutti i files da convertire
- Lanciare il file “script.vbs” ed aspettare la fine della conversione
Se nel computer non è presente il plugin per la conversione, lo script richiederà il download.
