运行VBA代码出现"此文件正由另一应用程序使用"的问题

lime1907

各位前辈：
      我在excel中用代码操作word，在有打开其他word文档的时候，运行代码会出现“此文件正由另一应用程序或用户使用”的提示，在没由打开其他word文档的情况下运行代码就没有此问题，请教这个问题怎么解决！

1. Sub 选型输出()
   
2. On Error Resume Next
   
3. Dim wordapp As Object
   
4. Dim lujing As String
   
5. Dim newname As String
   
6. Dim newpath As String
   
7. Application.ScreenUpdating = False
   
8. Set wordapp = CreateObject("word.application")
   
9. newname = Worksheets("选型表").Cells(35, 4).Value
   
10. lujing = ThisWorkbook.Path
    
11. FileCopy lujing & "\MOBA\ZG.docx", lujing & "\选型输出" & newname & ".docx"
    
12. newpath = lujing & "\选型输出" & newname & ".docx"
    
13. With wordapp
    
14.     .Visible = False
    
15.     With .Documents.Open(newpath)
    
16.       Select Case Worksheets("选型表").Cells(2, 4).Value
    
17.       Case 条件1
    
18.        .Bookmarks("MODLE").Range = Worksheets("选型表").Cells(35, 4).Value
    
19.        ..........
    
20.        .Close True
    
21.       Case 条件2
    
22.        ..........
    
23.        .Close True
    
24.       Case 条件3
    
25.        ..........
    
26.        .Close True
    
27.        End Select
    
28.     End With
    
29.     .Quit
    
30. End With
    
31. Set wordapp = Nothing
    
32. Application.ScreenUpdating = True
    
33. End Sub

复制代码