{"id":1354,"date":"2011-09-22T19:19:18","date_gmt":"2011-09-22T09:19:18","guid":{"rendered":"https:\/\/docassist.com.au\/?p=1354"},"modified":"2019-07-01T18:02:17","modified_gmt":"2019-07-01T08:02:17","slug":"undoing-in-bulk","status":"publish","type":"post","link":"https:\/\/docassist.com.au\/undoing-in-bulk\/","title":{"rendered":"Undoing in bulk"},"content":{"rendered":"

One of my fave features in Word 2010 is the new custom undo records. It allows you to group your changes via code into blocks that can be undone in a single go – plus you can name the records.<\/p>\n

Take the following sub:<\/p>\n

Sub InsertSomeText()
\nSelection.TypeText “This is a test”
\nSelection.TypeParagraph
\nSelection.TypeText “This is some more text”
\nEnd Sub<\/span><\/p>\n

If you ran this sub, and then went to the undo option, you’d see the 3 entries for each line of code that changed the document.<\/p>\n

 <\/p>\n

\"\"<\/p>\n

Now, here’s the same sub using a custom undo record.<\/p>\n

Sub InsertSomeText()
\nDim myUndoRecord As UndoRecord
\nSet myUndoRecord = Application.UndoRecord
\nmyUndoRecord.StartCustomRecord (“My text insert to undo”)
\nSelection.TypeText “This is a test”
\nSelection.TypeParagraph
\nSelection.TypeText “This is some more text”
\nmyUndoRecord.EndCustomRecord
\nEnd Sub<\/span><\/p>\n

And after running that code, here’s what the undo options look like.<\/p>\n

 <\/p>\n

\"\"<\/p>\n

Nice!<\/p>\n

You can also do nested undo records if you like, not that I’ve had a real need for them yet. But I may do very soon as I’m just about to do some work where I need to audit changes and have multiple levels of rolling back. Fingers crossed I’ll be able to do it all with nested undo records.<\/p>\n

Maybe I should dig out my old Weezer CDs and listen to “Undone – The Sweater Song” when I’m working on that code! Ah, what a great song. I won’t get much coding done with Weezer belting out…<\/p>\n","protected":false},"excerpt":{"rendered":"

One of my fave features in Word 2010 is the new custom undo records. It allows you to group your changes via code into blocks that can be undone in a single go – plus you can name the records. Take the following sub: Sub InsertSomeText() Selection.TypeText “This is a test” Selection.TypeParagraph Selection.TypeText “This is […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[28,1],"tags":[],"_links":{"self":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1354"}],"collection":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/comments?post=1354"}],"version-history":[{"count":1,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1354\/revisions"}],"predecessor-version":[{"id":1357,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1354\/revisions\/1357"}],"wp:attachment":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/media?parent=1354"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/categories?post=1354"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/tags?post=1354"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}