Can't delete file after renaming due to Word file handle still present. Error staes document is still in use but it's really not. Worked fine in 2007 but not in 2010.

Question

I have some code associated with a Word Template. The template is opened, filled out and saved via a routing in vba. This all works fine in older 2007 version (which is version it was originally created in). Once this file is saved, the user can change the
date in a text box and re-save document. The code saves using the new date for part of new file name and then deletes that older file from the server. It fails at the delete function because the newer version of word is not dropping the file handle from the
first named file when user saves it to the new filename. In older version (2007) this handle was released as soon as file was saved to a different name. I can't seem to figure out how to release the old document filename so the old document file can be deleted.
I hope I explained this well enough.
Here's the code that woeked in version 2007 but fails in version 2010.
Option Explicit
Dim CAPEX01 As MSForms.ComboBox
Dim CAPEX02 As MSForms.ComboBox
Dim LocalPath As String
Dim NetPath As String
Dim OldPath As String
Dim OldPathNet As String
Dim DocName01 As String
Dim DocName02 As String
Dim DocName03 As String
Dim DocName04 As String
Dim DocName As String
Dim DocNameold As String
Dim TestDocName As String
Dim filesys
Dim newfolder
Sub AutoOpen()
ActiveDocument.ActiveWindow.View.Type = wdPrintView
TestDocName = ActiveDocument.TextBox2
OldPathNet = "\\yourPath\" & TestDocName & "\"
End Sub
Sub AutoNew()
TestDocName = ActiveDocument.TextBox2
OldPathNet = "\\yourPath\" & TestDocName & "\"
 ComboBox1.Locked = False
 ComboBox1.Enabled = True
 FillList1
 FillList2
 End Sub
Sub DeleteOldDoc()
OldPathNet = "\\yourPath\" & TestDocName ' & "\"
DocNameold = OldPathNet & TestDocName & "-" & DocName02 & "-" & DocName03 & "-" & DocName04 & ".doc"
    If Not TestDocName = DocName01 Then
        Set filesys = CreateObject("Scripting.FileSystemObject")
    If filesys.FileExists(DocNameold) Then
        filesys.DeleteFile (DocNameold), True      
 'I get file permission error here
    End If
    End If
If DocName01 <> "" Then
If Not TestDocName = DocName01 Then
If Not TestDocName = "" Then
    MsgBox "Project Proposal Has Been Moved From Year " & TestDocName & " To " & DocName01 & ""
End If
End If
End If
TestDocName = DocName01
End Sub
'''''''Document path functions''''''
Sub chkpath()
Set filesys = CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists("\\yourPath\") Then
   newfolder = filesys.CreateFolder("\\yourPath\")
End If
If Not filesys.FolderExists("\\yourPath\" & DocName01 & "\") Then
    newfolder = filesys.CreateFolder("\\yourPath\" & DocName01 & "\")
End If
End Sub
''''''Save Function''''''
Private Sub CommandButton1_Click()
DocName01 = ActiveDocument.TextBox2
DocName02 = ActiveDocument.TextBox4
DocName03 = ActiveDocument.TextBox1
DocName04 = ActiveDocument.ComboBox1.Value
chkpath
NetPath = "\\yourPath\" & DocName01 & "\"
DocName = NetPath & DocName01 & "-" & DocName02 & "-" & DocName03 & "-" & DocName04
ActiveDocument.SaveAs2 FileName:=DocName, FileFormat:=wdFormatDocument
 ComboBox1.Locked = True
 ComboBox1.Enabled = False
 ComboBox2.Locked = True
 ComboBox2.Enabled = False
 TextBox1.Locked = True
 TextBox1.Enabled = False
 TextBox3.Locked = True
 TextBox3.Enabled = False
 TextBox4.Locked = True
 TextBox4.Enabled = False
 DeleteOldDoc
End Sub
Sub FillList1()
Set CAPEX02 = ActiveDocument.ComboBox2
  With CAPEX02
      .AddItem "CASTING", 0
      .AddItem "HOT ROLLING", 1
      .AddItem "COLD ROLLING", 2
      .AddItem "FINISHING", 3
      .AddItem "PLANT GENERAL", 4
      .AddItem "MOBILE EQUIPMENT", 5
  End With
End Sub
 Sub FillList2()
 Set CAPEX01 = ActiveDocument.ComboBox1
  With CAPEX01
      .AddItem "A Name", 0
      .AddItem "Another Name", 1
  End With
End Sub
Private Sub CommandButton2_Click()
    UserForm1.Show
End Sub

Answer 1

mogulman52 and Don,
I went back and looked at my code and had already updated it to SaveAs in the new docx format. It still holds the lock handle in place until Word closes, unlike earlier versions which released the lock handle when you did a SaveAs.
As a note, all my Word and Excel macro-enabled (dotm & xltm) templates are read only and are never filled in, prompting the user for a file name on any close event or if they run the code gets auto-named. I do the SaveAs and concatenate the file name
from data on the document (or sheet) that has been filled in. During the SaveAs the docx gets saved to a network folder and also on a local folder. The lock gets renamed to the filename and remains until Word is closed.
So my code still fails at the point noted below while trying to delete an old filename version after the file has been saved as a new filename in a new folder. So....
The code is looking in the last folder where the docx file was saved for the older filename so it can be deleted. The newest docx version has already been saved in a different folder and has a new lock handle of its own. That lock is not my problem, it's
the older file lock which really exists in the same folder as the first filename that the docx was saved to. It does not release that lock until I exit Word. My work around has been to instruct all users to manually delete the older version file.
The other odd thing is this only happens when I run it from code, if you manually go through these steps with the SaveAs menu drop-downs in Word it will release the lock handle???
Hope this isn't to confusing and thanks for all your suggestions and help.
Sub DeleteOldDoc()
OldPathNet = "\\yourPath\" & TestDocName ' & "\"
DocNameold = OldPathNet & TestDocName & "-" & DocName02 & "-" & DocName03 & "-" & DocName04 & ".doc"
If Not TestDocName = DocName01 Then
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists(DocNameold) Then
filesys.DeleteFile (DocNameold), True 'I get file permission error here- lock handle is still present from last SaveAs command in last folder where previous version of file was saved.
End If
End If
If DocName01 <> "" Then
If Not TestDocName = DocName01 Then
If Not TestDocName = "" Then
MsgBox "Project Proposal Has Been Moved From Year " & TestDocName & " To " & DocName01 & ""
End If
End If
End If
TestDocName = DocName01
End Sub
Glenn