使用Word的“艺术字”工具

“声明”选项中：
　　Dim w As New Word.Application
　　(4)将下列代码加入到Form1的Load事件中：
　　Private Sub Form_Load()
　　 w.Documents.Add.Select
　　 w.ActiveDocument.Shapes.AddTextEffect(0,"艺术字","隶书",48#,-1,0,183.75,70.5).Select
　End Sub
　　这里显示的字样是隶书的“艺术字”三个字，你可以根据自己的喜好来改变字体（如宋体、楷体等）以及改变字样；
　　(5)将下列代码加入到Form1的Click事件中：
　　Private Sub Form_Click()
　　 w.Selection.ShapeRange.TextEffect.PresetTextEffect = Int(Rnd(1) * 30)
　　 w.Selection.ShapeRange.TextEffect.FontName = "隶书"
　　 w.Selection.Copy
　　 Picture = Clipboard.GetData()
　　End Sub
　(6)将下列代码加入到Form1的Unload事件中：
　　Private Sub Form_Unload(Cancel As Integer)
　　 w.Quit wdDoNotSaveChanges
　　 Set w = Nothing
　　End Sub
　　(7)在窗体上放置一个按钮，其Caption属性为"Exit"，并在它的Click事件中处理退出：
　　Private Sub Command1_Click()
　　 End
　　End Sub
　　(8)运行程序后，当鼠标在窗体上单击时，会随机地显示出一种“艺术字”字型（Word中共有30种内建“艺术字”字型），下图分别给出了隶书与宋体两种不同字体的字样为“艺术字”的几种情形。
　　　同样，由这个实例可以举一反三，即我们也可以在VB中使用Excel的图表、PowerPoint的幻灯片，因为Office 97中的产品都是代码部件，这些产品中的对象库都是可以被其他应用程序调用的，所以只要了解这些对象的外部接口（属性、方法和事件），就可以方便地调用这些对象了。 

关键词：运用Word的“艺术字”工具