读书人

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

发布时间: 2012-01-16 23:36:51 作者: rapoo

如何用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'插入分页 

读书人网 >VB

热点推荐