怎么批量删除指定页码的内容？

candy686868

请问怎么批量删除指定页码的内容？就是将第4,8,12,16,20页码上的内容删除掉

413191246se

楼主，如果你会 VBA，你可以录制宏，按 CTRL+G 来定位页数，然后结合 守柔版主 的<选定当前页>宏 来删除指定页文字。

duquancai

附件，打开文件，点击按钮》》》》》

1. Sub shishi()
   
2.        Dim arr, i%
   
3.        Application.ScreenUpdating = False
   
4.        arr = Array(4, 8, 12, 16, 20)
   
5.        For i = 0 To UBound(arr)
   
6.               With Selection.GoTo(1, 1, arr(i)).Bookmarks("\page").Range
   
7.                      .MoveEndUntil Chr(7), wdBackward
   
8.                      .Delete
   
9.               End With
   
10.        Next
    
11.        MsgBox "指定页码的内容已删除完毕！"
    
12.        Application.ScreenUpdating = True
    
13. End Sub

复制代码

loquat

duquancai 发表于 2016-12-1 22:38
附件，打开文件，点击按钮》》》》》

这个就是只删除了表格中的内容
会留下空表格
如果要处理表格要循环剪切才行

duquancai

loquat 发表于 2016-12-2 00:11
这个就是只删除了表格中的内容
会留下空表格
如果要处理表格要循环剪切才行

老师，估计是我理解错了楼主的意图，我理解只是删除内容，不删除表格的。
如果要一起删除的话，倒过来删除：

1. Sub shishi()
   
2.     Dim arr, i%
   
3.     Application.ScreenUpdating = False
   
4.     arr = Array(4, 8, 12, 16, 20)
   
5.     For i = UBound(arr) To 0 Step -1
   
6.         With Selection.GoTo(1, 1, arr(i)).Bookmarks("\page").Range
   
7.             .MoveEndUntil Chr(13), wdBackward '保留分节符不被删除
   
8.             .Delete
   
9.         End With
   
10.     Next
    
11.     MsgBox "指定页码的内容已删除完毕！"
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

candy686868

duquancai 发表于 2016-12-2 00:22
老师，估计是我理解错了楼主的意图，我理解只是删除内容，不删除表格的。
如果要一起删除的话，倒过来删 ...

非常感谢，可以使用了，谢谢

duquancai

candy686868 发表于 2016-12-2 18:18
非常感谢，可以使用了，谢谢

根本不知道你是只删除内容呢？还是内容和表格一起删除？还有分隔符是不是也要一起删除?

loquat

duquancai 发表于 2016-12-2 18:22
根本不知道你是只删除内容呢？还是内容和表格一起删除？还有分隔符是不是也要一起删除?

我感觉我俩在Word中的理解能力差不多。
莫名其妙楼主的问题就解决了

dafanshu1

duquancai 发表于 2016-12-1 22:38
附件，打开文件，点击按钮》》》》》

duquancai兄，请教一下，这个Chr(7)到底是什么东东来呢？为什么利用它可以将Range的结束位置指定到表格为止，却查找不出Chr(7)这字符呢？我逐个字符用ASC函数，都没有发现返回为7这样的字符。

liumongshi

duquancai 发表于 2016-12-2 00:22
老师，估计是我理解错了楼主的意图，我理解只是删除内容，不删除表格的。
如果要一起删除的话，倒过来删 ...

如果遍历文件夹，一次性删除多个文档呢？希望得到帮助