Word installiert / welche Version ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Word() Dim myVBEObject As Object, intIndex As Integer On Error Resume Next Set myVBEObject = Application.VBE.ActiveVBProject.References For intIndex = 8 To 15 'Version 8 bis 15 (für die Zukunft gleich vorbauen) myVBEObject.AddFromFile "MSWORD" & CStr(intIndex) & ".OLB" Next For intIndex = 1 To myVBEObject.Count If myVBEObject.Item(intIndex).Name = "Word" Then MsgBox "Word " & CStr(Val(Mid(Right(myVBEObject.Item(intIndex).FullPath, InStr(1, StrReverse(myVBEObject.Item(intIndex).FullPath), "\") - 1), 7))) & " ist installiert.", 64, "Information" Exit Sub End If Next MsgBox "Word ist nicht installiert.", 48, "Hinweis" End Sub

Hallo und Vielen Dank, dass Ihr Euch Gedanken gemacht habt.

Ich habe jetzt unter Excel/Word 97 (Win98), Excel/Word XP (Win2000) und Excel/Word2003 (WinXP) beide Makros mal getestet.

OttoH, zu deiner Version:

sie läuft bei allen Systemen fehlerfrei durch, startet aber immer zusätzlich die Anwendung Word. Das möchte ich nach Möglichkeit vermeiden.

Nepumuk, zu Deiner Version:

Excel 97 meckert beim Kompilieren in Zeile 9 StrReverse an und will dies nicht kennen. Kennst Du dafür eine Excel97-kompatible Variante?

Bei Excel 200(3) scheint mir Zeile 7 nicht richtig zu funktionieren. In der vorangegangenen For-Next-Schleife wird die Variable intIndex von 8 bis 15 hochgezählt, zählt aber dann in der nächsten For-Next-Schleife von 1 bis 7. Excel meint dann, "Word ist nicht installiert." Durch

For intIndex = 8 To myVBEObject.Count + 7

meine ich das noch in den Griff zu bekommen.

Aber ich bekomme ums Verrecken nicht die lange Messagebox angezeigt. Im Einzelschritt wird sie im Code genau dann richtig gelb unterlegt, wenn der nun passende intIndex hochgezählt ist. Bei mir wird sie nur dann tatsächlich am Bildschirm angezeigt, wenn ich deinen Code radikal verkürze, also z.B.auf

MsgBox "Word "

Genau so sieht es aus, wenn ich das Direktfenster nehme oder den Inhalt der Messagebox in eine Zelle schreiben will.

Wärst Du so nett und schaust Dir Deinen Code noch mal an? Gerade in dem Code der Messagebox vermute ich die Informationen, die ich mir vom Makro erhoffe.

Vielleicht ist es auch was ganz banales: Als Verweise habe ich nur jeweils VBA, OLE Automation und die passende Excel und Office Object Library aktiviert. Kann es daran liegen?

Eine gute Nacht aus Berlin
Roland Hochhäuser

Last but not least: VBA nur mit Rekorder stimmt nicht. Andererseits bin ich kein VBA-Profi und VBA (wirklich) gut: ? eher nicht.

Option Explicit Public Sub Word() Dim myVBEObject As Object, intIndex As Integer, intRev As Integer, strPath As String On Error Resume Next Set myVBEObject = Application.VBE.ActiveVBProject.References For intIndex = 8 To 15 'Version 8 bis 15 (für die Zukunft gleich vorbauen) myVBEObject.AddFromFile "MSWORD" & CStr(intIndex) & ".OLB" Next On Error GoTo 0 For intIndex = 1 To myVBEObject.Count If myVBEObject.Item(intIndex).Name = "Word" Then For intRev = Len(myVBEObject.Item(intIndex).FullPath) To 1 Step -1 strPath = strPath & Mid(myVBEObject.Item(intIndex).FullPath, intRev, 1) Next MsgBox "Word " & CStr(Val(Mid(Right(myVBEObject.Item(intIndex).FullPath, InStr(1, strPath, "\") - 1), 7))) & " ist installiert.", 64, "Information" Exit Sub End If Next MsgBox "Word ist nicht installiert.", 48, "Hinweis" End Sub

Hallo Roland,
um Nepumuks Codeschnitzel zu verstehen brauch ich lange Zeit *annehm*, abgesehen von der 48 bei der MsgBox die ich irgendwie als Schreibfehler einsortiere :-)
Andrerseits, auf meinem Rechner ist Word97 und Word2000, und wenn ich mich mal aufraffe (bzw. wenn ich die größere Festplatte kriege, 40GB, bin ja bescheiden) mit verschiedenen Betriebssystemen (win98, XP) zu arbeiten habe ich dann auch noch WordXP, was also bringt dir die Info welche Word-Version installiert ist? Nix, weil du weisst ja nicht welche Word-Version ich überhaupt bzw. hauptsächlich benutze.
Okay, meine Auskunft, an sich keine, da ich nur 20 Briefe im Jahr schreibe ist nicht wirklich hilfreich.
Aber, schau mal bei http://mypage.bluewin.ch/reprobst/WordFAQ/DokEigen.htm
dort steht wie man die Version herausbekommt, mit der eine .doc erstellt wurde.
Von daher mein Tipp, erst prüfen welche Word-Versionen installiert sind. Falls mehrere, dann alle *.doc's checken mit welcher Version.
Nur so als Gedanke.
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Word installiert / welche Version ?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread