Word 2002-VBA funktioniert nicht in word 2007

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

 

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

 

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)

 

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.

 

Ohne Pause geht's auf meinem gar nicht.

 

Bei mir geht es ohne, aber ich hab ja auch 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.

 

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

 

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

 

Code:

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

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("C:\Windows\System32\calc.exe", 1)

'Sicherstellen dass der Calculator den Fokus hat
Sleep 1000
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

 

Der Start der Prozedur erzeugt den Hinweis:

Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen.


Prozedur:

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
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("C:\Windows\System32\calc.exe", 1)

'Sicherstellen dass der Calculator den Fokus hat
Sleep 1000
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

 

Der Start der Prozedur erzeugt den Hinweis:

Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen.

Dieser Hinweis bezieht sich wohl auf die vorangehende Prozedur.
Markiert ist : 'Private Declare ...'

Prozedur:

Sub ...

End Sub

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

__________________________________________________________

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("C:\Windows\System32\calc.exe", 1)

'Sicherstellen dass der Calculator den Fokus hat
Sleep 1000
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

 

Der Vergleich meiner Prozedur mit der Auflistung in der Bilddatei ergibt völlige Übereinstimmung. Es bleibt bei der Fehlernachricht.

 

Hallo!

Darf man fragen was das für einen Sinn haben soll?

Nutze doch eine Userform anstelle des Taschenrechners. Da kannst Du dann innerhalb von Word mit Sendkeys arbeiten und musst nicht auf den Taschenrechner warten.

Du kannst auch VBA rechnen lassen und dann das Ergebnis in einer MsgBox ausgeben lassen. Den Taschenrechner benötigst Du eigentlich gar nicht. Da Du die Eingaben ohnehin per SendKeys an den Taschrechner schickst, kannst Du das Rechnen auch gleich VBA überlassen. Wichtig dabei ist, dass Du die Variablen korrekt deklarierst. Zahlen zum Rechnen sollten immer Double sein. Für jede Variable eine eigene Zeile.

Kleines Beispiel:

-----------------------------------------------------------------------------------------
Sub CalcTest()
Dim strvalue As Double

strvalue = 12 * 34 / 6
MsgBox strvalue
End Sub
-----------------------------------------------------------------------------------------

Gruß, René

 

Hier Dein Makro als VBA-Variante. Vorteil dabei ist, dass Du das Ergebnis weiterverarbeiten kannst.

-------------------------------------------------------
Sub Calculator()
Dim i As Integer
Dim strValue As Double

strValue = 0

For i = 1 To 100
strValue = strValue + i
Next i

MsgBox strValue

End Sub
-------------------------------------------------------

 

Hallo an alle Helfer,

mein Problem bestand in der Frage, warum eine WORD2000-VBA-Prozedur nicht in WORD 2007 läuft.

die Ursache hat Falcon37 auf den Punkt gebracht:

------------------
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)

-----------------

Den Vorschlag habe ich nicht zum Laufen gebracht,
das Problem ist jedoch mit folgender Maßnahme gelöst:

For I=1 to 50000
Next I

Das gibt Windows die Zeit, das aufgerufene Programm zu starten.

Dank an alle
Hajo