WORD中使用VBA删除某页.doc

WORD中使用VBA删除某页.doc

《WORD中使用VBA删除某页.doc》由会员分享，可在线阅读，更多相关《WORD中使用VBA删除某页.doc（1页珍藏版）》请在冰点文库上搜索。

WORD中使用VBA删除某页（包括页中的内容）

以下内空是关于如何在WORD中用VBA删除某页内容的方法，我只是个初学者，也是在网上找了很多案例，自己摸索的一些代码。

很简陋，希望能帮助大家伙。

删除第5页：

subtest（）

ActiveDocument.Range（Selection.GoTo（wdGoToPage,wdGoToAbsolute,5）.Start,_Selection.GoTo（wdGoToPage,wdGoToAbsolute,6）.end）.delete

endsub

删除第5页至第8页内容：

subtest（）

ActiveDocument.Range（Selection.GoTo（wdGoToPage,wdGoToAbsolute,5）.Start,_Selection.GoTo（wdGoToPage,wdGoToAbsolute,9）.end）.delete

endsub

删除第5页到最后一页的内容：

SubSelectToDocEnd（）

DimscAsRange

‘将光标定位至第5页页首

Selection.GoTowdGoToPage,wdGoToAbsolute,5

‘选中光标处到文档最后

Selection.EndKeyUnit:

=wdStory,Extend:

=wdExtend

‘删除选中内容

Selection.Delete

‘退格（删除最后空白页）

Selection.TypeBackspace

EndSub