GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

cool vba macros for corel show cart gdg corel draw macros checkout corel macros
VBA Corel Macro Help
john's macros
thanks for stopping by gdg macros















Helpful VBA Code

Order a commercial macro ONLY if you have intermediate professional experience with CorelDraw and macros, no beginners! Try the FREE macros here, and see my help pages to learn. Clients agree to all terms and conditions when buying commercial macros or free macros. No refunds. No exchanges.
Macros DO NOT function in the Home & Student Edition or Pirated Versions of CorelDraw! WINDOWS OS ONLY!
All of the 2020 macros are up.(4-30-2020)

Join me on Facebook to stay up to date with news, updates. Subscribe to my YouTube Channel for tutorial videos and tips. Need a custom macro? Contact me.
Not all macros are guaranteed to be continued due to compatibility reasons or other. Read new-version policy here.
I appreciate everyone! Upgrading macros and maintaining this site is quite a task for me. Want to contribute? Please DONATE
^ Hide these messages to save screen space ^

<<Back to helpful code list

Set all opens paths to closed

Decription: This code will set all shapes paths open property to closed. Essentially closing any open curves on all shapes in all pages of the doument.

Date: 2010-05-04 Author: John

Code:
Option Explicit

Sub closeThePaths()
    Dim i As Integer
    Dim p As Page
    Dim s As Shape, s1 As Shape
    Dim sr As ShapeRange
    Dim sr2 As New ShapeRange
    
    For Each p In ActiveDocument.Pages
        p.Activate
        Set sr = ActivePage.Shapes.All.BreakApartEx
        'Set sr = ActiveSelectionRange.BreakApartEx
        ActivePage.Shapes.All.UngroupAll
         For Each s In sr
             Set sr2 = s.BreakApartEx
             For Each s1 In sr2
                If s1.Curve.Closed = False Then
                    s1.Curve.Closed = True
                End If
             Next s1
             sr2.Combine
         Next s
    Next p
End Sub


corel macros boost workflow
*Searches the FREE and Commercial Macros


CorelDraw macros for version 2020

CorelDraw macros for version 2019

CorelDraw macros for version 2018

CorelDraw macros for version 2017

macros for coreldraw x8

macros for coreldraw x7

macros for corel draw x6

macros for corel draw x6

FIND IT ON

find it on yahoo

FIND IT ON

find it on google