Cara cepat Convert semua Text atau Tulisan di Semua Halaman CorelDraw

Tempo hari saya pernah share artikel tentang Cara Cepat Seleksi Tulisan, Objek, Guidlines dan Node di CorelDraw yang memungkinkan memilih text dalam 1 halaman sekaligus, tapi bagaimana jika kasusnya anda mempunyai banyak halaman yang berisi text di corelDraw ingin anda Convert untuk kepentingan di cetak atau agar tulisannya tidak mudah di jiplak orang lain maka harus anda Convert satu halaman per halaman dan tidak sekaligus.  Berikut ini ada solusinya dengan macro untuk Convert text sekaligus otomatis di semua halaman CorelDraw:

Berikut ini Kodenya untuk Semua Versi CorelDraw 11 s.d CorelDraw X7:

Private Sub ConvertGayaLama()

Dim p As Page, s As Shape, sr As ShapeRange

For Each p In ActiveDocument.Pages
    p.Activate
    Set sr = ActivePage.Shapes.FindShapes(, cdrTextShape)
    For Each s In sr
        s.ConvertToCurves
    Next s
Next p

End Sub

Sedangkan untuk proses pencarian text lebih cepat bisa menggunakan kode di bawah ini (Untuk CorelDraw X3 ke Atas):

Private Sub convertAllToCurvesCQL()
Dim p As Page

For Each p In ActiveDocument.Pages
p.Activate
ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'").ConvertToCurves
'ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'").ConvertToCurves
Next p

End Sub

Kode asli dari : http://community.coreldraw.com/talk/coreldraw_x3_and_older/f/18/t/24802?pi1364=3

Hilangkan tanda petik di depan code merah jika ingin convert text tipe paragraph juga.

Cara penggunaanya adalah klik menu Tools-Macros-Macro Editor... kemudian Cari GlobalMacros di projek Explorer dan Klik 2x pada Module GlobalMacros kemudian masukan kode di atas.

Kemudian Run untuk menjalankannya, atau anda bisa menggunakan Shorcut seperti pada Menambahkan Shorcut Baru pada CorelDraw

Demikian tutorial Convert semua Tulisan di Semua Halaman CorelDraw otomatis menggunakan Macro.

Cara cepat Convert semua Text atau Tulisan di Semua Halaman CorelDraw 2014-12-05T14:00:00-08:00 Rating: 4.5 Diposkan Oleh: Unknown