vb6中word编程总结

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 a_cer 的 blog

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当中

本文关键:vb6中word编程总结
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top