如何用VBA修改word的节开始的分节符？

Question

某个节的开始处的分节符是“奇数页”，如何用vba修改为“下一页”？谢谢！又：我快没有可用分了，如何弄一些？负责以后没法发帖了。

Answer 1

你说的一句的前提应该是光标定位到并选择了这个分节符，然后通过selection直接修改为下一页的

Answer 2

可试试如下代码（如文档少于3页则在最后一页前插入分节符）：
Selection.GoTo(wdGoToPage, wdGoToAbsolute, 3).Books("\page").Range.InsertBreak wdSectionBreakNextPage

Answer 3

谢谢dingyanwei、lsh6688的回复dingyanwei兄：光标定位这个分节符后，如何通过selection修改，有示例语句么？lsh6688兄：你的代码是插入一个新的下一页分节符，我需要的是把现有的奇数页分节符改成下一页分节符，有办法吗？谢谢！

Answer 4

定位通过MoveRight、MoveDown来进行修改通过如下语句，selection对象自己创建
Selection.InsertBreak Type:=wdPageBreak

Answer 5

谢谢dingyanwei兄再次回复，可能是我没说清楚：我现在是已经在文件中插入了一个奇数页分节符，希望把这个已有的分节符改成下一页分节符。你上面的代码是新插入一个分节符。不是我所需要的。除了删除旧分节符再重新插入外，还有办法吗？再次感谢！

Answer 6

Selection.InsertBreak Type:=wdSectionBreakOddPage'插入奇数页
Selection.TypeBackspace'退格删除
Selection.InsertBreak Type:=wdPageBreak'插入分页首先应该定位光标的位置