Office: Makro funktioniert nicht auf allen Rechnern

Hallo zusammen,
in einem Word-Dokument sind Makros. Mit dem ersten Button lässt sich eine webseite öffnen, der zweite verschickt das ausgefüllte Dokument an eine bestimmte E-Mail-Adresse und der dritte schließt das Dokument.

Leider funktioniert das Makro nicht auf allen Rechnern. Als ich es vor ca. 6 Wochen geschrieben habe, war alles in Ordnung. Nach dem ersten Aufruf in diesem Jahr waren alle Buttons tot.

Zu Hause oder bei den meisten meiner Kollegen (267) funktioniert es. Wir haben alle WIN7 mit Office2010 installiert. In den Makrosicherheitseinstellungen sieht man nichts Verdächtiges.

Am Code kanns ja wohl nicht liegen, sonst würde er nirgends funktionieren. Trotzdem hier zur Sicherheit der gesamte Code:
------------------------------------------------------------------------------------
Private Sub CommandButtonExit_Click()
Me.Close (Word.WdSaveOptions.wdDoNotSaveChanges)
End Sub

Private Sub URL_Button_Click()
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "http://intranet/adresse.pdf"
End Sub
Private Sub CommandButton1_Click()
AktivesDokumentAlsAnhang
End Sub
Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
On Error Resume Next
Set olapp = GetObject(, "Outlook.Application")
If olapp Is Nothing Then
Set olapp = CreateObject("Outlook.Application")
End If
With olapp.CreateItem(0)
.To = "E-mail@adresse.de"
.Subject = "Meldung Reinigungsmängel"
.Attachments.Add aws
.Display
End With
Set olapp = Nothing
End Sub
------------------------------------------------------------------------------------

Wer hateine Idee, weshalb auf einigen Rechnern die Makros nicht laufen? Vielen Dank für Eure Mühe.

Schöne Grüße
sipo21

 

Hallo,

kann es sein, dass es sich bei den Buttons um ActiveX-Buttons und nicht um Formular-Buttons handelt und dass Office-Updates von Microsoft installiert wurden?

Falls dies zutrifft, dann hilft Folgendes möglicherweise (zumindest schadet es nicht):
1) Im Windows-Explorer auf das lokale Laufwerk des betreffenden PCs klicken
2) Nach allen Dateien mit der Dateierweiterung "*.exd" suchen lassen:
3) Sobald alle gefunden wurden, alle diese Dateien löschen.

Bei uns trat dasselbe Phänomen auf (quasi als vorweihnachtliches Geschenk von Microsoft). Da waren nicht bloß Buttons aus Word, sondern natürlich auch aus Excel betroffen. Nach dem Löschen dieser *.exd-Dateien vom lokalen Laufwerk funktionierten wieder alle einwandfrei.

Diese *.exd-Dateien werden in der Regel pro User und ActiveX-Objektklasse erzeugt - und zwar werden sie automatisch erzeugt, falls sie noch nicht existieren. Falls nämlich zum Zeitpunkt des Office-Updates diese Dateien existierten, gab es offenbar einen Konflikt zwischen den neuen Versionen der ActiveX-Controls und der alten Version der dazugehörigen *.exd-Datei. Entfernt man diese *.exd-Dateien alle, ist Office gezwungen, bei der hernach erstmaligen Verwendung dieser Controls wieder eine neue (und diesmal kompatible) *.exd-Datei zu erzeugen. Dies geschieht automatisch im Hintergrund. Man merkt das nur, indem man nach ihnen sucht und wieder welche vorhanden sind.

(Anmerkung: Vorsicht ist insofern geboten, falls jemand auf die glorreiche Idee gekommen wäre, selber Dateien mit der Dateierweiterung ".exd" abzuspeichern. - Deshalb zuerst alle diese Dateien suchen lassen und dann erst alle einschlägigen mit ActiveX-Controls und Forms zusammenhängenden *.exd-Dateien löschen. Da es userabhängige Dateien sind, stehen sie auch in der Regel in Verzeichnissen, die zu den User-Profilen gehören.)