问一个操作word的问题

tz-chf

目的是：循环记录集，生成word文档（象邮件合并差不多），各记录用分页符分页。

Set appWord = New Word.Application
    Set docWord = appWord.Documents.Add(strdoc)     '打开文档
   
    docWord.Content.Collapse Direction:=wdCollapseEnd    '到文档最后
    docWord.Content.InsertBreak Type:=wdPageBreak       '插入分页符
    docWord.Content.WholeStory          '全选
    docWord.Content.Cut          '剪切
    docWord.Content.PasteAndFormat wdPasteDefault       '粘贴,就这一步没反应,应该怎么写法

[ 本帖最后由 tz-chf 于 2008-5-5 12:36 编辑 ]

goto2008

帮大哥顶一下