正文

VB中使用Word的“艺术字”2005-10-01 20:53:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/iamben250/5524.html

分享到:

VB中使用Word的“艺术字”
胡轶
众所周知,Word中的“艺术字”工具(WordArt)能创建出各种各样的文字,令人赏心悦目。其实在VB中也能使用“艺术字 ”!Word本身就是一个庞大的代码部件,也就是说,Word中的整个对象库是对外开放的,它允许其他应用程序对它进行编程。换 句话说,Word中的对象能被其他应用程序所调用。而“艺术字”正是Word中的一种对象,因此可以方便地在VB中调用它。要使 用“艺术字”,必须先把Word的对象库加入到程序中,然后创建一个对象变量来保持对Word应用程序对象的引用。可以用两种方 法创建对Word应用程序对象的引用,一种方法是直接声明一个Word应用程序的对象变量,例如:


Dim XYZ As New Word.Application


这种方法称为前期绑定,它速度较快;另一种方法是声明一个对象变量XYZ,然后把用CreateObject函数创建出的Wor d应用程序对象赋给XYZ,例如:


Dim XYZ As Object


Set XYZ=CreateObject("Word.Application")


这种方法称为后期绑定,它速度较慢。在创建了Word应用程序对象后,就可以以代码的方式像在Word中进行具体操作那样创建新 文档,并在文档中加入“艺术字”。


在创建好“艺术字”之后,用剪贴板将它传给窗体。在创建Word应用程序对象时,VB会在后台自动打开Word,因此,在程序结 束时,应该先关闭Word,其代码如下:


XYZ.Quit wdDoNotSaveChanges


下面用Word97为例来说明如何使用Word的“艺术字”。


(1)启动VB,选择“标准EXE”,创建一个新工程;


(2)选择“工程”菜单中的“引用”选项,显示“引用”对话框,选中"Microsoft Word 8.0 Object Library"和"Microsoft Office 8.0 Object Library"两项,单击“确定”按钮;


(3)将下列代码加入到Form1的声明部分:


Dim XYZ As New Word.Application


(4)然后将下列代码加入到Form1的Load事件中:


Private Sub Form_Load()


XYZ.Documents.Add.Select


XYZ.ActiveDocument.Shapes.AddTextEffect(0,"让VB变得更靓丽","隶书",48 #,-1,0,183.75,70.5).Select


End Sub


这里显示的字样是隶书的“让VB变得更靓丽”几个字,你可以根据自己的喜好来改变字体(如宋体、楷体等)以及改变字样;


(5)再将下列代码加入到Form1的Click事件中:


Private Sub Form_Click()


XYZ.Selection.ShapeRange.TextEffect.PresetTextEffect = Int(Rnd(1) * 30)


XYZ.Selection.ShapeRange.TextEffect.FontName = "隶书"


XYZ.Selection.Copy


Picture = Clipboard.GetData()


End Sub


(6)将下列代码加入到Form1的Unload事件中:


Private Sub Form_Unload(Cancel As Integer)


XYZ.Quit wdDoNotSaveChanges '记住要关闭Word


Set w = Nothing


End Sub


(7)在窗体上放置一个按钮,名称为CmdExit,其Caption属性为“退出”,并在它的Click事件中加入下列代码:


Private Sub CmdExit_Click()


End


End Sub


(8)按下F5运行程序后,当鼠标在窗体上单击时,会随机地显示出一种“艺术字”字形(Word中共有30种内建“艺术字”字形 ),十分有趣吧!


以上程序在VB6中文版、Win98上调试通过。

阅读(3659) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册