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

OPPO Mojokerto - Foto Bersama

Tahun 2023 menjadi tahun yang berat bagi banyak orang, termasuk bagi saya dan tim di perusahaan ini. Saat memasuki tahun ini, berbagai keputusan sulit harus diambil, dan salah satunya adalah penutupan kantor cabang di Mojokerto. Keputusan ini tidak hanya berdampak pada perusahaan, tetapi juga bagi sebagian karyawan yang harus dihadapkan pada pemberhentian.

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!

Youtube Ikmal Imani - Badminton Club OPPO Sidoarjo

Badminton Club OPPO Sidoarjo diadakan setiap Jumat pagi untuk menyediakan platform yang menyenangkan dan bermanfaat bagi para karyawan untuk berolahraga bersama. Tak hanya sekadar bermain bulu tangkis, klub ini memiliki tujuan mulia yang melampaui sekadar aktivitas fisik semata. Melalui ajang ini, karyawan OPPO tidak hanya meningkatkan kesehatan dan keseimbangan fisik, tetapi juga mempererat hubungan antaranggota dan membangun rasa persaudaraan di dalam tim.

Halo kali ini saya bikin podcast untuk edukasi para promotor oppo, disini akan saya lihatkan desain dan sekaligus semua page untuk mendengarkan podcast ini.