vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Word-Makro unterbrechen und an gleicher Stelle wieder fortsetzen 
Autor: tamaleus
Datum: 13.04.11 17:22
Hallo allerseits!

Hoffe, bin hier richtig und habe nichts übersehen.

Ich habe ein schon recht komplexes VBA-Word-Makro, welches nacheinander die sieben Dateien einer Woche - für jeden Tag eine - öffnet, gewisse Bearbeitungen ausführt und dann wieder speichert.

Nun soll aber der User noch die Möglichkeit haben, nachdem alles, was automatisch machbar ist, ausgeführt wurde, noch manuelle Aenderungen/Anpassungen an den aufgerufenen Textdateien vornehmen können. Mit folgendem Code wird eine Schleife ausgeführt, die zum Fortsetzen auf das Drücken der ESC-Taste wartet. Nämlich dann, wenn der User mit seinen Eingaben fertig ist. Dann soll eben diese Datei gespeichert und die nächste von insgesamt 7 aufgerufen werden.

Eigentlich klapp das auch, bis auf den Umstand, dass der Cursor und die Einfügemarke nicht normal funktionieren, bzw. teilweise gar nicht mehr sichtbar sind.

Was ich bisher habe, sieht so aus: 

Sub WarteAufEscapeTaste()
    bolESCTaste = ESCTaste()
    While Not bolESCTaste
        DoEvents    ' Das System andere Events/Tasks ausführen lassen
        bolESCTaste = ESCTaste()
    Wend
    If bolESCTaste Then
        ' Hier die Verarbeitung sauber abschliessen
        DoEvents
    End If
End Sub
sowie 

Function ESCTaste() As Boolean
    Dim intAKS As Integer
    intAKS = GetAsyncKeyState(VK_ESCAPE)
    ESCTaste = (intAKS And 2 ^ 16)
End Function
Ich habe es auch schon mit anderen Tasten als ESC, z.B. BREAK oder F12 versucht, leider immer mit dem gleichen Ergebnis, dass Cursor und/oder Einfügemarke spinnen und nicht erwartungsgemäss reagieren.

Besten Dank im Voraus für jeglichen Input!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Word-Makro unterbrechen und an gleicher Stelle wieder fortse...1.747tamaleus13.04.11 17:22
Re: Word-Makro unterbrechen und an gleicher Stelle wieder fo...969Blackbox14.04.11 22:49
Re: Word-Makro unterbrechen und an gleicher Stelle wieder fo...954tamaleus15.04.11 18:15
Re: Word-Makro unterbrechen und an gleicher Stelle wieder fo...1.009Franki17.04.11 05:29

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel