为什么visible设置为FALSE程序就执行失败呢

yangge523

copy了一个调Word格式的壳子,但是当把打开Word的visible属性设置为FALSE,执行后,格式并没有调整,设为TRUE就没事,为什么呢?

1. Sub 批量格式设置()  '此代码为指定文件夹中所有选取的WORD文件的进行格式设置
   
2.     Dim MyDialog As FileDialog
   
3.     Dim vrtSelectedItem As Variant
   
4.     Dim Doc As Document
   
5.     'On Error Resume Next '忽略错误
   
6.     '定义一个文件夹选取对话框
   
7.     Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
   
8.     With MyDialog
   
9.         .Filters.Clear '清除所有文件筛选器中的项目
   
10.         .Filters.Add "所有 WORD 文件", "*.doc;*.docx", 1 '增加筛选器的项目为所有WORD文件：.doc和.docx文件
    
11.         .AllowMultiSelect = True '允许多项选择
    
12.         If .Show = -1 Then '确定
    
13.             Application.ScreenUpdating = False
    
14.             For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
    
15.                 Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=<span style="background-color: yellow;">False</span>)
    
16.                
    
17.                 Call 调格式
    
18.                
    
19.                 Doc.Save
    
20.                 Doc.Close
    
21.             Next
    
22.             Application.ScreenUpdating = True
    
23.         End If
    
24.     End With
    
25.     MsgBox "格式化文档操作设置完毕!", vbInformation
    
26. End Sub

复制代码