如何删除一个WORD文档中的其中一页？

kua123

  我打开一个WORD文档，里面有很多页，可我想删除其中的一页，请问该怎样才能删除，我找了好久也没见有删除页面的选项，恳请大家帮帮我，在此非常感谢。

zhongnansha

全选删除页面内容，然后Delete试试

kua123

zhongnansha 发表于 2011-10-27 22:03
全选删除页面内容，然后Delete试试

谢谢你，问题已经解决了。

zhongnansha

kua123 发表于 2011-10-27 22:13
谢谢你，问题已经解决了。

你是用其他什么办法了否？

kua123

zhongnansha 发表于 2011-10-27 22:16
你是用其他什么办法了否？

没有啊，就是用你给我说的方法。

spano

这个问题。。。。

413191246se

Word 2003 VBA 代码解决了此问题！代码如下：

' 删除一页
    Dim i As String, p As Integer
' 光标定位
InputPageNum:
    i = InputBox("你想删除第几页的内容？ (1-N)页", "定位页码", "1")
    If i = "" Then Exit Sub
    If i > Selection.Information(wdNumberOfPagesInDocument) Then MsgBox "文档只有 " & Selection.Information(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

kua123

413191246se 发表于 2011-10-28 08:28
Word 2003 VBA 代码解决了此问题！代码如下：

' 删除一页

我现在对VBA还不是很懂，不过还是谢谢你的答案。

dony30mk2

还是很难看懂，看来要学习的太多了

x332553761

7楼高手！！！我要好好学习一下，这个代码！