vb6中word编程总结

2024-07-21 02:20:59

字体：大中小

来源：转载

供稿：网友

1，在project/references 中加入microsoft word 9.0 object library

2, 启动word
dim wapp as word.application
set wapp = new word.application
wapp.visible = true
关闭word
wapp.quit
set wapp = nothing

3, 打开文件
set wdoc = documents.add （新建）
activedocument.saveas text1.text （保存）
set wdoc = documents.open(filename:=text1.text) （打开指定文件）

以上的documents 和 activedocument 均是word object 中的已实例化了的对象，即不用set obj=new obj即可以使用的对象. 就像vb中的app、debug、err等对象，
文件打开之后，获取光标所在位置myselection即可给文件添加各种数据（文本，图像，表格等等，）

4，插入文本

dim myselection as word.selection
set myselection = documents.application.selection
'注意上面的这两行代码，只要有这两行代码，就可以使用所有的word中的宏操作。以下的代码就是从宏中拷过来的。
with myselection
.insertafter text1.text & vbcrlf
.font.name = "楷体_gb2312"
.font.size = 16
.paragraphformat.alignment = 1
end with
'这里有必要提到宏（macro）在word编程的重要性，几乎所有的word操作，只要你能够通过word可以实现，就可以编程实现

5，插入图像
documents.application.selection.inlineshapes.addpicture text1.text

6，插入表格
因为excel中处理表格的能力要比word的处理能力要强，所以可以在excel中生成了表格之后再复制到word当中

上一篇：VB: 制作下雪的特技景象

下一篇：VB中重要的DoEvents函数