求助遍历文件夹所有WORD文档后打开后不会自动关所有WORD

qinhuan66

求助遍历文件夹所有WORD文档后打开后不会自动关所有WORD，怎么处理

1. Sub 批量删除页眉横线()
   
2.     Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
   
3.     With MyDialog
   
4.         .Filters.Clear
   
5.         .Filters.Add "所有 WORD 文件", "*.doc; *.docx; *.docm", 1
   
6.         .AllowMultiSelect = True    '
   
7.         If .Show = -1 Then
   
8.             Application.ScreenUpdating = False
   
9.             For Each vrtSelectedItem In .SelectedItems
   
10.                 Set Doc = Documents.Open(fileName:=vrtSelectedItem, Visible:=True)
    
11. 
    
12.                 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    
13.                 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
14.                 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
15.                
    
16. 
    
17.      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
18.     Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
19.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
20.             Next
    
21.             Application.ScreenUpdating = True
    
22.         End If
    
23.     End With
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK!", vbInformation
    
26. End Sub

复制代码

413191246se

楼主，打开单个文件后，进行格式处理，处理完毕，加上下面一行代码即可关闭并保存了！
ActiveDocument.Close savechanges:=wdSaveChanges

qinhuan66

413191246se 发表于 2019-4-29 10:49
楼主，打开单个文件后，进行格式处理，处理完毕，加上下面一行代码即可关闭并保存了！
ActiveDocument.Clo ...

加上去了还是打开所有WORD文档，不会自动关闭，
换先前加了ActiveDocument.Close savechanges:=wdSaveChanges也不行

413191246se

将 ActiveDocument 改为 doc 再将代码加到第 19 行代码后面试试。