求取word第一页内容实现代码,该如何解决_Office

求取word第一页内容实现代码
我的需求是把word的第一页另存为新文件，目前遇到问题，不会取word的第一页，请高人相助，先在此谢过各位大侠了，最好是delphi 、c#，其它的也可

------解决方案--------------------------------------------------------

探讨
引用:
另外，应该不会多出几行的，请看下面的代码说明：
VB codeSub test1()Dim lngEndAsLong
Selection.HomeKey unit:=wdStory'将光标定位到文档起始处 lngEnd= Selection.GoToNext(wdGoToPage).Start-1'获取文档第一页结尾的位置 Selection.GoToPrevious wdGoToPage'将光标移回第一页起始处 Selection.MoveEnd unit:=wdCharacter, Count:=lngEnd'扩展选区到第一页最后一个字符（不包括最后一个段落标记） Selection.Copy'复制选区 Documents.Add'新建文档 Selection.Paste'将复制的选区内容粘贴到新文档中End Sub

谢谢MVP！
不过我这测试就是多了两三行，而且原先的排版全乱了。。。估计拷贝的时候最好把样式也复制过来。

求 取word第一页内容实现代码,该如何解决

求取word第一页内容实现代码,该如何解决