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

Hi.

As an amateur, I wrote this code.
It works but it shows me an error.
If you can fix it and insert the correct code.

Code:
Sub LeaveMultiPowerclips()
Set p = ActiveDocument.ActivePowerClip.Parent
Do
If Not p Is Nothing Then ActiveDocument.ActivePowerClip.LeaveEditMode
Loop Until p Is Nothing
End Sub
Regards.

~GrzJanik

Last edited by grzjanik; 05-07-2013 at 08:46.
Reply With Quote