如何用EXCEL的vba删除WORD的分页符

如题，我现在某个word有3个分页符，我想通过EXCEL的VBA来自动删除第2个分页符，请问用什么语句可以做到？

为什么不用Word的VBA？不过估计用Excel中vba open这个文档后也能实现。首先把打开的文档赋值成word文档（可能需要加载word的库什么的吧），然后调用word库里面看看有没有find函数。find的内容为分页符。然后当find到第二次的时候执行删除操作。

sub abc() dim app, wrddoc, mypath, myfile, bm, str mypath = "文件实际路径\*.doc" '请修改实际储存路径！ set app = createobject("word.application") '用set关键字创建word应用成序对象！ myfile = dir(mypath) ' 获得第一个word文档 do while myfile <> "" ' 遍历mypath下面的所有word文档 app.visible = true set wrddoc = app.documents.open(myfile) '打开这个word文件！ for each bm in wrddoc.bookmarks ' 遍历文档中的所有书签 str = bm.range ' 读取书签内容 next bm wrddoc.close ' 关闭文件 myfile = dir ' 下一个word文档 loop set app = nothing end sub