得到WORD文档的最后一页的内容,并单独生成一个DOC文件,有那位高手能帮忙?必有重谢

用下面的代码吧：

Sub wdLastPage()
'
' wdLastPage Macro
' Macro created 2002-9-5 by yang
'
Dim r1, r2 As Range
Dim PageNum As Integer
PageNum = ActiveDocument.Range.Information(wdNumberOfPagesInDocument) '取得总页数

Selection.GoTo what:=wdGoToPage, which:=wdGoToLast'跳到最后一页
Set r1 = Selection.Range
Set r2 = ActiveDocument.Range
ActiveDocument.Range(Start:=r1.Start, End:=r2.End).Copy'选中最后一页内容并复制

Documents.Add
Documents(2).Content.Paste'把内容粘贴到新的文档中
Documents(2).SaveAs FileName:="test.doc"
'Documents(2).Close
End Sub