请问如何批量打开文件夹内所有word并删除最后一页

batmanbbs

怎么说呢，楼主连节和页的概念都没有分清啊（这个可和是否会编程没有半毛钱关系^_^），对节的操作可比对页面的操作简单多了。
另外，我原来的代码再次测试也没有问题，如果楼主还是通过不了，可以加Q远程看看。

还有，楼主你提供的代码并不是删除节（你所说的页），只是把节的下一页样式改成了连续页，换汤不换药。所以，我现在比较怀疑你的文档原始格式是什么样的？！估计都给你改乱了。我现在的代码只针对你上面提供的附件有效。

注意:  和前面代码一样，第22句"\"中的\被吃掉了

新代码截图如下：

batmanbbs

1. 
   
2. Sub 批量删除文档最后一节()
   
3. '
   
4. ' 批量删除指定文件夹中所有WORD文档的最后一节
   
5. '
   
6.     Dim Path$, FileName$
   
7.     Dim myApp As Application
   
8.     Dim myDoc As Document
   
9. 
   
10.     With Application.FileDialog(msoFileDialogFolderPicker)
    
11.         If .Show <> -1 Then End
    
12.         Path = .SelectedItems(1)
    
13.     End With
    
14. 
    
15.     FileName = Dir(Path & "\*.doc*")
    
16.     If FileName = "" Then
    
17.         MsgBox Path & "\ 目录下没有WORD文档！"
    
18.     Else
    
19.         Set myApp = CreateObject("Word.Application")
    
20.         myApp.Visible = True
    
21.         Do
    
22.             Set myDoc = myApp.Documents.Open(Path & "" & FileName)
    
23.             With myDoc
    
24.                 If .Sections.Count > 1 Then
    
25.                     With .Sections.Last.Range
    
26.                         myDoc.Range(.Start - 1, .End).Delete
    
27.                     End With
    
28.                 End If
    
29.                 .Close
    
30.             End With
    
31.             Set myDoc = Nothing
    
32.             FileName = Dir
    
33.         Loop Until FileName = ""
    
34.         myApp.Quit
    
35.         Set myApp = Nothing
    
36.     End If
    
37. 
    
38. End Sub

复制代码