问一个Word的难题

Office

在一篇有很多页的word文件中，想删除其中指定的某些页，有什么办法，难道必须进入那页删除其中的内容才行吗？

如意

那不一定。要根据你的文档的具体情况来定，就样可不好说。

提供以下思路，1、可以考虑用查找中的突出显示内容，然后再删除。2、考虑使用VBA解决。

守柔

以下是引用Office在2005-10-25 15:16:22的发言： 在一篇有很多页的word文件中，想删除其中指定的某些页，有什么办法，难道必须进入那页删除其中的内容才行吗？

可以参考以下代码：

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("AnyPagesSelect").Delete '恢复原有菜单 End Sub '---------------------- Private Sub Document_Open() '参见自定义右键菜单 Dim Half As Byte On Error Resume Next Dim NewButton As CommandBarButton Application.CommandBars("Text").Controls("AnyPagesSelect").Delete '预防性删除 Half = Int(Application.CommandBars("Text").Controls.Count / 2) '中间位置 Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half) With NewButton .Caption = "AnyPagesSelect" '命令名称 .FaceId = 100 '命令的FaceId .Visible = True '可见 .OnAction = "Sample" '指定响应过程名 End With End Sub '---------------------- Sub Sample() Dim P As String, PS() As String, PageHome As Integer, PageEnd As Integer, EndPage As Long On Error Resume Next P = InputBox(prompt:="请在此输入连续页的首页-尾页,以-为分隔符!", Title:="Word连续页选定") If P = "" Then Exit Sub PS = Split(P, "-") '返回一个以"-"分隔的一维数组 If UBound(PS) > 1 Then Exit Sub '如果上标大于1,则退出(用户连续型输入如1-2-7") PageHome = PS(0) '首页为数组下标 PageEnd = PS(1) '尾页为数组上标 If PageHome > PageEnd Then Exit Sub '尾页大于首页则退出 If PageHome < 1 Then Exit Sub '首页小于1则退出 With ActiveDocument 'EndPage为尾页位置,如果大于文档总页数,则为文档最后位置;反之则下一页的起始位置 EndPage = VBA.IIf(PageEnd >= .GoTo(wdGoToPage, wdGoToNext, , PageEnd).Information _ (wdNumberOfPagesInDocument), .Content.End, _ .GoTo(wdGoToPage, wdGoToNext, , PageEnd + 1).Start) '选定指定区域 .Range(.GoTo(wdGoToPage, wdGoToNext, , PageHome).Start, EndPage).Select End With End Sub '----------------------

Office

谢谢老大

tangqingfu

能否请守版把代码写在附件里?
运行后没反应.