vb操作word遇到页面的问题！

[lovessll]

我现在用vb操作word，第一页是封面。我封面做完后怎么跳转到第二页生成内容。
这是我的封面代码：
Sub Cover()
Set orange = ActiveDocument.Range(Start:=0, End:=0)
With orange
.InsertAfter Text:=Text1.Text
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

.InsertParagraphAfter
.Font.Name = 宋体
.Font.Size = 24
End With
End Sub
Private Sub Command1_Click()
Dim LoadStr As String
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = True
Set NewDoc = Nothing
Set NewDoc = MyWord.Documents.Add
Call Cover
................
...............
End Sub
在上述的省略号中我再想生成文本的内容，但不知道怎么设置，使文本从第二页开始。这个该如何操作，请求达人帮助！！

[东方之珠]

按Ctrl+Enter键,换页

[lovessll]

晕，我意思是用代码怎么控制在让文本内容在下一页生成，不是说在word中怎么操作！

[东方之珠]

这里有:
http://hi.baidu.com/jebeljebel/blog/item/a4a43a38776fdbc7d56225b4.html

[sky_study]

思路如下！
封面如果是第一页，在第一页后加其它内容！
可以通过以下代码来实现选择此封面的最后，再插入分节符转至第二页开始
sub newpage()
dim x as integer
dim r as range
x=activedocument.range.end
set r=activedocument.range(x-1,x)
r.InsertBreak Type:=wdSectionBreakNextPage
end sub
试试应该可以

[sky_study]

另建议最好定义书签来定位，这样更改好一些！

[lovessll]

楼上的朋友，谢谢你的帮助，但我用了上面的办法还是没法解决。想问问你书签的操作是怎样的，我对VBA还不是很熟悉，能不能介绍些这方面比较好的资料，谢谢啦！

[sky_study]

sub add_bookmark()'在当前光标所在的区域插入书签 range可以其它的内容
activedocument.Bookmarks.Add name:="书签名称" range:=selection.Range
end sub
sub return_bookmark()'返回书签所在的位置
Selection.GoTo what:=wdGoToBookmark, Name:="书签名称"
end sub
sub delete_bookmark()'删除书签
ActiveDocument.Bookmarks("书签名称").Delete
end sub
具体的自己考虑怎么用。

[lovessll]

请问楼上的朋友用书签是不是就要用到模板？