我下的别人psp3000火影忍者究极冲击的存档，使用时他说损坏，该怎么办，然后我删了我自己所有存档，在试_百度知道(编辑: 电玩巴士 )
您可以使用“← | →”键快速翻页，或者进入模式！
事件进展：
相关文章：
猜你喜欢：
热门新闻排行本周本月&&(100)&&(100)&&(20)&&(0)查看: 10078|回复: 9
如何删除一个WORD文档中的其中一页？
阅读权限20
在线时间 小时
&&我打开一个WORD文档，里面有很多页，可我想删除其中的一页，请问该怎样才能删除，我找了好久也没见有删除页面的选项，恳请大家帮帮我，在此非常感谢。
阅读权限50
在线时间 小时
全选删除页面内容，然后Delete试试
阅读权限20
在线时间 小时
zhongnansha 发表于
全选删除页面内容，然后Delete试试
谢谢你，问题已经解决了。
阅读权限50
在线时间 小时
kua123 发表于
谢谢你，问题已经解决了。
你是用其他什么办法了否？
阅读权限20
在线时间 小时
zhongnansha 发表于
你是用其他什么办法了否？
没有啊，就是用你给我说的方法。
阅读权限20
在线时间 小时
这个问题。。。。
阅读权限70
在线时间 小时
Word 2003 VBA 代码解决了此问题！代码如下：
' 删除一页
& & Dim i As String, p As Integer
' 光标定位
InputPageNum:
& & i = InputBox(&你想删除第几页的内容？ (1-N)页&, &定位页码&, &1&)
& & If i = && Then Exit Sub
& & If i & rmation(wdNumberOfPagesInDocument) Then MsgBox &文档只有 & & rmation(wdNumberOfPagesInDocument) & & 页！重新输入页码！&, vbOKOnly + vbExclamation, &超出范围&: GoTo InputPageNum:
& & If i & Int(i) Or i & Int(i) And i & Int(i + 0.5) Then MsgBox &页码是正整数，请输入正整数！&, vbOKOnly + vbExclamation, &输入页码&: GoTo InputPageNum:
& & Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Int(i)
' 选定当前页文本——编码：守柔版主
& & Dim CurrentPageStart As Long, CurrentPageEnd As Long
& & Dim CurrentPage As Integer, Pages As Integer
& & On Error Resume Next
& & With Selection
& && &&&CurrentPage = .Information(wdActiveEndPageNumber)
& && &&&Pages = .Information(wdNumberOfPagesInDocument)
& && &&&CurrentPageStart = .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=CurrentPage).Start
& && &&&If CurrentPage = Pages Then
& && && && &CurrentPageEnd = ActiveDocument.Content.End
& && &&&Else
& && && && &CurrentPageEnd = .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=CurrentPage + 1).Start
& && &&&End If
& && &&&ActiveDocument.Range(CurrentPageStart, CurrentPageEnd).Select
& & End With
& & Selection.Delete
阅读权限20
在线时间 小时