View Single Post
  #2  
Old 05-07-2013, 05:46
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post LeaveMultiPowerclips

Hi.

The easiest way:

Code:
Sub LeaveMultiPowerclips()
On Error Resume Next
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
ActiveDocument.ActivePowerClip.LeaveEditMode
End Sub


Regards.

~GrzJanik
Reply With Quote