What does the following code do - OberonPlace.com Forums

09-01-2019, 04:48

aakkaarr

Senior Member

Join Date: Jan 2009

Posts: 164

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

« Previous Thread | Next Thread »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is Off Forum Rules

Forum Jump

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
cdrTwoColorPattern by code	brujitacastiza	Macros/Add-ons	2	08-03-2012 09:38
[useful code]	wOxxOm	CorelDRAW/Corel DESIGNER VBA	0	19-12-2007 16:00
[useful code] sortDelimitedText	wOxxOm	CorelDRAW/Corel DESIGNER VBA	0	19-12-2007 15:51
v11 code in v13	diwin	CorelDRAW/Corel DESIGNER VBA	5	26-06-2007 19:43
Why does this code run so slow?	Webster	CorelDRAW/Corel DESIGNER VBA	3	20-03-2007 06:18

All times are GMT -5. The time now is 05:25.