I experienced an interesting (or should that be frustrating) problem recently during an Office 2010 migration.<\/p>\n
We have some code in Word that saves the current document into Autonomy WorkSite. The code works by doing a Save As of the current document to a temporary file, and then saving the document again to free up the first file, which is then imported or checked-in into WorkSite, all pretty standard stuff.<\/p>\n
The code has been working fine in 2010 until we changed the default document format for Word from DOCX to DOC. As soon as we changed the document format, Word continues to hold both documents open, and therefore the import\/check-in process for WorkSite fails with a \u201cThe process cannot access the file because it is being used by another process\u201d error (the error number is -2147221472)<\/p>\n
You can easily replicate the issue with the following VBA code which saves the current active document to two different temp files, and then tries to delete the first file:<\/p>\n
Sub<\/span> SaveAsDemo() If you have the \u201cSave files in this format<\/strong>\u201d setting set to Word Document (*.docx)<\/strong>, the code will run fine. Now change the setting to Word 97 \u2013 2003 Document (*.doc)<\/strong> and run the code, and you\u2019ll get a Run-time Error (70), Permission denied. If you look in the temp directory, you\u2019ll see both files are still open (they have corresponding Word temp files)<\/p>\n So how do you get around this \u201cundocumented feature\u201d?<\/p>\n I found a couple of blog posts that mentioned that it\u2019s just a matter of timing, and a pause would fix this issue. In my testing, this didn\u2019t work (since it didn\u2019t work when I just step through the code)<\/p>\n What I did find that worked was just doing it all twice! So the following code works a treat:<\/p>\n Sub<\/span> SaveAsDemo() No idea why this works \u2013 it just does!<\/p>\n So in the production code I added a check to see what the default save format was, and did an extra lot of saves if it was set to Doc.<\/p>\n Sub<\/span> SaveAsDemo() And there you have it, a dodgy workaround around for a very dodgy problem. Hopefully it\u2019ll get fixed one day soon (but where would the fun in that be!)<\/p>\n","protected":false},"excerpt":{"rendered":" I experienced an interesting (or should that be frustrating) problem recently during an Office 2010 migration. We have some code in Word that saves the current document into Autonomy WorkSite. The code works by doing a Save As of the current document to a temporary file, and then saving the document again to free up […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[28,1],"tags":[],"_links":{"self":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1366"}],"collection":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/comments?post=1366"}],"version-history":[{"count":1,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1366\/revisions"}],"predecessor-version":[{"id":1367,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/posts\/1366\/revisions\/1367"}],"wp:attachment":[{"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/media?parent=1366"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/categories?post=1366"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/docassist.com.au\/wp-json\/wp\/v2\/tags?post=1366"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc2.doc”<\/span>)
\nKill(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nEnd<\/span> Sub<\/span><\/p>\n
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc2.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc2.doc”<\/span>)
\nKill(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nEnd<\/span> Sub<\/span><\/p>\n
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc2.doc”<\/span>)
\nIf<\/span> Application.DefaultSaveFormat = “Doc”<\/span> Then
\n<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nActiveDocument.SaveAs2(Environ(“TEMP”<\/span>) & “\\TestDoc2.doc”<\/span>)
\nEnd<\/span> If
\n<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Kill(Environ(“TEMP”<\/span>) & “\\TestDoc1.doc”<\/span>)
\nEnd<\/span> Sub<\/span><\/p>\n