读书人

怎样在word中选取一整页?解决方法

发布时间: 2012-03-28 15:40:03 作者: rapoo

怎样在word中选取一整页?
想选取a.doc其中第二页,然后存为b.doc
应该怎么做呢?

[解决办法]
Private Sub test()
Dim rng As Range
Dim intStart As Integer
Dim intEnd As Integer
ActiveDocument.Range(0, 1).Select
With Selection
.GoTo(what:=wdGoToPage, which:=wdGoToNext, Count:=1).Select
intStart = .Start
.GoTo(what:=wdGoToPage, which:=wdGoToNext, Count:=1).Select
intEnd = .End
End With
ActiveDocument.Range(intStart, intEnd).Select

End Sub

读书人网 >VBA

热点推荐