如何批量把这些docx都变成doc

zzpsx

文件夹内有n个子文件，子文件内又有子文件夹，内有docx文档
如何批量把这些docx都变成doc

ming0018

遍历后　save as

413191246se

楼主，我有一个《批量转换》宏，你不知道吗？可以批量把 docx 转换为 doc，但前提是先把 AutoOpen宏禁用。

zzpsx

413191246se 发表于 2018-12-27 23:57
楼主，我有一个《批量转换》宏，你不知道吗？可以批量把 docx 转换为 doc，但前提是先把 AutoOpen宏禁用。

谢谢，我希望用批处理文件，这样可以不打开word直接转换。

413191246se

1. Sub 批量转换doc2txt()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i&, j$, doc As Document, p$, t&
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
6.     Set fd = Nothing
   
7.     j = MsgBox("<是>：doc2txt    <否>：txt2doc    <取消>：docx2doc", 3 + 48)
   
8.     If MsgBox("是否转换文件夹 " & p & " ?", 4 + 48) = vbNo Then End
   
9.     If j = vbYes Then
   
10.         t = 1
    
11.     ElseIf j = vbNo Then
    
12.         t = 2
    
13.     Else
    
14.         t = 3
    
15.     End If
    
16.     With Application.FileSearch
    
17.         .NewSearch
    
18.         .LookIn = p
    
19.         .SearchSubFolders = True
    
20.         If t = 1 Then
    
21.             .FileName = "*.doc"
    
22.         ElseIf t = 2 Then
    
23.             .FileName = "*.txt"
    
24.         Else
    
25.             .FileName = "*.docx"
    
26.         End If
    
27.         If .Execute > 0 Then
    
28.             For i = 1 To .FoundFiles.Count
    
29.                 If t = 1 Then
    
30.                     Set doc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
    
31.                     doc.SaveAs FileName:=Left(doc.FullName, Len(doc.FullName) - 4) & ".txt", FileFormat:=wdFormatText
    
32.                 ElseIf t = 2 Then
    
33.                     Set doc = Documents.Open(FileName:=.FoundFiles(i), ConfirmConversions:=False, Visible:=False)
    
34.                     doc.SaveAs FileName:=Left(doc.FullName, Len(doc.FullName) - 4), FileFormat:=wdFormatDocument
    
35.                 Else
    
36.                     Set doc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
    
37.                     doc.SaveAs FileName:=Left(doc.FullName, Len(doc.FullName) - 5), FileFormat:=wdFormatDocument
    
38.                 End If
    
39.                 ActiveDocument.Close
    
40.             Next i
    
41.             MsgBox "转换完毕！共转换 " & .FoundFiles.Count & " 个文件！", 0 + 64
    
42.         Else
    
43.             MsgBox "未发现文件！", 0 + 16
    
44.         End If
    
45.     End With
    
46. End Sub

复制代码

413191246se

楼主，我这个宏只能用在 2003 中，如果你用的是 2007 或以上版本，就不适用了。

jiangxiaoyun

用FSO就行，不需要打开文件。