[Megoldva] batch convert *.doc to *.docx

Hogyan konvertáljunk át egyszerre több fájlt *.doc formátumból *.docx formátumba?
A mobilomon a docx formátumokat szeretem tárolni (6120), ezért kellett, hogy az összes másoktól kapott doc fájlokat át tudjam konvertálni.

A megoldás egyszerű. Kell írni rá egy makrót, és kész.
De mire megtaláltam a megoldást, lement a nap. Úgyhogy gondoltam felteszem ide. Jobb helyet nem találtam neki. :)

Az angol leírás, ami alapján csináltam, docx-ot alakít át doc fájllá.:
http://www.maxhire.net/robo/Projects/MaxHire%20Knowledge%20Base/Files_a…

Kapcsold be az Office 2007 beállításokban (a "Népszerű elemek" fülön) a Fejlesztőeszközöket, ez után a Fejlesztőeszközök eszköztárnál hozd létre az alábbi makró kódot, és futtasd le.
Az sPath után megadott könyvtárban lévő összes doc fájlt átkonvertálja docx-á. :)

     A makró kód:

       Sub conv()

       sPath = "C:\Temp\"

       sFile = Dir(sPath & "*.doc")

       While sFile <> ""

       With Documents.Open(sPath & sFile)

       .SaveAs FileName:=sPath & Replace(sFile, "doc", "docx"), FileFormat:=wdFormatDOCX

       .Close

       End With

       sFile = Dir

       Wend

       End Sub

Office 2007-en kívül nem tudom hogy lehet megoldani. De elképzelhetőnek tartom, hogy ha régebbi Office verziókhoz telepítjük az Office 2007 kompatibilitási csomagot, akkor ez a makró ugyanúgy használható.