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函數