Hallo Moritz,
normalerweise sind die Seiten von Dannenhöfer schon mal nicht schlecht, aber in diesem Falle helfen sie nicht wirklich weiter. Denn das verlinkte Beispielmakro gibt ja nur eine 2-stellige Zahl aus. Und außerdem geht es auch extrem kürzer, bei einer 3-stelligen Zahl.
Das Ergebnis ist dann ein String in der Art von z.B.:
330
Dann gibts noch eine Versionsnummer ausgabe mit diesem Code.
Das könnte dann z.B. so aussehen:
330$9567
Beide Code Beispiele helfen dir aber nicht wirklich weiter um zu erfahren welches Office verwendet wird. Das könntest Du auf Basis des folgenden Code erfahren.
Code: Alles auswählen
sub versi
print ThisComponent.getDocumentInfo.DocumentProperties.Generator
end sub
Das Ergebnis könnte dann z.B. bei OOo so aussehen:
OpenOffice.org/3.3$Win32 OpenOffice.org_project/330m20$Build-9567
Und bei LO:
LibreOffice/3.3$Win32 LibreOffice_project/330m19$Build-401
Wie unschwer zu erkennen ist, habe ich das mit OOo 3.3.0 und LO 3.3.0 getestet. Ich habe wohl auch noch andere OOo/LO/AOO-Office, aber die beiden genannten sind momentan als einzige mit xray ausgestattet. Ob Du ein verwertbares Ergebnis in den xxx-4.x.x Versionen bekommst, kann ich dir nicht sagen, da ich diese nicht habe.
Deshalb such hier im Forum mal nach den nützlichen Tools; xray oder mri.
Du könntest dann ja wie folgt vorgehen, um dein Ziel zu erreichen.
1.
Mit GetSolarVersion die Versionsnummer auslesen, und verarbeiten.
2.
Mit dem letzt zitierten Code und ein paar Funktionen zur Stringverarbeitung, das verwendete Office auslesen.
Gruß
balu