如何实现批量另存到指定文件夹

wh1813

有400多个docx文件，由于需要显示缩略图，所以需要把文件全部打开，然后另存一下，有没有大神帮忙做个VBA，帮忙实现依此打开文件后，依次另存在相同文件夹下

注意，必须是另存，直接保存不能显示缩略图

3190496160

录制一段宏，批量循环一下就行了吧

413191246se

* 楼主，请将 2 或 3 个文件放到一个新建文件夹中，点击文件夹，确定即可（先做实验）。
* 另存为缩略图，到底有何意义？我怎么看不到缩略图在哪里？请试用下面的代码。

1. Sub Dir_FileSaveAs_SLT()
   
2. 
   
3.     Dim Path$, FileName$
   
4. 
   
5.     With Application.FileDialog(msoFileDialogFolderPicker)
   
6.         If .Show Then Path = .SelectedItems(1) & "" Else End
   
7.     End With
   
8.     If MsgBox("Are you sure to select the folder """ & Path & """ ?", 4 + 16) = vbNo Then End
   
9. 
   
10.     FileName = Dir(Path & "*.doc*")
    
11.     Do While FileName <> ""
    
12.         Documents.Open FileName:=Path & FileName
    
13.         With ActiveDocument
    
14.             If FileName Like "*.doc" Then
    
15.                 .SaveAs FileName:=Path & "SLT " & FileName, FileFormat:=wdFormatDocument
    
16.             ElseIf FileName Like "*.docx" Then
    
17.                 .SaveAs FileName:=Path & "SLT " & FileName, FileFormat:=wdFormatXMLDocument
    
18.             End If
    
19.             .Close
    
20.         End With
    
21.         FileName = Dir
    
22.     Loop
    
23.     MsgBox "Complete!", 0 + 48, "FileSaveAs"
    
24. End Sub

复制代码