Word 2002-VBA funktioniert nicht in word 2007

[hajo]

Hallo,

die folgende Prozedur funktioniert unter WORD 2002 einwandfrei, unter WORD 2007 erscheint der

Laufzeitfehler '5' :
Ungültiger Prozeduraufruf oder ungültiges Argument.

Der Debugger zeigt auf 'AppActivate appID'.

Hilft jemand einem Unwissenden?

Danke
hajo


Sub Calculator()
'
' Calculator Makro
' Makro aufgezeichnet am 25.01.2012 von
'
Dim Ergebnis, I

'Starten des Windows-Calculators und Auffangen der Applikation-ID
appID = Shell("CALC.EXE", 1)

'Sicherstellen dass der Calculator den Fokus hat
AppActivate appID

'berechnen der Summe der Zahlen von 1 bis 100
For I = 1 To 99
'send keys to add the values of I
SendKeys I & "{+}", True
Next I
SendKeys ("100"), True
SendKeys "=", True
'MsgBox als Pause-Ersatz
MsgBox "Arbeit beendet, Calculator wird ohne Ergebnis-Speicherung geschlossen"
' Calculator beenden mit F4
' SendKeys String:="%{F4}", Wait:=True
End Sub

[chipchap]

Bei mir funktioniert das Makro einwandfrei (Word 2007 Home).
Hast Du die Makros in Word 2007 aktiviert?

[Falcon37]

Der Grund ist ein anderer weshalb es nicht funktioniert:
Der Aufruf Appactivate kommt bevor der Rechner überhaupt gestartet ist.

So geht's:

Sleep 1000
AppActivate (appid)

Sleep geht aber nur wenn man vorher das eingefügt hat:

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

[chipchap]

... Der Aufruf Appactivate kommt bevor der Rechner überhaupt gestartet ist.

Kommt wohl auf die Geschwindigkeit des PCs an.
Mit Sleep ist es sicherer.
Bei sehr langsamen PC müßte man da wohl auch noch etwas länger schlafen.

[Falcon37]

Kommt wohl auf die Geschwindigkeit des PCs an.

Ohne Pause geht's auf meinem gar nicht.

[chipchap]

Ohne Pause geht's auf meinem gar nicht.

Bei mir geht es ohne, aber ich hab ja auch einen 5 Jahre alten Q6700.

[Falcon37]

... einen 5 Jahre alten Q6700.

Siehst du, mit dem Teil kannst du hier keinen vernünftigen Support mehr leisten.
Du musst dringend aufrüsten, sonst findest du dich in Kürze auf dem Abstellgleis wieder.

[chipchap]

... Du musst dringend aufrüsten, sonst findest du dich in Kürze auf dem Abstellgleis wieder.

Tja, Alteisen bin ich ja schon lange.
Aber alt ist wie jung, nur besser.

[hajo]

Hallo Falcon37,

würdest Du bitte für einen Unwissenden Deine Zusätze richtig in meine Prozedur platzieren?

Trotz mehrerer Versuche mit der Syntax gibt es nur Fehlermeldungen.

Danke
Hajo