Przeczytaj historię cofania w języku VBA

Question

Mam dość prosty VBA w programie Word 2003, który zmienia czcionkę dokumentu na "eko czcionki" (długa historia) i wyświetla okno dialogowe Drukuj.

Gdy użytkownik uderza Anuluj lub OK, kod wykonuje "cofnij", aby przywrócić zmianę.

Problem polega na tym, że czasami po naciśnięciu przycisku "OK", aby wydrukować dokument, należy anulować dwie czynności: "zmiana czcionki" i "zaktualizuj pola". Nie mogę przewidzieć, kiedy to nastąpi.

Czy istnieje sposób na odczytanie ostatniego elementu z bufora cofania Worda? W ten sposób mogę po prostu naciskać Cofnij, aż zmiana czcionki zostanie zakończona.

Edit: kod końcowy (wycięte):

ActiveDocument.Range.Bookmarks.Add ("_tempEcoUndoStart_") 
ActiveDocument.Content.Font.Name = "Nanonymus Eco Sans" 
Dialogs(wdDialogFilePrint).Show 
While ActiveDocument.Bookmarks.Exists("_tempEcoUndoStart_") 
    ActiveDocument.Undo 
Wend 

Answer 1

Można użyć trick mieć „transactional'-jak cofanie się w słowo: na początku makro miejscu specjalny zakładek na całym dokumencie. Powinieneś usunąć tę zakładkę ponownie, gdy skończysz z makrem. Teraz, wywołując polecenie Cofnij, powtórz cofanie, gdy w dokumencie znajduje się specjalna zakładka.

Poniższy pokrewne pytanie ma szczegółów:

Can I create an undo transaction in Word or Excel? (VSTO)

Answer 2

nie testowałem, ale być może można użyć UndoClear przed swoimi działaniami, a także liczyć na cofanie po?

ActiveDocument.UndoClear 
ActiveDocument.Undo 2