Sub TextToCurves()
Dim srQ As ShapeRange, sr As ShapeRange, sr2 As ShapeRange, sh As Shape, _
i&, curP As Page, bAll%, bDigPClip%
On Error Resume Next
If ActiveDocument Is Nothing Then Exit Sub
Set curP = ActiveLayer.Page
Set sr = New ShapeRange: Set sr2 = New ShapeRange: Set srQ = New ShapeRange
bAll = (ActiveSelectionRange.Count = 0)
bDigPClip = (VersionMajor > 11)
For i = 1 To ActiveDocument.Pages.Count
With ActiveDocument.Pages(i)
If bAll Or .Index = curP.Index Then
If bDigPClip Then
If bAll Then sr.AddRange .FindShapes _
Else: sr.AddRange ActiveSelection.Shapes.FindShapes
Do
For Each sh In sr
If sh.Type = cdrTextShape Then srQ.Add sh
If Not sh.PowerClip Is Nothing Then sr2.AddRange sh.PowerClip.Shapes.FindShapes
Next
sr.RemoveAll: sr.AddRange sr2: sr2.RemoveAll
Loop Until sr.Count = 0
Else
If bAll Then srQ.AddRange .FindShapes(, cdrTextShape, True) _
Else: srQ.AddRange ActiveSelection.Shapes.FindShapes(, cdrTextShape, True)
End If
End If
End With
Next


srQ.CreateSelection
num = (srQ.Count)

If num = 1 Then
srQ.ConvertToCurves
MsgBox (num & " Objeto de texto convertido a Curvas") '& vbTab &
srQ.AddToSelection

ElseIf num > 1 Then
srQ.ConvertToCurves
MsgBox (num & " Objetos de texto convertidos a Curvas") '& vbTab &
srQ.AddToSelection

Else
MsgBox ("No se encontró ningún objeto de texto en la selección o el Documento"), vbInformation '& vbTab &
End If





'srQ.CreateSelection 'JRM 2014

End Sub

Youtube Ikmal Imani - Cara Bikin Undangan Digital Website di Canva, Bisa Klik Google Maps

Hai pembaca setia blogspot kami! Kali ini, kami hadir dengan informasi menarik seputar cara membuat undangan digital secara gratis dan efisien dengan bantuan Canva, platform desain yang populer dan mudah digunakan. Siapa yang tidak suka momen-momen spesial dalam hidup, seperti pernikahan, ulang tahun, atau pesta lainnya? Nah, untuk memastikan momen-momen tersebut berjalan dengan sempurna, langkah awal yang paling penting adalah membuat undangan yang menarik dan mengundang perhatian para tamu. Oleh karena itu, kami akan memandu Anda bagaimana Canva dapat menjadi solusi andal untuk menciptakan undangan digital yang kreatif dan unik!

Halo rekan - rekan desainer, semenjak 2018 saya selalu membagikan template kalender vektor gratis dan lengkap untuk kebutuhan percetakan temen2. kali ini saya akan membagikan template coreldraw kalender 2022. disini saya ada bermacam template kalender yang tersedia, ada yang lengkap dengan tanggal masehi, hijriah, dll. Dan ada juga yang kosongan. Semoga bermanfaat untuk usaha kamu.