Någon därute som ver hur man kan kontrollera vilken version av Office som finns installerad på en PC?

Jag vill veta om jag ska köra:
Set WordApp = CreateObject("Word.Application.10") ' Word 2002

eller

Set WordApp = CreateObject("Word.Application.11") ' Word 2003

/Rickard

Kan du inte strunta i versionen?

Det här funkar för mig:
Set WordApp = CreateObject("Word.Application")

Du skulle ju kunna söka i registret i nyckeln HKEY_CLASSES_ROOT\Word.Application\CurVer och se i (Default)-värdet vad som finns angivet som gällande Word-version.

Tack för förslagen!

Jag lyckades dock lösa det genom att testa att köra olika versioner. Strunta i felet som uppstår om versionen inte finns och köra vidare och testa nästa version.

Inte den snyggaste lösningen men är det brottom så är det :)
Jag lär nog få ändra i framtiden när versione av office används som jag inte täckte in i koden.

/Rickard

I så fall kan du väl fortsätta med din "fullösning" också:
<code>
For i = 20 To 1 Step -1
Set WordApp = CreateObject("Word.Application." & i)
'ta hand om eventuellt fel, blir det inget fel så ska loopen stoppas
Next
</code>

Då får du med framtida versioner, så länge namnet följer mönstret. Dessutom startas den senaste versionen som är installerad.


Thomas