Закрыть документ Word

For i = 1 To 50
    
    strPathWord = CurrentProject.Path & "\Word\" & i & "_03_2011.doc"
    'fso.CreateFolder (strToMainFolder)
 
    strSQL = "SELECT id, FIO, ADR, DOLG, name, numContract FROM dolg WHERE id = " & i & ";"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    Set app = New Word.Application
    app.Documents.Add strPathDot
    With app.ActiveDocument
        .Bookmarks.Item("num").Range.Text = rs.Fields(0)
        .Bookmarks.Item("date").Range.Text = Date '!!!!!!!!!!!!!!!!!!!!!!!
        .Bookmarks.Item("FIO").Range.Text = rs.Fields(1)
        .Bookmarks.Item("adres").Range.Text = rs.Fields(2)
        .Bookmarks.Item("num1").Range.Text = rs.Fields(0)
        .Bookmarks.Item("dolg").Range.Text = Format(rs.Fields(3), "#,##0.00")
        .Bookmarks.Item("ZhKSName").Range.Text = rs.Fields(4)
        .Bookmarks.Item("numContract").Range.Text = rs.Fields(5)
        .Bookmarks.Item("ZhKSName2").Range.Text = rs.Fields(4)
        .Bookmarks.Item("dolg2").Range.Text = Format(rs.Fields(3), "#,##0.00")
        .Bookmarks.Item("dolg3").Range.Text = Format(rs.Fields(3), "#,##0.00")
        .SaveAs strPathWord
    End With
 
    Set app = Nothing
    Close (strPathWord) ' так выдает ошибку
 
Next i

Set app = Nothing
Close (strPathWord) ' так выдает ошибку

app.Quit
Set app = Nothing