View Single Post
  #1  
Old 09-01-2019, 03:48
aakkaarr aakkaarr is offline
Senior Member
 
Join Date: Jan 2009
Posts: 154
Default What does the following code do

Public Sub Speeder(State As Boolean, Optional UndoTitle As String = "Makro execution")

If State Then
ActiveDocument.BeginCommandGroup UndoTitle
Optimization = True
EventsEnabled = False
ActiveDocument.SaveSettings "Speeder"
ActiveDocument.PreserveSelection = False
Else
ActiveDocument.RestoreSettings "Speeder"
EventsEnabled = True
Optimization = False
Refresh
ActiveDocument.EndCommandGroup
End If

End Sub
Reply With Quote