VB6.0+WPS做艺术字

以下摘自一篇论文，VB6.0+word做艺术字，因装WPS，有几处不详，望网友写正，

 

Dim w As New WPS.Application    '可以？
'dim w as object
'set w=createobject("WPS.Application")
Private Sub Form_Click()
w.Selection.ShapeRange.TextEffect.PresetTextEffect = Int(Rnd(i) * 30)
w.Selection.ShapeRange.TextEffect.FontName = "隶书"
w.Selection.Copy              ’调试通不过
Picture = Clipboard.GetData()  '剪贴板怎做?
End Sub

Private Sub Form_Load()
w.Documents.Add.Select
w.ActiveDocument.Shapes.AddTextEffect(0, "美术字", "隶书", 48#, -1, 0, 183.75, 70.5).Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
w.Quit wdDoNotSaveChanges
Set w = Nothing
End Sub