mac excel word批量转pdf，大佬们求助

zacharyyao

大佬看看下面代码有什么问题，老报错，运行错误1004

1. Sub print_word_pdf()
   
2. Dim fileToOpen, GetOpenFilename, App, iFile
   
3. fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)
   
4. ' FileFilter 可选参数，代表指定文件筛选条件的字符串。如果省略该参数，默认为：“所有文件(*.*),*.*”。
   
5. ' FilterIndex 可选参数，指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一个文件筛选条件。
   
6. ' Title 可选参数，指定对话框的标题。如果省略该参数，则标题为“打开”。
   
7. ' ButtonText 可选参数，仅用于 Macintosh 机器。
   
8. ' MultiSelect        可选参数，如果为 True，则允许选择多个文件名。如果为 False，则只允许选择一个文件名。默认值为 False。
   
9. 
   
10. If Not IsArray(fileToOpen) Then
    
11.     MsgBox "你没有选择文件", vbOKOnly, "提示": Exit Sub
    
12. Else
    
13.     Set App = CreateObject("Word.Application")
    
14.     For Each iFile In fileToOpen
    
15.         Set WrdDoc = App.Documents.Open(iFile)
    
16.         App.Documents(WrdDoc).PrintOut
    
17.         App.Documents(WrdDoc).Close False
    
18.         T = T + 1
    
19.     Next
    
20.     End If
    
21.     MsgBox "操作完成！！" & vbCrLf & "打印了 " & T & " 个文件。", vbOKOnly, "提示"
    
22. End Sub
    

复制代码

zacharyyao

真心求助啊，求来个大佬看看