| 发表于:2007-07-08 20:41:411楼 得分:0 |
还有象插入页眉等操作都要通过下面的语句来解决,但还要ole重新读取word文件,而且 一个word文件要open两次,效率低下,如何能使vba直接改变ole中word中的文件内容呢? public sub insert_header() wordapp.documents.open (filename) wordapp.activewindow.activepane.view.seekview = 1 wordapp.selection.wholestory wordapp.selection.typebackspace wordapp.selection.typetext text:=zyh wordapp.activewindow.activepane.view.seekview = 0 wordapp.selection.sections(1).footers(1).pagenumbers.add 2, true wordapp.documents.item(1).save wordapp.documents.item(1).close end sub | | |
|