怎么用VBA修改word的节开始的分节符

如何用VBA修改word的节开始的分节符？
某个节的开始处的分节符是“奇数页”，如何用vba修改为“下一页”？谢谢！

又：我快没有可用分了，如何弄一些？负责以后没法发帖了。

[解决办法]
修改=删除前面的设置+添加新的设置
你记录宏，然后复制了使用就是
没分了可以注册个马甲
[解决办法]

探讨

貌似见过直接一条语句就可以修改的，忘了是如何写的了，有人知道吗？

[解决办法]
可试试如下代码（如文档少于3页则在最后一页前插入分节符）：
Selection.GoTo(wdGoToPage, wdGoToAbsolute, 3).Bookmarks("\page").Range.InsertBreak wdSectionBreakNextPage
[解决办法]
定位通过MoveRight、MoveDown来进行

修改通过如下语句，selection对象自己创建
Selection.InsertBreak Type:=wdPageBreak
[解决办法]

VB code

Selection.InsertBreak Type:=wdSectionBreakOddPage'插入奇数页Selection.TypeBackspace'退格删除Selection.InsertBreak Type:=wdPageBreak'插入分页 

 

查看更多 下一篇